?? global.asa
字號:
<script language=Vbscript runat=Server>
//程序運行初始化
Sub Application_onstart
'在線數量初始為0
Application("online")=0
'初始在線人員列表
Application("userList")=","
End Sub
//每觸發一個session ID 都會觸發此事件,即每有一個新的客戶端鏈接到此頁都會觸發些事件
Sub Session_Onstart
//設定session的有效時間為10分
Session.timeout=600
//鎖定Application,不允許其它程序對其進行修改
Application.lock
//在線數加一
Application("online")=Application("online")+1
Application("userList")=","+sessionId
//放開Application,允許其它程序對其進行修改
Application.Unlock
End sub
//每放棄一個session ID,可以是退出,可以是長時間不活動
Sub Session_onend
Application.lock
//在線數減一
Application("online")=Application("online")-1
Application.Unlock
End sub
//程序運行結束
Sub Application_onend
Application("online")=0
End sub
</script>
<!--聲明一個FileSystemObject組件,其調用ID為 fso -->
<Object
Runat="Server"
Scope="Application"
Id="fso"
Progid="Scripting.FileSystemObject">
</Object>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -