<Script Language=VBScript RunAt=Server>
'定义全局变量
Set fs = Server.CreateObject("Scripting.FileSystemObject") '定义FileSystemObject对象
Sub Application_OnStart()
counter_file = Server.MapPath("counter.txt") '定义counter_file对象，保存counter.txt的绝对物理路径
Set txt = fs.OpenTextFile( counter_file ) '打开counter.txt文件，返回txt对象
'从counter.txt文件中读取一行数据，保存到Application对象counter中
Application("counter") = txt.ReadLine
txt.Close
Application("counter_file") = counter_file '将counter_file保存在Application对象中
End Sub
Sub Application_OnEnd()
counter_file = Application("counter_file")
Set txt = fs.CreateTextFile( counter_file, true, false) '打开counter.txt文件，返回txt对象
txt.WriteLine(Application("counter")) '从counter.txt文件中读取一行数据，保存到Application对象counter中
txt.Close '关闭txt对象
End Sub
</script>
