| 用ASP编写自己的计数器 |
| ［ 作者：佚名 转贴自：转载 阅读次数：779 更新时间：2005-1-10 1:05:00 录入：蓝色动力 ］ 热 |
|
|
|
很多网友在制作完个人主页后,都忘不了去申请一个免费计数器放在主页上,来看看自己的网站的访问量究竟如何。有些人一定会对它感到很神奇，其实如果我们用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=0.gif width=13 height=20 >< /img >"
next
'如果访问人数的长度小于6位，则在前面补“0“
for i=1 to countlen
response.write "< img src="&mid(visitors,i,1)&".gif width=13
height=20 >< /img >"
next
'.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 >
|
|
|
下载中心
先飞电脑技术网 →
技术文章