<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>