daviddeng 发布留言 2008-10-25 13:43
求助'对象打开时，不允许操作'
ADODB.Recordset 错误 '800a0e79'
对象打开时，不允许操作。
/yslogin.asp，行 34
付代码:
<%
'进行安全性监测，看数据来源是否是本服务器页面
if not instr(1,Request.ServerVariables("http_Referer"),Request.ServerVariables ("SERVER_NAME"),1)=8 then
response.redirect "index.asp"
end if
%>
<%
dim Rs,SqlStr
dim UserName,UserPass
username=SafeRequest(Request.Form("username"),0)
password=SafeRequest(Request.Form("password"),0)
'登陆成功
sub loginok()
Session.Timeout=60
session("username")=rs("username")
conn.execute("update usermsg set islogin=1,logintime='"&now()&"' where username='"&username&"'")
str=""
response.Write(str)
end sub
SqlStr="select memo,username,password,validdate,islogin,isshenhe,default,logintime from usermsg where username='"&username&"' and password='"&password&"'"
set Rs=conn.execute(SqlStr)
RS.LockType=3
if Rs.BOF and Rs.EOF then
Response.Write("")
else
'if rs("default") then
'Session.Timeout=60
'session("username")=rs("username")
'response.Redirect("hidden_member.asp")
'end if
if cint(rs("islogin"))=1 then
'检查会员登陆是否超过三分钟
t1day=day(rs("logintime"))
t1hour=hour(rs("logintime"))
t1minute=minute(rs("logintime"))
t1date=(t1day*24*60)+(t1hour*60)+t1minute
t2day=day(now)
t2hour=hour(now)
t2minute=minute(now)
t2date=(t2day*24*60)+(t2hour*60)+t2minute
if (t2date-t1date)>3 then
call loginok()
else
Response.Write("")
rs("isshenhe")="0"
response.end
end if
elseif rs("validdate")-date()<0 then
Response.Write("")
response.end
elseif cint(rs("isshenhe"))=0 then
Response.Write("")
response.end
else
call loginok()
end if
end if
call close_rs()
call close_conn()
%>
本来是想通过两用户同时登陆同一帐号时,修改isshenhe的值为0,达到锁定帐户的功能.
yms123 发布留言 2008-10-25 23:35
证明你有一个rs对象没有关闭rs.close
页: [1]
