global.asa

来自「诚信商店系统源代码」· ASA 代码 · 共 43 行

<script language=Vbscript runat=Server>
Sub Application_onstart
	Application("online")=0
	Application("UserName")=""
End Sub

Sub Session_Onstart
	Session.timeout=20
    UserID=date()
    UserID=UserID&time()
    UserID=replace(UserID,"-","")
    UserID=replace(UserID,":","")
    UserID=replace(UserID," ","")
	Application.lock
	Application("online")=Application("online")+1
	Application("UserName")=Application("UserName")&UserID&","&request.servervariables("remote_addr")&",游客,"&now&"||"
	session("UserID")=UserID
	Application.Unlock
End sub

Sub Session_Onend
	Application.lock
	Application("online")=Application("online")-1
	tmpUser=split(Application("UserName"),"||")
	tmpUserID=session("UserID")
	j=-1
	for i=0 to Ubound(tmpUser)-1
		aa=split(tmpUser(i),",")
		if  aa(0)<>tmpUserID then 
			tmpOnline=tmpOnline&aa(0)&","&aa(1)&","&aa(2)&","&aa(3)&"||"
		end if
	next
	Application("UserName")=tmpOnline
	Application.Unlock
End sub

Sub Application_onend
	Application("online")=0
	Application("UserName")=""
End sub
</script>