主题:  一步一步跟我学做计数器(一)

沉默是金

职务:普通成员
等级:6
金币:11.2
发贴:4357
#12004/9/24 14:07:01
干活了。
这个东西仿佛已经不再象前几年那样实用了,现在的网站流量统计一搜一大把,不过还是把最基本的东西自己整理了一下,写个初级教程吧,难得难得,生平第一次写东西,写得不好别砸我。
计数器一般有两种,一种是用数据库保存,另外也有用FSO将数据保存到一个TXT文件里,现在的XML也可以实现数据的储存。
先讲FAO吧,系统要求支持FSO组件,IIS(PWS),推荐使用:window server2000以上版本。
建立一个文件夹,取名为count,新建一文本文件count.txt,另外去搞10张小图片过来,文件名0.gif,1.gif,2.gif........9.gif,做为显示当前的计数。

还是用DW手写吧,必竟用它生成的东西不习惯,没有手写来得痛快,最重要的是软件生成的东西代码太乱维护起来特麻烦。

启动DW,新建一文件为index.asp,这个都知道吧。开始编码了。
好习惯要从小养成 ,在使用变量前别忘记了dim定义。
dim fso,filepath,mycount,countvalue,readfso
filepath = server.mappath("count.txt")
set fso=createobject("scripting.filesystemobject")
set readfso = fso.OpenTextfile(filepath)
'读取数值并保存到变量中
countvalue = readfso.readline()
readfso.close()

set mycount = fso.createtextfile(filepath)
mycount.write countvalue+1
set mycount=nothing

整个创建计数器的代码就是这么多,没有让大家失望吧。接下来要做的就是将计数器以图片的形式显示出来了,因为已经将计数值保存在变量countvalue里面了,所以只需要这上面做文章了。
dim i ,counts
counts = countvalue+1
for i=1 to len(counts)
   response.Write("<img src="&mid(counts,i,1)&".gif border=0>")
next

不是太难理解吧,有问题就说,如果哪位仁兄觉得这段代码有问题或是可以更省事的,希望说出来,我的口号:用最少的代码,做最有效率的事!
今天暂时弄到这,把我午睡的时间给霸占了,下次来讲讲用ACCESS的方法来做计数器,以及数值不随刷新而增加,累呀。


难人一个……

沉默是金

职务:普通成员
等级:6
金币:11.2
发贴:4357
#22004/9/24 14:08:09
忘记把源文件发上来了

相关文件:点这儿打开


难人一个……

吃鱼专家

职务:普通成员
等级:6
金币:11.0
发贴:5312
#32004/9/24 21:14:35
最近看到阿灰在DD版很卖力,大家都要向他学习