如何在网站底部显示第几位访客代码

很多网站下面都显示有您是第多少位访客，这样方便自己统计网站浏览人数的同时，也是在像网站浏览者炫耀我的网站有很多人访问，这样别人会觉得我们的网站会很不错，那么网站建设完成后如何在网站底部加入这样一段统计人数的代码，步骤到如下

第一步：将下面代码插入到首页的一个表格里就可以了。

 

<%

 

CountFile=Server.MapPath("txtcounter.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

 

Response.Write"document.write("&counter&")"

 

Out.Close

 

%>

 

第二步：

 

在同一个文件夹下建立一个txtcounter.txt的文本文件，在里面填上数字，随便什么都行，就从填入的这个数据开始计数

当然开始的时候我们网站肯定没有太多人访问，为了吸引别人，让别人以为我们网站已经有很多人访问可以把txtcouter.txt里面填上自己想要的数字，该数字就是现在网站访问的人数