查看: 59|回复: 2

求助'对象打开时，不允许操作'

[复制链接]

轻松由我

电梯直达

1^#

发表于 2010-1-11 00:39:19 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

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="<script language=javascript>alert('您已成功登陆!\n\n您还剩下"&rs("validdate")-date()&"天的访问期限!\n\n请安全退出!');"
If rs("memo")=1 then
      str=str&"window.location='member_1.asp';"
Elseif rs("memo")=2 then
      str=str&"window.location='member_2.asp';"
Elseif rs("memo")=3 then
      str=str&"window.location='member_3.asp';"
End if
str=str&"</script>"
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("<script language=javascript>history.go(-1);</script>")
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("<script language=javascript>alert('帐号重复登陆,已锁定！请联系管理员');history.go(-1);</script>")
         rs("isshenhe")="0"
         response.end
      end if
elseif rs("validdate")-date()<0 then
      Response.Write("<script language=javascript>alert('您的帐号已过期"&date()-rs("validdate")&"天!\n\n请联系站长续期!');history.go(-1);</script>")
      response.end
elseif cint(rs("isshenhe"))=0 then
      Response.Write("<script language=javascript>alert('你的权限尚未开通!');history.go(-1);</script>")
      response.end
else
      call loginok()
end if
end if
call close_rs()
call close_conn()
%>

本来是想通过两用户同时登陆同一帐号时,修改isshenhe的值为0,达到锁定帐户的功能.

收藏0

使用道具举报

泡个帅滴上床

2^#

发表于 2010-1-11 00:39:23 | 只看该作者

证明你有一个rs对象没有关闭rs.close

回复支持反对

使用道具举报

返回列表

		自动登录	找回密码
密码			注册