ASP图形计数器设计详解

这里介绍一种不用CGI而设计出的漂亮的图形计数器。
这里分为三部分：1，建立图形文件。
2，建立数据库。
3，编写代码。
1，建立图形文件。
首先，用做图软件制作10个图形，用于显示计数
器的十个数字：1，2，3，4，5，6，7，8，9，0。如果
你有美术才能，还能做出更好的图形。
2，建立数据库。
用建立一个数据库，名字为。数据库包含一个表，
名字为，结构为：整数，有一条记录，初始值为0。
用于存放上一次访问本页面的次数。
3，编写代码。
——————number.asp————————————

1@ language="vbscript"

 1   
 2set objconn=server.createobject("adodb.connection")   
 3objconn.attributes=adxactcommitretaining   
 4dbpath=server.mappath("num.mdb")   
 5objconn.open "driver={microsoft access driver (*.mdb)};dbq=" & dbpath   
 6注释：与数据库建立连接。 
 7
 8sqlquery= "select * from numt"   
 9set rsrecordset=server.createobject("adodb.recordset")   
10rsrecordset.open sqlquery,objconn,adopenkeyset,adlockoptimistic   
11注释：打开数据库。 
12
13application.lock   
14application("nmb")=rsrecordset("number")   
15application.unlock   
16注释：把上一次访问次数赋给Application对象 
17
18application.lock   
19application("nmb")=application("nmb")+1   
20application.unlock   
21rsrecordset("number")=rsrecordset("number")+1   
22rsrecordset.update   
23rsrecordset.close   
24objconn.close   
25set rsrecordset=nothing   
26set objconn=nothing   
27注释：关闭数据库，释放对象 
28
29dim nmb1   
30dim str()   
31nmb1=application("nmb")   
32redim str(nmb1)   
33for i=1 to len(nmb1)   
34str(i)=mid(nmb1,i,1)   
35注释：对于每一个数得到相应的图形文件 
36
37select case str(i)   
38case"0"   
39imgF="0.gif"   
40case"1"   
41imgF="1.gif"   
42case"2"   
43imgF="2.gif"   
44case"3"   
45imgF="3.gif"   
46case"4"   
47imgF="4.gif"   
48case"5"   
49imgF="5.gif"   
50case"6"   
51imgF="6.gif"   
52case"7"   
53imgF="7.gif"   
54case"8"   
55imgF="8.gif"   
56case"9"   
57imgF="9.gif"   
58end select   
59注释：输出图形 
60
61response.write"

1"   
2next