连接数据库问题？
今天调试代码，遇到此问题，望GG JJ们帮忙解决，谢谢！数据库为sql server 2000的！
遇到的问题提示为：
技术信息（用于支持人员）
错误类型：
ADODB.Recordset (0x800A0E78)
对象关闭时，不允许操作。
/lemon/guanli/Include/Login.asp, 第 36 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
网页：
POST 75 ??? /lemon/guanli/Login.asp
POST Data:
Accout=trevor&Password=he133@trevor&Login=1&Submit=%B5%C7%C2%BD%CF%B5%CD%B3
时间：
2006年4月24日, 下午 05:53:50
详细信息：
Microsoft 支持
===============================================
Login.asp文件的代码为：
帐号或密码长度不够(长度为4-20)"
End If
If (Not Str.IsValidRegExp(Accout,"[a-zA-Z0-9]{0,20}")) or (Not Str.IsValidRegExp(Password,"[a-zA-Z0-9]{0,20}")) Then
Flag = 1
Msg = Msg + "帐号或密码格式不对"
End If
If Flag = 1 Then
Call Insert_Log(0,"字符长度或特殊字符未通过")
Str.Error(Msg)
Else
Db.GetRecordSet(Selectsql)
If Db.Rs.Eof Then[b][color=Red] (此处为地36行，错误在此，谢谢！) [/color][/b]
Call Insert_Log(0,"用户不存在或用户被锁定")
Str.Error("用户不存在或用户被锁定")
Else
UserID = Db.Rs(0)
ManageModule = Db.Rs(1)
Issuper = Db.Rs(2)
If Db.Runsql(UPdateSql) Then
Call Insert_Log(1,"登陆成功")
'------------------------------Login Succeed Code
Session.Contents.RemoveAll()
Session.Timeout = 60
Session("Manage_UserID") = UserID
Session("Manage_Module") = ManageModule
Session("Manage_Issuper") = Issuper
Response.Redirect("Manage_Main.asp")
Else
Call Insert_Log(0,"未知错误造成错误")
Str.Error("未知错误造成错误")
End If
End If
请问该如何解决？谢谢！ |