<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>