ASP统计有多少人访问过网站代码

<%
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 function
个人分类: web开发
上一篇hibernate 连接DB2
下一篇ASP统计当前有多少人在线
想对作者说点什么? 我来说一句

IIS日志分析工具 v3.0

2008年09月13日 1.2MB 下载

web服务器 CCookie类

2014年06月06日 1KB 下载

如何实时知道多少人在线

2011年07月19日 21KB 下载

没有更多推荐了,返回首页

关闭
关闭