28,406
社区成员
发帖
与我相关
我的任务
分享猫兄来看！
数据库status:
id int
name varchar
sex varchar
status bit 默认（0）
SID int
logintime datetime
outtime datetime
global.asa：
<script language=vbscript runat=server>
set application("conn")=server.CreateObject("ADODB.connection")
application("conn").open "provider=sqloledb;data source=8760-HUA;user id=sa;password=xiaoqiang;database=bbs"
sub application_onstart()
application("activers")=0
end sub
sub session_onstart()
application.Lock ()
application("activers")=application("activers")+1
application.UnLock ()
end sub
sub session_onend()
application.Lock ()
application("activers")=application("activers")-1
application("conn").execute "update status set status=0,outtime='"&now()&"' where userid='"&session("user")&"' and SID="&session.SessionID&""
application.UnLock ()
end sub
</script>
index.asp:
<%@ Language=VBScript %>
<!--#include file="global.asa"-->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
name = Request.Form("user")
pwd = Request.Form ("pwd")
Set rs=server.CreateObject ("adodb.recordset")
strsql="select * from status where name='"&name&"' and pwd='"&pwd&"'"
rs.Open strsql,application("conn"),1,1
if rs.EOF then
Response.Write "<script>alert('没有该用户');history.go(-1)</script>"
else
flag=rs("status")
session("user")=name
if flag=true then
Response.Write "<script>alert('该用户已登陆');history.go(-1)</script>"
else
now1=now()
sid=session.SessionID
strsql1="update status set status=1,SID="&sid&",logintime='"&now1&"'where name='"&session("user")&"'"
application("conn").execute(strsql1)
Response.Write "欢迎你" & session("user") & ",当前在线人：" & application("activers")
end if
end if
%>
</BODY>
</HTML>
代码贴出来了，测试就是不行，关了窗口status还是1
等一会会话超时才改变回来！
id int
name varchar
sex varchar
status bit 默认（0）
SID int
logintime datetime
outtime datetime
global.asa：
<script language=vbscript runat=server>
set application("conn")=server.CreateObject("ADODB.connection")
application("conn").open "provider=sqloledb;data source=8760-HUA;user id=sa;password=xiaoqiang;database=bbs"
sub application_onstart()
application("activers")=0
end sub
sub session_onstart()
application.Lock ()
application("activers")=application("activers")+1
application.UnLock ()
end sub
sub session_onend()
application.Lock ()
application("activers")=application("activers")-1
application("conn").execute "update status set status=0,outtime='"&now()&"' where userid='"&session("user")&"' and SID="&session.SessionID&""
application.UnLock ()
end sub
</script>
index.asp:
<%@ Language=VBScript %>
<!--#include file="global.asa"-->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
name = Request.Form("user")
pwd = Request.Form ("pwd")
Set rs=server.CreateObject ("adodb.recordset")
strsql="select * from status where name='"&name&"' and pwd='"&pwd&"'"
rs.Open strsql,application("conn"),1,1
if rs.EOF then
Response.Write "<script>alert('没有该用户');history.go(-1)</script>"
else
flag=rs("status")
session("user")=name
if flag=true then
Response.Write "<script>alert('该用户已登陆');history.go(-1)</script>"
else
now1=now()
sid=session.SessionID
strsql1="update status set status=1,SID="&sid&",logintime='"&now1&"'where name='"&session("user")&"'"
application("conn").execute(strsql1)
Response.Write "欢迎你" & session("user") & ",当前在线人：" & application("activers")
end if
end if
%>
</BODY>
</HTML>
代码贴出来了，测试就是不行，关了窗口status还是1
等一会会话超时才改变回来！
...全文
请发表友善的回复…
发表回复
skyboy0720 2003-12-06
- 打赏
- 举报
猫兄，今天不在？！我的问题还没有解决！
smiledragon2002 2003-12-05
- 打赏
- 举报
up
luluso 2003-12-05
- 打赏
- 举报
黑狼白狼超级大笨狼,不吃母鸡的就是好狼.
超级大笨狼 2003-12-05
- 打赏
- 举报
黑猫白猫，三角猫，抓耗子就是好猫！
超级大笨狼 2003-12-05
- 打赏
- 举报
好猫！
DeltaCat 2003-12-05
- 打赏
- 举报
不好意思，刚才断了
我下午误会你的意思了
这个方法，只能在 SESSION 失效后才起作用，也就是，关闭浏览器不会触发SESSION_onend的
我又发了一个给你，你去收吧
我下午误会你的意思了
这个方法，只能在 SESSION 失效后才起作用，也就是，关闭浏览器不会触发SESSION_onend的
我又发了一个给你，你去收吧
qunluo 2003-12-05
- 打赏
- 举报
楼上说得莫名其妙！
DeltaCat 2003-12-05
- 打赏
- 举报
我明白你的意思了，实际是这样的
按你的要求，这样做是不行的
按你的要求，这样做是不行的
DeltaCat 2003-12-05
- 打赏
- 举报
不好意思，今天下午不在
monkeys 2003-12-05
- 打赏
- 举报
我想 lovehwq21(winson) 说的没错
dishui 2003-12-05
- 打赏
- 举报
他的意思是,你要在关闭IE的时候触发session_onEnd
skyboy0720 2003-12-05
- 打赏
- 举报
强调一下，userid是修改的时候没改回来，应该是name！
skyboy0720 2003-12-05
- 打赏
- 举报
其实我就是想用户退出后，把状态改变回来啊，就是一般论坛
里的用法！谁做过啊？！帮帮小弟，看哪错了，怎么样改啊！
里的用法！谁做过啊？！帮帮小弟，看哪错了，怎么样改啊！
skyboy0720 2003-12-05
- 打赏
- 举报
关闭IE跟放个页面在哪没动是一样的效果
???我不太明白你的意思啊，，我想你应该知道我想要的结果，我该怎么改!！
拜托了！！！
???我不太明白你的意思啊，，我想你应该知道我想要的结果，我该怎么改!！
拜托了！！！
lovehwq21 2003-12-05
- 打赏
- 举报
你的程序是只有到session.timeout才会执行你的session_onEnd语句的，关闭IE跟放个页面在哪没动是一样的效果
skyboy0720 2003-12-05
- 打赏
- 举报
今天下午不在？！！！
