global.asa
上传用户:shbosideng
上传日期:2013-05-04
资源大小:1555k
文件大小:1k
- <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
- Sub Session_OnStart
- ' Make sure that new users start on the correct page.
- startPage = "/default.asp"
- currentPage = Request.ServerVariables("SCRIPT_NAME")
- ' Do a case-insensitive compare, and if they don't match, send the user to the start
- ' page.
- If strcomp(currentPage,startPage,1) then
- Response.Redirect(startPage)
- End If
- End Sub
- Sub Session_OnEnd
- ' Remove the temp images copied from the mrtg spool directory...
- Set fs = CreateObject("Scripting.FileSystemObject")
- fs.DeleteFile "c:inetpubmonitor.sunnyline.co.zaimagesmrtg" &_
- Session("DBLINENUMBER") & "-*.gif"
- End Sub
- </SCRIPT>