用户表: user00
用户名:username
密 码:password
online =0 是不在线 =1 是在线
我现在只能通过退出来实现 online=0 但我看库里面99%都没有点退出的。全是直接关闭浏览器~~~还有怎么防止同一用户同时登陆??
现在一台机器登陆后。在另一台一样可以登陆。无法判断。
高手能给出代码嘛???
我没有分了。就20分。以后有分一定补。江湖救急。。。
领导让我做。我搞不定了。请教高手
登陆验证的代码:
<!--#include file="../HMconnection.asp"-->
<!--#include file="../MD5/md5.asp"-->
<!--#include file="webconfig.asp"-->
<%dim username,password,userip
username=trim(request("username"))
password=trim(request("password"))
password=replace(password," ","")
password=replace(password,"'","")
password=md5(password)
UserIP=Request.ServerVariables("REMOTE_ADDR")
set rs=server.createobject("adodb.recordset")
sql="select * from user00 where username= '"&username&"' and Lockuser=0"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
%>
<script language="vbscript">
msgbox"你输入的帐号不存在,或己被管理员锁定!"
location.href="javascript:history.go(-1)"
</script>
<%
rs1.close
set rs1=nothing
response.end
else
if rs("password")<>password then
%>
<script language="vbscript">
msgbox"您输入的密码有误,请仔细检查!"
location.href="javascript:history.go(-1)"
</script>
<%
response.end
else
set rs1=server.createobject("adodb.recordset")
sql1="select * from user00 where username='"&username&"'"
rs1.open sql1,conn,1,3
rs("logins")=rs("logins")+1
rs("lastlogin")=Now()
rs("online")=1
rs("loginIP")=Request.ServerVariables("REMOTE_ADDR")
rs.update
session("username")=username
logins=rs("logins")
username=rs("username")
regtime=rs("Regtime")
session("password")=password
session("grade")=rs("grade")
session.timeout=200
rs1.close
set rs1=nothing
%>
<%
end if
end if%>
<%if request("wangye")="memberlogin" then
response.Write("window.close();")
else
response.redirect Request.ServerVariables("HTTP_REFERER")
end if
%>
<!--#include file="HMconnection.asp"-->
<%
username=session("username")
dim uloRS,uloSQL
set uloRS=server.createobject("adodb.recordset")
uloSQL="select * from user00 where username='"&username&"'"
uloRS.open uloSQL,conn,1,3
if not uloRS.EOF then
uloRS("online")=0
uloRS("logoutTime")=now()
uloRS.Update
uloRS.close
set uloRS=nothing
end if%>
<%
session("username")=""
session("password")=""
session("grade")=""
response.redirect Request.ServerVariables("HTTP_REFERER")%>
退出代码
ASP如何关闭浏览器让用户自动退出?
rs("online")=1 不要把这一句写入数据库,改为session("online")=1,这样关闭浏览器后session("online")自动清空
ASP如何关闭浏览器让用户自动退出?
else{关闭该帐号的cookie,或session之类的,反正让他不能操作}
asp.net中关闭浏览器后怎么知道用户退出
对于Asp.net来说,每一个Session都有一个生命期,默认为20分钟,这和用户是否关闭了浏览器没有关系,而是在二十分钟内,用户没有提交请求,就算session失效,这时就会触发Session_End事件,还有一种情况,就是应用程序关闭(指的是服务器关闭),这时所有未失效的Session会排成一个队列,一个一个去触发Ses...
...asp 防止同一用户重复登陆及登录超时,关闭浏览器也是退出状态的源码...
可以用 session 来做 连接数据库我就不写了 if rs.eof then response.write "错"else session("name")=name \/\/ name是变量 response.redirect"ndex.asp" \/\/跳转 end if 重复登陆可以用 session("name")<>"" 来判定 关闭浏览器 session 也就重置了 不像cookie可以保存 ...
asp.net怎么禁用浏览器的后退按钮?
这样 已经打开SomePage asp的用户如果点击后退按钮 浏览器将重新请求服务器下载页面 服务器检查到Session ( FirstTimeToPage )包含了一个值 于是就清除Session( FirstTimeToPage ) 并把用户重定向到其他页面 当然 所有 这一切都需要用户启用了Cookie 否则会话变量将是无效的 (有关该问题的更多说明 请...
结束ASP会话的情况有哪些?
ASP(Active Server Pages)会话可以在以下情况下结束:用户关闭浏览器或离开网站,此时 ASP 服务器将自动终止会话;2. 会话过期,ASP 服务器在一定时间内没有收到来自用户的请求,会话即将自动终止;3. 用户手动注销或退出登录。以上是常见的 ASP 会话结束情况。
asp关闭浏览器更新数据库
1 判断用户点击右上角的红叉叉或者按下alt+F4的时候跳转到应外一个页面专门清理用户下线的标志,然后在自己关闭,用户基本感觉不到。我就是这样做的。 function window.onbeforeunload(){ if (event.clientX>document.body.clientWidth && event.clientY<0||event.altKey){ window.open('sessionclaer...
Asp如果实现单个网页窗口关闭的时间记录反映?
其次,自动关闭的页面中包含向Access数据库写入关闭时间的代码。可以使用ADO或其他数据库访问技术与Access数据库进行交互,实现数据的写入操作。通过这样的方法,大多数通过关闭按钮关闭的网页都能记录下关闭时间。然而,对于通过其他方式关闭(如刷新、关闭浏览器窗口等)的网页,此方法可能不奏效。因此,该方法...
asp.net疑问:如何禁止浏览器后退及键盘上的BACKSPACE?
这样,已经打开SomePage.asp的用户如果点击后退按钮,浏览器将重新请求服务器下载页面,服务器检查到Session("FirstTimeToPage")包含了一个值,于是就清除Session("FirstTimeToPage"),并把用户重定向到其他页面。当然,所有这一切都需要用户启用了Cookie,否则会话变量将是无效的。(有关该问题的更多说明,...
asp中如何判断用户已经关闭浏览器?
\/\/检查新增用户窗口是否关闭 function CheckAddUserWinClosed() { if (AddUserWin.closed) { clearTimeout(ltmAddUser) document.location.href="userlist.asp" } ltmAddUser=setTimeout("CheckAddUserWinClosed()", 2000) \/\/2秒检查一次 } \/\/检查修改用户名和密码的窗口是否关闭 function ...