[求助]0x80020009错误
错误类型：(0x80020009)
发生意外。
/SeekScore/Default.asp, 第 78 行
Sub ChkLogin()
Dim number
Dim pwd
number=Trim(Request.Form("number"))
pwd=Trim(Request.Form("pwd"))
If number="" Or pwd="" Then
Response.Write "<script>alert('请输入学号或密码！');history.go(-1);</script>"
Response.End
Else
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From [student] Where number='"&number&"'"
Rs.Open Sql,conn,2,3
If number=Rs("number") And pwd=Rs("pwd") Then/////////////////////////////////这里是78行
Session("name")=Rs("name")
Session("number")=Rs("number")
Response.Redirect "Seek.asp"
Else
Response.Write "<script>alert('学号或密码错误！');history.go(-1);</script>"
Response.End
End If
End If
Rs.Close
Set Rs=nothing
End Sub
