ASP圖形計數(shù)器設(shè)計詳細(xì)說明

這里介紹一種不用CGI而設(shè)計出的漂亮的圖形計數(shù)器。
這里分為三部分：1，建立圖形文件。
            2，建立數(shù)據(jù)庫。
            3，編寫代碼。
1，建立圖形文件。
  首先，用做圖軟件制作10個圖形，用于顯示計數(shù)
器的十個數(shù)字：1，2，3，4，5，6，7，8，9，0。如果
你有美術(shù)才能，還能做出更好的圖形。
2，建立數(shù)據(jù)庫。
  用建立一個數(shù)據(jù)庫，名字為。數(shù)據(jù)庫包含一個表，
名字為，結(jié)構(gòu)為：整數(shù)，有一條記錄，初始值為0。
用于存放上一次訪問本頁面的次數(shù)。
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
注釋：與數(shù)據(jù)庫建立連接。

sqlquery= "select * from numt"
set rsrecordset=server.createobject("adodb.recordset")
rsrecordset.open sqlquery,objconn,adopenkeyset,adlockoptimistic
注釋：打開數(shù)據(jù)庫。

application.lock
application("nmb")=rsrecordset("number")
application.unlock
注釋：把上一次訪問次數(shù)賦給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
注釋：關(guān)閉數(shù)據(jù)庫，釋放對象

dim nmb1
dim str()
nmb1=application("nmb")
redim str(nmb1)
for i=1 to len(nmb1)
str(i)=mid(nmb1,i,1)
注釋：對于每一個數(shù)得到相應(yīng)的圖形文件

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
%>