-- 首页 -- 公司简介 -- 产品介绍 -- 软件下载 -- 如何购买及联系方法 --
<%
CountFile=Server.MapPath("savecounter.txt")
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,-2)
count=Out.ReadLine
Out.Close
SET FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
Application.lock
count= count + 1
Out.WriteLine(count)
Application.unlock
Response.Write"document.write("& count &")"
Out.Close
%>