ASP统计有多少人访问过网站代码
来源:互联网 发布:淘宝买处方药药师回拨 编辑:程序博客网 时间:2024/04/30 03:30
<%
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统计有多少人访问过网站代码
- ASP统计当前有多少人在线
- 网站访问统计代码
- iOS统计有多少行代码
- 统计项目有多少行代码
- 网站的访问统计代码
- [ASP]网站访问统计系统生成器
- JS网站访问人数统计代码
- js统计网站访问次数的代码
- 【代码】统计网站的访问次数
- vs2010统计整个工程有多少行代码
- vs2013统计整个工程有多少行代码
- 统计文本有多少行的java代码
- iOS开发--统计自己的工程有多少行代码
- vs2010统计整个解决方案/工程有多少行代码
- 项目代码行数统计器,帮助你统计项目一共有多少行代码
- 在深圳,请问有多少人没有被偷过?
- 统计数据库有多少数据量
- 【原型设计工具】Balsamiq Mockups 介绍
- 中国压缩传感资源(China Compressive Sensing Resources)
- Nunit单元测试
- ABAP 动态生成内表的两种方法(Two Methods of Dynamic Internal Table Creation)
- 2011.1.15
- ASP统计有多少人访问过网站代码
- ubuntu 安装phpmyadmin
- Perl学习笔记【Learning Perl】【更新中】
- javascript作用域链(Scope Chain)初探
- 弹出小窗体
- 课程设计之航空订票系统
- ASP统计当前有多少人在线
- 单个adoconnection 因网络不稳定导致的物理连接断开问题
- BW:关于PSA的错误数据