《对学生信息进行修改的网页html代码.doc》由会员分享,可在线阅读,更多相关《对学生信息进行修改的网页html代码.doc(3页珍藏版)》请在金锄头文库上搜索。
1、修改信息%QSsno=request.QueryString(sno)Fsname =request.form(sname)Response.write(Fsname)Fsex=request.Form(sex)If Fsname thenSet OBJConn=Server.CreateObject(ADODB.connection) 创建一个数据库连接对象OBJConn.Open driver=microsoft access driver (*.mdb); &_dbq=& server.mappath(databasecqe.mdb)Set Rs=Server.CreateObject(
2、ADODB.RecordSet)sqlstr=select * from student where sno = & QSsno & Rs.Open sqlstr, OBJConn, 3,3If Not Rs.eof ThenRs(sname) = FsnameIf UCase(Fsex) = ON thenRs(sex) = trueElseRs(sex) = falseEnd ifRs.updateEnd ifRs.closeset Rs = nothingOBJConn.closeSet OBJConn = NothingEnd ifIf QSsno ThenSet OBJConn=Se
3、rver.CreateObject(ADODB.connection) 创建一个数据库连接对象OBJConn.Open driver=microsoft access driver (*.mdb); &_dbq=& server.mappath(databasecqe.mdb)Set Rs=Server.CreateObject(ADODB.RecordSet)sqlstr=select * from student where sno = & QSsno & Rs.Open sqlstr, OBJConn, 3,3If Not Rs.eof thenResponse.Write(修改学生)R
4、esponse.Write()Response.Write(学号: & QSsno & chr(13)Response.Write(姓名: & chr(13)If Rs(sex) thenResponse.Write(性别:男 & chr(13)ElseResponse.Write(性别:女 & chr(13)End ifResponse.Write()Response.Write()ElseResponse.Write(查无此人)End IfRs.closeset Rs = nothingOBJConn.closeSet OBJConn = NothingEnd if%显示所有同学%Set
5、OBJConn=Server.CreateObject(ADODB.connection) 创建一个数据库连接对象OBJConn.Open driver=microsoft access driver (*.mdb); &_dbq=& server.mappath(databasecqe.mdb)Set Rs=Server.CreateObject(ADODB.RecordSet)sqlstr=SELECT * FROM student, class, specialty, department where department.departmentID=specialty.departmen
6、tID and specialty.specialtyID=class.specialtyID and class.classID = student.classIDRs.Open sqlstr, OBJConn, 3,3If Rs.State = 1 ThenResponse.Write(学号姓名性别班级专业院(系)操作)Response.Write(学生)while Not Rs.eofResponse.Write()Response.Write( & Rs(sno) & )Response.Write( & Rs(sname) & )If Rs(sex) ThenResponse.Wri
7、te(男)ElseResponse.Write(女)End IfResponse.Write( & Rs(cname) & )Response.Write( & Rs(specialtyName) & )Response.Write( & Rs(departmentName) & )Response.Write(修改)Response.Write()Rs.moveNextwendResponse.Write()ElseResponse.Write(对象目前处于关闭状态)End IfRs.closeset Rs = nothingOBJConn.closeSet OBJConn = nothing%