关于一个用户登录后注销的问题!!!急!!!!!!!!!!!!!
我做的毕业设计,会员登录后把会员的资料存在这里
response.Cookies("huiyuan")("username")=trim(request("username"))
response.Cookies("huiyuan")("jifen")=rs("jifen")
response.Cookies("huiyuan")("jiaoyijine")=rs("jiaoyijine")
同时,把字段isonline设置为1表示在线。用户点击注销的时候,再把isonline设置回0,表示不在线。
问题是,如果会员不点击注销,直接关闭浏览器,怎么将数据库里的isonline改为0,即不在线。
下面是我写的global文件,
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
sub Application_OnStart
End sub
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnStart
Session.Timeout=1
End Sub
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnEnd
set conn = server.createobject("adodb.connection")
conn.ConnectionString = "Provider=SQLOLEDB.1;Password=sa; Persist Security Info=Ture;User ID=sa;Initial Catalog=bysj;Data Source=(local)"
conn.CommandTimeout = 900
conn.ConnectionTimeout = 900
conn.open
sql="select * from [user] where username='"&request.cookies("huiyuan")("username")&"'"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("isonline")=0
rs.update
rs.close
set rs=nothing
End sub
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnEnd
End sub
</SCRIPT>
关闭浏览器后,这个文件并没有执行,请高人帮忙,谢谢了~~~~~~~~~~~~

