這里介紹一種不用CGI而設計出的漂亮的圖形計數器。
這里分為三部分：1，建立圖形文件。
            2，建立數據庫。
            3，編寫代碼。
1，建立圖形文件。
  首先，用做圖軟件制作10個圖形，用于顯示計數
器的十個數字：1，2，3，4，5，6，7，8，9，0。如果
你有美術才能，還能做出更好的圖形。
2，建立數據庫。
  用建立一個數據庫，名字為。數據庫包含一個表，
名字為，結構為：整數，有一條記錄，初始值為0。
用于存放上一次訪問本頁面的次數。
3，編寫代碼。
——————number.asp———————————— 
<%@ language="vbscr<!--#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
%>