程序原代码如下：

　　$#@60;％countlong=8
′countlong定义计数器显示位数
　　On Error Resume Next
′ 忽略所有的错误
　　count=server.mappath(″count.txt″)
　　set cou = server.createobject(″scripting.filesystemobject″)
　　set out=cou.opentextfile(count,1,false,false)
　　counter=out.readline
　　out.close
　　′以上代码是打开文件count.txt并读取一行,读出目前计数器的值
　　if session(″in″)$#@60;$#@62;″in″ then
　　′判断用户是否已进入主页，以确保他按刷新或再次来到此页面时计数器不会再加1
　　session(″in″)=″in″
　　set out = cou.createtextfile(count,true,false)
　　application.lock
　　counter=counter＋1
′计数器加1
　　out.writeline(counter)
　　application.unlock
　　out.close
　　′以上代码是建立一个新的文件count.txt并写入一行，写入加1后计数器的值