こちらは CGI を使用せずに設計された美しいグラフィック カウンターです。
これは 3 つの部分に分かれています。 1. グラフィック ファイルを作成します。
2. データベースを作成します。
3. コードを記述します。
1. グラフィックファイルを作成します。
まず、グラフ ソフトウェアを使用して、カウンターの 10 個の数字 (1、2、3、4、5、6、7、8、9、0) を表示する 10 個のグラフィックを作成します。芸術的才能があれば、より良いグラフィックを作成できます。
2. データベースを作成します。
という名前のデータベースを作成するために使用します。データベースにはテーブルが含まれており、
名前は、構造は整数で、レコードは 1 つあり、初期値は 0 です。
このページへの最後の訪問数を保存するために使用されます。
3. コードを記述します。
——————number.asp————————————
<%@ language="vbscript" %>
<!--#include file="adovbs.inc"-->
<%
set objconn=server.createobject("adodb.connection")
objconn.attributes=adxactコミット保持
dbpath=server.mappath("num.mdb")
objconn.open "driver={Microsoft アクセス ドライバー (*.mdb)};dbq=" & dbpath
注: データベースとの接続を確立します。
sqlquery= "numt から * を選択"
set rsrecordset=server.createobject("adodb.recordset")
rsrecordset.open sqlquery、objconn、adopenkeyset、adlockoptimistic
注: データベースを開きます。
アプリケーションロック
application("nmb")=rsrecordset("number")
アプリケーションのロック解除
注: 最終アクセス数をアプリケーション オブジェクト
application.lock
に割り当てます。
アプリケーション("nmb")=アプリケーション("nmb")+1
アプリケーションのロック解除
rsrecordset("数値")=rsrecordset("数値")+1
rsrecordset.update
rsrecordset.close
objconn.close
rsrecordset=何も設定しない
objconn=何も設定しない
注: データベースを閉じ、オブジェクト
dim nmb1
を解放します。
ディム str()
nmb1=アプリケーション("nmb")
redim str(nmb1)
i=1 から len(nmb1) まで
str(i)=mid(nmb1,i,1)
注: 各数値について、対応するグラフィック ファイルを取得します
。 select case str(i)
ケース「0」
imgF="0.gif"
ケース「1」
imgF="1.gif"
ケース「2」
imgF="2.gif"
ケース「3」
imgF="3.gif"
ケース「4」
imgF="4.gif"
ケース「5」
imgF="5.gif"
ケース「6」
imgF="6.gif"
ケース「7」
imgF="7.gif"
ケース「8」
imgF="8.gif"
ケース「9」
imgF="9.gif"
エンドセレクト
注: 出力グラフィック
応答.write"<img src="&imgF&">"
次
%>