html删除学生数据,对学生信息进行删除网页html代码.doc

删除信息

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

%>

---

显示所有同学

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("

Response.Write("

学生")

while Not Rs.eof

Response.Write("

")

Response.Write("

" & Rs("sno") & "")

Response.Write("

" & Rs("sname") & "")

If Rs("sex") Then

Response.Write("

男")

Else

Response.Write("

女")

End If

Response.Write("

" & Rs("cname") & "")

Response.Write("

" & Rs("specialtyName") & "")

Response.Write("

" & Rs("departmentName") & "")

Response.Write("