ADODB.Recordset(0x800A0E78) 对象关闭时,不允许操作
<%
dim ObjConn,ConnStr,ObjRS,SqlStr
UserId = trim(request.form("UserId"))
UserPwd= trim(request.form("UserPwd"))
ConnStr= "provider=microsoft.jet.oledb.4.0;data source=" & _
server.mappath("../db/sysm.mdb")
set ObjConn= server.createObject("adodb.connection")
Objconn.open ConnStr
set ObjRS= server.createObject("adodb.Recordset")
SqlStr= "SELECT * FROM userifo where userid='" & userid & "' and userpwd='" & userpwd & "'"
Objrs.open SqlStr,Objconn,1,3
IF ObjRS.EOF THEN
Response.write "<center>不存在此用户或密码错误!</center>"
ELSE IF UserId="admin" then
session("userId")=UserId
session("userpwd")=UserPwd
session("Passed")=true
server.transfer("adimn.asp")
ELSE
session("userId")=UserId
session("userpwd")=UserPwd
session("Passed")=true
server.transfer("commuser.asp")
END IF
end if
ObjConn.close
ObjRs.close
'set Objconn = nothing
set ObjRS = nothing
加‘号的语句如果去掉’号之后,便会出现下面错误,请诸位大侠给看看。
错误类型:
ADODB.Recordset (0x800A0E78)
对象关闭时,不允许操作。
/myweb/log/app/logon.asp, 第 44 行