版权所有：江苏生命科技创新园 ? 2000-2009
地址：南京市仙林大学城 纬地路9号 咨询热线：025-85753502 传真：025-85753502
备案号：申请中 技术支持： 南京第一网络 流量统计 您是第 <%
CountFile=Server.MapPath("count.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(counter)
Out.Close
%> 位访问者 |