このプログラムはカウンタ番号を ACCESS データベースに配置しますが、必要に応じて他の ODBC データ ソースを使用することもできます。このプログラムは次の URL からカウンタ情報を読み取ります。
< IMG src="id=MYTEST&seq=default&cells =7" >
パラメータ
id は
顧客 Web ページの指定 (つまり、ユーザー名) です。新しい ID を使用するたびに、その ID が元々存在する場合、その数は 1 ずつ増加します。顧客が ID を自動的にアクティブ化したくない場合に、「自動挿入」の値を False に割り当てます。
これ
は、カウンター画像のスタイルを選択するために使用されます。クライアントに表示される画像の名前は .gif です。デフォルト値は「defalut.gif」であり、この「defalut.gif」は現在の作業ディレクトリに配置する必要があります。
カウント
に表示される桁数はオプションです。結果、デフォルトは 5 桁です (この値はプログラムで設定します (調整することもできます) このプログラムの実行方法? このプログラムをサーバー内の任意の場所にコピーします。
データ ソース "Webcounter" を作成します。このデータ ソースの「main」という名前のテーブルは次のとおりです。
< table border="1" cellpadding="3" cellpacing="1" >
<tr>
< th >フィールド</th >
< th >タイプ< /th >
< th >インデックス付き</th >
< th >意味</th >
< /tr >
<tr>
< td >識別< /td >
< td >オートナンバー</ td >
< td >はい</ td >
< td >あなたのニーズに合わせて< /td >
< /tr >
<tr>
< td >id< /td >
< td >テキスト</ /td >
< td >はい</ td >
<td>ユーザー名</td>
< /tr >
<tr>
< td >カウント< /td >
< td >番号</ td >
< td >いいえ< /td >
< td >数を数える</td>
< /tr >
< /table >
必要に応じて、データベースにアクセス許可を割り当て
、GIF グラフィックを保存するディレクトリを作成し、必要に応じて、このファイルに少なくとも 1 つのグラフィック グループを配置する必要があります。
このディレクトリに、10 で割り切れる数字のグラフィックをいくつか入れます。
< table width="100%" border="1" cellpacing="1" cellpadding="2" >
<tr>
< td bgcolor="#ccffff" >ファイル < b >counter.asp</b > </ /td >
< /tr >
<tr>
< td bgcolor="#ffffcc" >< 前 >
<%
Response.ContentType="画像/gif"
応答.有効期限=0
'GIF バーが配置されるディレクトリは で終わります。
workdir="c:gifbars"
'自動挿入を無効にする場合は、これを False に設定します
' ユニークなヒットごとに新しいカウンター レコードがデータベースに記録されます
'ID文字列
auto_insert=True
id=Trim(Request.QueryString("id"))
seq=Trim(Request.QueryString("seq"))
seq="" の場合、seq="デフォルト"
セル=トリム(Request.QueryString("セル"))
if セル = "" then セル = 5 else セル = セル*1
set conn=Server.CreateObject("ADODB.Connection")
「Webカウンター」を開く
sql="select count,ident from main where id='" & id & "'"
set rs=conn.Execute(sql)
rs.EOF ではない場合
カウント=rs(「カウント」)+1
ident=rs("アイデンティティ")
rs.close()
conn.Execute("更新メインセット count=count+1 where ident=" & ident)
conn.close()
ShowNumbers()
それ以外
rs.close()
auto_insert=True かつ id< >"" の場合
conn.Execute("メイン (id,count) 値に挿入 ('" & id & "',1)")
カウント=1
ShowNumbers()
終了する場合
conn.close()
end if
Sub ShowNumbers()
set g=CreateObject("ショットグラフ.イメージ")
ファイル名=workdir & seq & ".gif"
if g.GetFileDimensions(filename,xsize,ysize,pal)< >1 then Exit Sub
x桁=xサイズ10
g.CreateImage xdigit*cells,ysize,UBound(pal)+1
g.InitClipboard xsize,ysize
g.SelectClipboard True
i=0 から UBound(pal) まで
g.SetColor i,pal(i,0),pal(i,1),pal(i,2)
次
g.ReadImage ファイル名,pal,0,0
i=1 からセルへの場合
k=GetDigit(カウント,セル-i)
g. (i-1)*xdigit,0,xdigit,ysize,k*xdigit,0,"SRCCOPY" をコピーします。
次
Response.BinaryWrite g.GifImage(-1,1,"")
End Sub
Function GetDigit(数値,位置)
数値1=数値(10^位置)
tmp=数値110
GetDigit=数値1-tmp*10
関数の終了
%>
<xmp>
< /pre >
</ /td >
< /tr >
< /table >
< hr >< /span >< /td >
< /tr >
<tr>
< td width="50%" > </ /td >
< td width="50%" >< br >< /td >
< /tr >
<tr>
< td Colspan=2 align="right" >
< img border="0" src="images/bbstitle.gif" >< a id="hlkAddMsg" href="/AddMsg.aspx?id=234" style="color:red" >コメントを残す</a >
< img border="0" src="images/mail.gif" >< a id="hlkMailTo" href="/MailTo.aspx?id=234" >このページをメールで送信</a>
< img border="0" src="images/print.gif" >< a href="javascript:window.print()" >このページを印刷</a>
< img border="0" src="images/profile.gif" >< a href="javascript:void(null)" onclick="if(!document.execCommand('SaveAs','show.aspx',1) )) return false;" >このページを保存</a >
< img border="0" src="images/ask.gif" >< a href="bbs/index.asp" >ご質問があります</a>
</ /td >
< /tr >
<tr bgcolor="#97B9FF" >
< td width="50%" >< b >< font color="#FFFFFF" >関連記事</font ></b >< /td >
< td width="50%" >< b >< font color="#FFFFFF">関連コメント</font ></ b >< /td >
< /tr >
<tr>
< td width="50%" valign="top" >
</ /td >
< td width="50%" valign="top" >
</ /td >
< /tr >
<tr>
< td width="50%" >
</ /td >
< td width="50%" align="right" >< img border="0" src="images/more.gif" >< a id="hlkRela" >< /a >< /td >
< /tr >
< /table >
</ /td >
< /tr >
< /table >
</ /td >
< /tr >
< /table >
< /body >
< /html >