
asp利文本文档加FSO统计网站访问量的方法
先手动创建一个rstj.txt文件,然后在此文件输入一个数字,再在rstj.txt文件的同目录下
创建一个.asp文件,内容如下:
<%
Function rstj()
dim fso,f1,ts,s
Const ForReading=1
Set fso=CreateObject("Scripting.FileSystemObject")
Set ts=fso.OpenTextFile(Server.MapPath("rstj.txt"),ForReading,true,-2)
s=ts.Readline
ts.close
set fso=createobject("scripting.filesystemobject")
set f1=fso.createtextfile(server.mappath("rstj.txt"),true,true)
f1.writeline s+1
f1.close
Set ts=fso.OpenTextFile(Server.MapPath("rstj.txt"),ForReading,true,-2)
s=ts.Readline
rstj=s
ts.close
End Function
%>
您是第<%=rstj%>位访问贵站的朋友
您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。