<%
Function rstj()
dim fso,f1,ts,s
Const ForReading=1
Set fso=CreateObject("Scripting.FileSystemObject")
Set ts=fso.OpenTextFile(Server.MapPath("counter.txt"),ForReading,true,-2)
s=ts.Readline
ts.close
set fso=createobject("scripting.filesystemobject")
set f1=fso.createtextfile(server.mappath("counter.txt"),true,true)
f1.writeline s+1
f1.close
Set ts=fso.OpenTextFile(Server.MapPath("counter.txt"),ForReading,true,-2)
s=ts.Readline
rstj=s
ts.close
End Function
%>
您是第<%=rstj%>位访问贵站的朋友
本文介绍了一种使用ASP脚本实现网站访问计数器的方法。通过创建文件系统对象读取和更新计数器文件,实现了对网站访问次数的记录。
216

被折叠的 条评论
为什么被折叠?



