global.asa

我的小网站个人利用业余时间设计的

<Script Language="VBScript" Runat="Server">
Sub Session_OnStart
'设定有效执行时间为10分钟
Session.timeout=10
End Sub

Sub Session_OnEnd
'当一个用户超过有效执行时间，清空在application对象中的用户共享信息
for i=1 to 60
if application("user"&i)=session("name") then
application("ip"&i)=""
application("user"&i)=""
end if
next
End Sub

Sub Application_OnStart
End Sub

Sub Application_OnEnd
'清空用户会话信息的同时清空保存在application对象中的信息
for i=1 to 60
if application("user"&i)=session("name") then
session("name")=""
application("ip"&i)=""
application("user"&i)=""
end if
next
End Sub

</Script>