ASP统计有多少人访问过网站代码
2011-01-15 15:08
302 查看
<%
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%>位访问贵站的朋友
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.NET提搞网站访问速度的优化后台代码与前端做哪些优化
- 网站在线人数以及历史访问人数的统计代码
- 通过ASP禁止指定IP和只允许指定IP访问网站的代码
- 通过ASP禁止指定IP和只允许指定IP访问网站的代码
- ASP.NET 例程完全代码版(6)——网站统计模块综述(Session,Application的讨论)
- ASP.NET MVC编程入门--网站访问统计
- JS网站访问人数统计代码
- 关于asp.net和iis的进程/线程问题,假如网站有1000个人访问,会产生多少个进程/线程啊
- [ASP]网站访问统计系统生成器
- 网站在线人数以及历史访问人数的统计代码
- 网站的访问统计代码
- ASP访问数量统计代码
- JavaScript统计网站访问次数的实现代码
- JavaScript实现网站访问次数统计代码
- 网站今日访问,总访问及在线人数统计 asp.net
- 网站在线人数以及历史访问人数的统计代码
- Java代码统计网站中不同省份用户的访问数
- 网站访问统计代码
- 在asp.net里使用指定的用户运行访问Sharepoint网站的代码
- ASP访问数量统计代码