計數器|設計|圖形|詳解 這裡介紹一種不用CGI而設計出的漂亮的圖形計數器。
這裡分為三部分：1，建立圖形檔案。
2，建立資料庫。
3，編寫代碼。
1，建立圖形檔案。
首先，用做圖軟體製作10個圖形，用於顯示計數
器的十個數字：1，2，3，4，5，6，7，8，9，0。如果
你有美術才能，還能做出更好的圖形。
2，建立資料庫。
用建立一個資料庫，名字為。資料庫包含一個表，
名字為，結構為：整數，有一條記錄，初始值為0。
用於存放上一次訪問本頁面的次數。
3，編寫代碼。
——————number.asp————————————
<%@ language="vbscript" %>
<!--#include file="adovbs.inc"-->
<%
set objconn=server.createobject("adodb.connection")
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)
case"0"
imgF="0.gif"
case"1"
imgF="1.gif"
case"2"
imgF="2.gif"
case"3"
imgF="3.gif"
case"4"
imgF="4.gif"
case"5"
imgF="5.gif"
case"6"
imgF="6.gif"
case"7"
imgF="7.gif"
case"8"
imgF="8.gif"
case"9"
imgF="9.gif"
end select
注釋：輸出圖形
response.write"<img src="&imgF&">"
next
%>
