---- 很多网友在制作完个人主页后,都忘不了去申请一个免费计数器放在主页上,来看看自己的网站的访问量究竟如何。有些人一定会对它感到很神奇，其实如果我们用ASP来编程的话，你会发觉它很简单。 

---- ASP(Active Server Pages)是一种服务器端的脚本语言，它用的语言是网友们所熟悉的Javascript或Vbscript,或者两者的结合。对网友们来说，只要在你的电脑上装上PWS就能实现它的强大功能了。好了，现在我们正式开始介绍计数器的制作思路： 

---- (1)打开一个存放访问人数的文本文件; 

---- (2)读取文本文件中的数值,将它转换成对应的图象; 

---- (3)将访问人数加1后,存入该文本文件. 

---- 源程序如下： 

< html >
< head >
< title >计数器< /title >
< /head >
< body >
< % dim visitors　'定义存放访问人数的变量
whichfile=server.mappath("count.txt")
set fs=CreateObject("Scripting.FilesystemObject")
'创建一个FilesystemObject对象的实例，用它来操作文本文件
set thisfile=fs.OpenTextFile(whichfile)
'打开文本文件
visitors=thisfile.readline
'读取保存在文本文件中的访问人数
thisfile.close
countlen=len(visitors)
'存放访问人数的位数
for i=1 to 6-countlen
response.write "< img src="/edu/files/pic/2006-5/21/0652110324297983.gif"为存有各个数字的图象，以上语句截取出对应的数字并转换为图象
visitors=visitors+1
set out=fs.CreateTextFile(whichfile)
out.Writeline(visitors)
'计数器加1，并将之写入文本文件
out.close
set fs=nothing % > 
< /body >
< /html >

---- 就这么简单，你肯定想亲手试一试吧！可以在http://go.163.com/moneyfirst/count.zip < http://go.163.com/moneyfirst/count.zip > 下载文件包，还可以在http://61.139.70.171/hxj /count.asp < http://61.139.70.171/hxj/count.asp > 直接测试本计数器。 
---- 喜欢ASP编程的网友们别忘了来信交流哟： hxjlove@263.net < mailto:hxjlove@263.net >