健爽白牙膏效果怎么样:如何统计我的网页的点击次数?

来源:百度文库 编辑:中科新闻网 时间:2024/05/09 00:07:44
不要用软件,要用代码。
代码要详细点。谢谢!
//采用后追加奖分

<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Dir = Request.ServerVariables("SCRIPT_NAME")
Dir = StrReverse(Dir)
Dir = Mid(Dir, InStr(1, Dir, "/"))
Dir = StrReverse(Dir)
HitsFile = Server.MapPath(Dir) & "\hits.txt"
On Error Resume Next
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
OldHits = Trim(InStream.ReadLine)
if session("connected")="" then
OldHits = OldHits + 1
else
OldHits=OldHits
end if
NewHits=OldHits
session("connected")=true
Set OutStream= FileObject.CreateTextFile (HitsFile, True,false)
OutStream.WriteLine(OldHits)
%>
在根目录新建hits.txt文本文件,并且在文件中输入数字,例如213。
加在需要统计的网页,然后调用OldHits变量即可(<%=OldHits%>)。

设计一个统计的网页
加我QQ285462536 我叫你