global.asa

这是一个网上书店的源代码

<script language=vbscript runat=server>
Sub Application_OnStart()
	'构建一个FileSystemObject对象实例，
	'并将其赋值给对象变量fs
	set fs=Server.CreateObject("Scripting.FileSystemObject")
	'获取记录访问人数的Counter.txt文件的物理路径
	'并将其赋值给变量Application("filename")
	Application("filename")=Server.MapPath("Counter.txt")
	'如果文件不存在，则创建该文件并打开它
	Set ts=fs.OpenTextFile(Application("filename"),1,True)
	If ts.AtEndOfStream Then'如果文件只能感没有内容
	    counter=0'指定初始值为0
	Else
	    counter=ts.ReadLine'读取计数文件中的值
	End if
	Application("Counter")=counter'赋值给应用程序变量	
	ts.Close
End Sub

Sub Session_OnStart()
	'锁定应用程序变量，防止多个用户同时修改应用程序变量
	Application.Lock
	'访问人数增加1
	Application("Counter")=Application("Counter")+1
	'解锁以内功用程序变量，让其他用户修改该变量
	Application.UnLock
	set fs=Server.CreateObject("Scripting.FileSystemObject")
	Set ts=fs.CreateTextFile(Application("filename"),true)'覆盖原来的文件
	ts.WriteLine(Cstr(Application("counter")))'将当前值写入到文件中
	ts.Close
End Sub
</script>