谁能给一个网页计数器代码？

建议使用百灵计数器，http://www.bransta.cn

一个简单的网页浏览计数器代码

在一个ASP文件中的适当位置，加入下列代码：

<%
'一个简单的网页计数器
Set fs=CreateObject("Scripting.FileSystemObject")
Set a=fs.openTextFile(server.mappath("count.txt"))
count=a.readline
response.write " " & count
count=count+1
Set fs=CreateObject("Scripting.FileSystemObject")
Set a=fs.createTextfile(server.mappath("count.txt"))
a.writeline(count)
%>
保存ASP文件（比如：index.asp)，发送到web服务器你的网站目录。

然后在该ASP文件所在的目录创建一个名叫count.txt的文件 （可以通过xp自带的记事本创建），在该count.txt文件中写上1，这样当网民浏览该ASP网页时，就能在适当位置看到1，并且每浏览一次该网页就增加一个数。

< %
If Application("NumVisits")< 999 then
Application("NumVisits")=999
End If
Application.Lock
Application("NumVisits")=Application("NumVisits")+1
Application.Unlo