global.asa 中以 <SCRIPT RUNAT="Server"> 定義Session_OnStart:新會話建立時觸發,執行於請求頁面之前Session_OnEnd:呼叫 Abandon 或逾時時觸發初始化會話變數:
<Script Language="VBScript" Runat="Server">
Sub Session_OnStart
Session("UserName") = "未知"
Session("Password") = "未知"
End Sub
</Script>
強制首頁導向(防止深層連結直接進入):
<Script Language="VBScript" Runat="Server">
Sub Session_OnStart
homePage = "/myasp/index.asp"
requestPage = Request.ServerVariables("SCRIPT_NAME")
If homePage <> requestPage Then
Response.Redirect homePage
End If
End Sub
</Script>
myasp,放入 global.asa 與 index.asp1 放入 1.asphttps://localhost/myasp/1/1.asp → 自動導向 index.asp<script language="vbscript" runat="server">
Sub Session_OnEnd
Response.AppendToLog Session.SessionID & Timer()
End Sub
</script>
善用 Session 事件可實作登入狀態初始化、存取控制、使用者行為追蹤等核心功能。