网页计数器的程序：....多多指真。

网页计数器DIY
随着网络大行其道，网页计数器也流行起来。事实上大多数网站均有网页计数器，用以反映该网站的访问量。计数器的来源很广，Frontpage等网页编辑器自带了网页计数器，有的站点也提供免费的计数器下载。其实熟悉了ASP编程后，自己做一个计数器很容易。下面介绍一种实现方法。
计数器原理是:在第一次使用网页时置初始值1，以后每请求网页一次，将计数器值加1。这样我们只要在服务器上放置一个文本文件counter.txt，文本文件的内容有计数器的值，以后每请求一次页面，读出文本文件的计数器的数值，加1显示，然后再将原来的值改变为加1后的值，保存到文本文件。至于初始置1，在服务器上可先不建counter.txt，在网页中，先判断服务器上是否有counter.txt文件，没有就生成counter.txt，在counter.txt中写入1，网页上显示计数器值1，完成初始置1。以后每次只要到指定目录下将counter.txt文件删除即可置初始值。
具体操作时要有显示数字0、1、2….9的图像文件，0.gif、1.gif、2.gif…9.gif，文件不能太大，一般18*25即可。将你要放计数器的网页布局设计完毕，再改成ASP文件，将下面代码输入到要显示计数器的地方，使用时，程序将自动在虚拟目录count下建立counter.txt文件。置初始值时将文件删除即可。对了，虚拟目录count必须给everyone有写的权限。
<%
Const ForReading = 1, ForWriting = 2, ForAppending =3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
filepath=server.mappath("/count")
filename=filepath+"counter.txt"
set fs=createobject("scripting.filesystemobject")
if fs.fileexists(filename) then
    set f=fs.getfile(filename)
    Set ts = f.OpenAsTextStream(ForReading,
TristateUseDefault)
    s=ts.readline+1
    ts.close
else
    fs.createtextfile(filename)
    set f=fs.getfile(filename)
    s=1
end if
'向counter.txt中写数据
Set ts = f.OpenAsTextStream(ForWriting,
TristateUseDefault)
ts.writeline(cstr(s))
ts.close
'显示计数器
s=cstr(s+1000000)