<% 　　CountFile=Server.MapPath("txtcounter.txt") 　　Set FileObject=Server.CreateObject("Scripting.FileSystemObject") 　　Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE) 　　counter=Out.ReadLine 　　Out.Close 　　SET FileObject=Server.CreateObject("Scripting.FileSystemObject") 　　Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE) 　　Application.lock 　　counter= counter + 1 　　Out.WriteLine(counter) 　　Application.unlock 　　Response.Write"document.write("&counter&")" 　　'为了在页面正确显示计数器的值，调用VBScript函数Document.write 　　Out.Close 　　%>