global.asa

来自「JavaScript_VBScript网页编程实例」· ASA 代码 · 共 16 行

<OBJECT RUNAT=Server SCOPE=Session ID=MyInfo PROGID="MSWC.MyInfo">
</OBJECT>
<OBJECT RUNAT=Server  SCOPE=Session ID=Adoobject PROGID="ADODB.Connection">
</OBJECT>
<SCRIPT RUNAT=SERVER LANGUAGE=VBScript>
Sub Application_OnStart
Response.Buffer=true
StartPage="logon.html"
Currentpage=Request.ServerVariables("SCRIPT_NAME")
if Currentpage<>StartPage then
Response.Buffer=false
Response.redirect(StartPage)
End if
End sub
</SCRIPT>