9_13.asp

来自「《asp网页设计》作者沈才梁源代码,共十章」· ASP 代码 · 共 19 行

<%
TxtFile=Server.MapPath("count.txt")
'Server服务器访问方法MapPath(path)是将存放计数器值的文件所在的路径转换成物理路径
'先创建一个文件系统对象实例FSO
set FSO=Server.CreateObject("Scripting.FileSystemObject")
'先从count.txt读取原有的计数值
Set ThisFile=FSO.OpenTextFile(TxtFile)
Visitors=ThisFile.ReadLine
ThisFile.CLose
'将计数加1
Visitors=Visitors+1
'将计数值重新保存到文件Count.txt中
Set Out = FSO.CreateTextFile(TxtFile)
out.WriteLine(Visitors)
Out.CLose
set FSO=nothing
%>
您是第<%=Visitors%>次访问本站