关于ASP的GLOBAL.ASA问题

来源:百度知道 编辑:UC知道 时间:2024/07/06 23:30:53
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnStart
Application.lock
Application("online")=Application("online")+1
Application.UnLock
End Sub

Sub Session_OnEnd
getcustomers
End Sub

sub getcustomers
Application.lock
Application("online")=Application("online")-1
Application.UnLock
set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("data/db1.mdb")
sql="update user set online='No' where sid='"&session.sessionid&"'"
conn.execute (sql)
conn.close
set conn=nothing
end sub
</SCRIPT>

Sub Session_OnEnd
getcustomers
End Sub

sub getcustomers
Application.lock
Application("online")=Application("online")-1
Application.UnLock
set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("data/db1.mdb")
sql="update user set online='No' where sid='"&session.sessionid&"'"
conn.execute (sql)
conn.close
set conn=nothing
end sub