%
'
' vb4cntr.asp V0.9 1998.07 - ウェブページでカウンターを表示する
' 原作者 : 古口正巳 [koguchi@sf.airnet.ne.jp]
' CGI4VBJ.INCが必要
'
' このプログラムはコード改変可能なフリーフェアであり、いかなる条件でも正しく動作する事を保証してません。
' 各自のリスクで実行して下さい。このプログラムを利用していかなるトラブルが発生しても関知しません。
'
' 10.gifは一致しないとき返す1x1の透過型gifなので変更しないこと。
' 表示は6桁だが簡単に書き換えられる。
' このサンプルは16進文字列をバイト型に変換して出力している。
' /aspsamps/にcに相当する数字格納ファイルを作り初期値を入力すること。
' 好きなgifファイルを出力することができる。
' 次に書いたようなルーチンでsIMgHexデーターを作る(VB5を使用すること)
' イミディエートウィンドウに出力される。
'
' Dim digit() As Byte
' Dim digitl As Long
' Dim i As Integer
' Dim j As Integer
'
' For i = 0 To 10
' Open "c:\webshare\scripts" & "\digit\" & Format(i, "0.gif") For Binary Access Read As #1 'NTならc:\inetpub\scripts
' digitl = LOF(1)
' ReDim digit(digitl-1)
' Get #1, , digit
' Close #1
' Debug.Print "sImgHex("; i; ") = """;
' For j = 0 To digitl
' Debug.Print Right("00" & Hex(digit(j)), 2);
' Next j
' Debug.Print """"
' Next i
' ファイルから読むのに比較してサーバーのディスクI/Oに負担がかからないしgifファイルを別に用意しなくてよい。
' 上記ルーチンで変換したファイルをgifファイルに戻すには次のようなルーチンを実行する。
'
' Dim sImgHex(10) As String
' Dim digit() As Byte
' Dim iIndex As Integer
'
' For iIndex = 0 To 10
' ReDim digit(Len(sImgHex(iIndex)) \ 2 - 1)
' For x = 1 To Len(sImgHex(iIndex)) Step 2
' test(x \ 2) = "&H" & Mid$(sImgHex(iIndex), x, 2)
' Next x
' Open "c:\webshare\scripts" & "\digit\" & Format(iIndex, "0.gif") For Binary Access Write As #1 'NTならc:\inetpub\scripts
' Put #1, , test
' Close #1
' Next iIndex
'
' 次のような文をHTML文に書き加えるとカウンターが表示される。
' 添付のcgi4cntr.htmをwin95 c:\webshare\wwwroot\, NT c:\inetpub\wwwroot\にコピーして実行してみてください。
'
'
'
'
'
'
'
'
cgi_main
%>