這裡介紹一種不用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
%>