ASP基础入门第九篇(Global.asa文件的使用)(global.asax在哪)干货满满

随心笔谈1年前发布 编辑
152 0


< SCRIPT LANGUAGE=”VBScript” RUNAT=”Server”>

‘Session_OnStart 当客户首次运行 ASP 应用程序中的任何一个页面时运行

‘Session_OnEnd 当一个客户的会话超时或退出应用程序时运行

‘Application_OnStart 当任何客户首次访问该应用程序的首页时运行

‘Application_OnEnd 当该站点的 WEB 服务器关闭时运行

< /SCRIPT>

< SCRIPT LANGUAGE=”VBScript” RUNAT=”Server”>

Sub Application_OnStart

VisitorCountFilename=Server.MapPath (“/ex2”) + “\VisitCount.txt”

Set FileObject=Server.CreateObject(“Scripting.FileSystemObject”)

Set Out=FileObject.OpenTextFile (VisitorCountFilename, 1, FALSE, FALSE)

Application(“visitors”)=Out.ReadLine

Application(“VisitorCountFilename”)=VisitorCountFilename

End Sub
‘=========================================================SUB Application_OnEnd

Set FileOutObject=Server.CreateObject(“Scripting.FileSystemObject”)

Set Out=FileOutObject.CreateTextFile (Application(“VisitorCountFilename”), TRUE,FALSE)

Out.WriteLine(application(“visitors”))

End Sub
‘=========================================================Sub Session_OnStart
Session.Timeout=5

Application(“visitors”)=Application(“visitors”) + 1

Session(“ID”)=Session.SessionID

End Sub

< /SCRIPT>

© 版权声明

相关文章