ASP网站如何实现您是第几位访客
以前阿权站长曾实现过:显示网站您是第几位访客,当然互联网上第三方工具也很多,他们的样式也更加好看,今天阿权就把自己以前的代码贴出来,仅供大家参考,不妥之处敬请谅解!
网站如何实现您是第几位访客:
首先,在自己网站的根目录下建立floyou.txt文档。文档中输入数据0,这个数据就是访客数的初始数据。然后在自己网站中要显示您是第几位访客的地方加入以下代码,如果在每个页面都有这个代码,那么每进入一个页面访客就自动加1。
您是第几位访客ASP代码如下:
<%
CountFile=Server.MapPath("floyou.txt")
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counter=Out.ReadLine
Out.Close
SET FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
Application.lock
counter= counter + 1
Out.WriteLine(counter)
Application.unlock
’为了在页面正确显示计数器的值,调用VBScript函数Document.write
htm = htm&(" 您是第")
htm = htm&("")
htm = htm&(counter)
’把计数器的值传送到浏览器,以红(red)色显示给用户
htm = htm&("")
htm = htm&("位访问者")
Out.Close
%>
本文地址:http://www.seozz.net/zzseo/fangketj.html
本文标题:ASP网站如何实现您是第几位访客