global.asa

项目开发对初学者来说非常重要

<Script Language=VBScript RUNAT=Server>

SUB Session_OnStart
Response.AppendToLog Session.SessionID&" Starting"
MyHomepage="/homepage.asp"
RequestPage=Request.ServerVariables("SCRIPT_NAME")
IF NOT (STRCOMP(MyHomePage,RequestPage,vbTextCompare)=0) THEN
Response.Redirect MyHomePage
END IF
END SUB

SUB Session_Onend
Response.AppendToLog Session.SessionID&" Ending"
END SUB


</SCRIPT>