ASP图形计数器设计详解

　　这里介绍一种不用CGI而设计出的漂亮的图形计数器。
这里分为三部分：1，建立图形文件。
2，建立数据库。
3，编写代码。
1，建立图形文件。
首先，用做图软件制作10个图形，用于显示计数
器的十个数字：1，2，3，4，5，6，7，8，9，0。如果
你有美术才能，还能做出更好的图形。
2，建立数据库。
用建立一个数据库，名字为。数据库包含一个表，
名字为，结构为：整数，有一条记录，初始值为0。
用于存放上一次访问本页面的次数。
3，编写代码。
——————number.asp————————————
<%@ language=vbscript %>
<%
objconn.attributes=adxactcommitretaining
dbpath=server.mappath(num.mdb)
objconn.open driver={microsoft access(小型网站之最爱) driver (*.mdb)};dbq= dbpath
注释：与数据库建立连接。

　　sqlquery= select * from numt
set rsrecordset=server.createobject(adodb.recordset)
rsrecordset.open sqlquery,objconn,adopenkeyset,adlockoptimistic
注释：打开数据库。

　　application.lock
application(nmb)=rsrecordset(number)
application.unlock
注释：把上一次访问次数赋给Application对象

　　application.lock
application(nmb)=application(nmb)+1
application.unlock
rsrecordset(number)=rsrecordset(number)+1
rsrecordset.update
rsrecordset.close
objconn.close
set rsrecordset=nothing
set objconn=nothing
注释：关闭数据库，释放对象

　　dim nmb1
dim str()
nmb1=application(nmb)
redim str(nmb1)
for i=1 to len(nmb1)
str(i)=mid(nmb1,i,1)
注释：对于每一个数得到相应的图形文件

　　select case str(i)
case0
imgF=0.gif
case1
imgF=1.gif
case2
imgF=2.gif
case3
imgF=3.gif
case4
imgF=4.gif
case5
imgF=5.gif
case6
imgF=6.gif
case7
imgF=7.gif
case8
imgF=8.gif
case9
imgF=9.gif
end select
注释：输出图形

　　response.write<img src=imgF>
next
%>