对学生信息进行删除网页html代码.docVIP

!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Strict//EN /TR/xhtml1/DTD/xhtml1-strict.dtd html xmlns=/1999/xhtml head meta http-equiv=Content-Type content=text/html; charset=gb2312/ title删除信息/title /head body % QSsno=request.QueryString(sno) If QSsno Then Set OBJConn=Server.CreateObject(ADODB.connection) 创建一个数据库连接对象 OBJConn.Open driver={microsoft access driver (*.mdb)}; _ dbq= server.mappath(database\cqe.mdb) Set Rs=Server.CreateObject(ADODB.RecordSet) sqlstr=select * from student where sno = QSsno Rs.Open sqlstr, OBJConn, 3,3 If Not Rs.eof then Rs.delete Rs.update Response.Write(删除成功) Else Response.Write(查无此人) End If Rs.close set Rs = nothing OBJConn.close Set OBJConn = Nothing End if % hr/ h1显示所有同学/h1 % Set OBJConn=Server.CreateObject(ADODB.connection) 创建一个数据库连接对象 OBJConn.Open driver={microsoft access driver (*.mdb)}; _ dbq= server.mappath(database\cqe.mdb) Set Rs=Server.CreateObject(ADODB.RecordSet) sqlstr=SELECT * FROM student, class, specialty, department where department.departmentID=specialty.departmentID and specialty.specialtyID=class.specialtyID and class.classID = student.classID Rs.Open sqlstr, OBJConn, 3,3 If Rs.State = 1 Then Response.Write(table style=vertical-align:middle;text-align:center; width=90% align=center border=1 cellpadding=0 cellspacing=0th学号/thth姓名/thth性别/thth班级/thth专业/thth院（系）/thth操作/th) Response.Write(caption学生/caption) while Not Rs.eof Response.Write(tr) Response.Write(td Rs(sno) /td) Response.Write(td Rs(sname) /td) If Rs(sex) Then Response.Write(td男/td) Else Response.Write(td女/td) End If Response.Write(td Rs(cname) /td) Response.Write(td Rs(specialtyName) /td) Response.Write(td Rs(departmentName) /td) Response.Write(tda href=?sno= Rs(sno) 删除/a/td) Response.Write(/tr) Rs.moveNext wend Response.Write(/table) Else Response.Write(b对象目前处于关闭状态/bbr/) End If Rs.close set Rs = nothing OBJConn.close Set OBJConn = nothing % /bod