武林外传戟神门派:网页问题~~~~!高手来~!

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/29 01:13:23
现在我已经作好我的网站了~~但现在我想用个代码来统计别人或自己登陆的次数~!也就是我想查看它被点击次数,而且此源代码完全可以更改的,
请知道的给我点代码?

登陆?你的网站是论坛么,还是你需要统计页面的访问次数阿?

可以通过Global.asa文件中的Application和Session来实现。

'计数器加一
sql="update system set cnt=cnt+1"
cn.execute(sql)

'访问者计数
sql="select * from system"
set rs=cn.execute(sql)
if not rs.EOF then
vcount=rs("cnt")
udate=rs("udate")
end if

网页上的显示:
您是第<font color=red><i> <%=Cstr(vcount)%> </i></font>位访问者</p>

用ASP即可实现,代码如下:
<%
Set F1 = 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) & "\*.txt"
On Error Resume Next
Set InStream= F1.OpenTextFile (HitsFile, 1, false )
OP = Trim(InStream.ReadLine)
if session("connected")="" then
OP = OP + 1
else
OP=OP
end if
HI=OP
session("connected")=true
Set OutStream= FileObject.CreateTextFile (HI, True,false)
OutStream.WriteLine(OP)
%>
在网站根目录系统自动创建*.txt文件(文件名自定,将代码中的*.txt修改即可),以后只要点击主页(当然代码是在主页中)自动加1,但是已经进入的刷新是不会加1的。在需要显示的地方加下面的代码:
您是第<%=OP%>位访问我站的嘉宾!