<%
Sub IncrementCounter()
Set fs = Server.CreateObject("Scripting.FileSystemObject")
counter_file = Server.MapPath("/c/counter2.txt")
Set txt = fs.OpenTextFile( counter_file )
Application("counter") = txt.ReadLine
txt.Close
Application("counter") = Application("counter") + 1
Set txt = fs.CreateTextFile( counter_file, True )
txt.WriteLine(Application("counter"))
txt.Close
End Sub
Application.Lock
IncrementCounter ' 将访问计数器加一,并写入到文件中
Application.UnLock
%>
北京诚信保险代理有限公司
