之前都好好的，只是空间商换了IP之后。我打开后台就出现：
ADODB.Recordset 错误 '800a0e78'
对象关闭时，不允许操作。
/admin5/admin/admin/admin_login.asp，行 101
我一串的代码是：
If Trim(Rs("password"))=PassWord then
session("isadmin")=true
Session("flag")=rs("flag")
Session("448syser")=rs("username")
Session("LastLoginIP")=rs("LastLoginIP")
Session("LastLogin")=rs("LastLogin")
rs.close'关闭数据库以便下面更新操作时不会重新打开
ctime=now()
csql="update [sys_admin] set [LastLoginIP]='"&userip&"',[LastLogin]='"&ctime&"' where username='"&request.Form("username")&"'"
rs.open csql,conn,1,3
response.Redirect("center.asp")
end if
End Sub
Function ChkLoginIP(AcceptIP,ChkIp)'IP检索函数
Dim i,LoginIP,TempIP
ChkLoginIP = False
If Instr("|"&AcceptIP&"|","|"&ChkIp&"|") Then ChkLoginIP = True : Exit Function
LoginIP = Split(ChkIp,".")
TempIP = LoginIP(0)&"."&LoginIP(1)&"."&LoginIP(2)&".*"
If Instr("|"&AcceptIP&"|","|"&TempIP&"|") Then ChkLoginIP = True : Exit Function
TempIP = LoginIP(0)&"."&LoginIP(1)&".*.*"
If Instr("|"&AcceptIP&"|","|"&TempIP&"|") Then ChkLoginIP = True : Exit Function
TempIP = LoginIP(0)&".*.*.*"
If Instr("|"&AcceptIP&"|","|"&TempIP&"|") Then ChkLoginIP = True : Exit Function
End Function
sub logout()
session("isadmin")=false
session("flag")=empty
session("448syser")=empty
Session("LastLoginIP")=empty
Session("LastLogin")=empty
response.redirect("index.asp")
end sub
rs.close
set rs=nothing
'conn.close
'set conn=nothing
%>