global.asa
上传用户:shbosideng
上传日期:2013-05-04
资源大小:1555k
文件大小:1k
源码类别:

SNMP编程

开发平台:

C/C++

  1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
  2. Sub Session_OnStart
  3.     ' Make sure that new users start on the correct page.
  4.     startPage = "/default.asp"
  5.     currentPage = Request.ServerVariables("SCRIPT_NAME")
  6.     ' Do a case-insensitive compare, and if they don't match, send the user to the start 
  7.     ' page.
  8.     If strcomp(currentPage,startPage,1) then
  9.         Response.Redirect(startPage)
  10.     End If
  11. End Sub
  12. Sub Session_OnEnd
  13.   ' Remove the temp images copied from the mrtg spool directory...
  14.   Set fs = CreateObject("Scripting.FileSystemObject")
  15.   fs.DeleteFile "c:inetpubmonitor.sunnyline.co.zaimagesmrtg" &_
  16.                 Session("DBLINENUMBER") & "-*.gif"
  17. End Sub
  18. </SCRIPT>