\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">

<%

QSsno=request.QueryString(\"sno\")

Fsname =request.form(\"sname\")

'Response.write(Fsname)

Fsex=request.Form(\"sex\")

If Fsname<> \"\" 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(\"sname\") = Fsname

If UCase(Fsex) = \"ON\" then

Rs(\"sex\") = true

Else

Rs(\"sex\") = false

End if

Rs.update

End if

Rs.close

set Rs = nothing

OBJConn.close

Set OBJConn = Nothing

End if

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

Response.Write(\"

修改学生

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

specialty.specialtyID=class.specialtyID and class.classID = student.classID\"

and

Rs.Open sqlstr, OBJConn, 3,3

If Rs.State = 1 Then

Response.Write(\"

Response.Write(\"

while Not Rs.eof

Response.Write(\"

Response.Write(\"

Response.Write(\"

If Rs(\"sex\") Then

Response.Write(\"

Else

Response.Write(\"

End If

Response.Write(\"

Response.Write(\"

Response.Write(\"

Response.Write(\"

Response.Write(\"

Rs.moveNext

wend

Response.Write(\"

Else

Response.Write(\"对象目前处于关闭状态
\")

End If

Rs.close

set Rs = nothing

OBJConn.close

Set OBJConn = nothing

%>