<%
'
' Countera.asp V0.91update 1998.07 - ウェブページでカウンターや時刻を表示する
' 古口正巳 [koguchi@sf.airnet.ne.jp]
' vb4cgi.incが必要
'
'このプログラムはコード改変可能なフリーフェアであり、いかなる条件でも正しく動作する事を保証してません。
'各自のリスクで実行して下さい。このプログラムを利用していかなるトラブルが発生しても関知しません。
'
' /digit/ディレクトリを作成し0.gifから9.gifまでに好きな数字ファイルをコピーする。
' サンプルとしてdigit.lzhを添付したので解凍して使用して下さい。
' 10.gifは一致しないとき返す1x1の透過型gifなので変更しないこと。
'
' /time/ディレクトリを作成し0.gifから9.gifまでに好きな数字ファイルをコピーする。
' サンプルとしてtime.lzhを添付したので解凍して使用して下さい。
' 10.gif=";", 11.gif="AM", 12.gif="PM", 13.gifは一致しないとき返す1x1の透過型gifなので変更しないこと。
'
'両方のディレクトリに読みこみ許可を施して下さい。
'
sendheader "Counter & Timer"
count=counter("counter") 'vb4cgi.incに定義された関数，引数を変えると違う変数が使える
send "あなた様は" & count & "人目のお客様です
" '単純数字
scount=right("000000" & CSTR(Count), 6)
send "あなた様は" & scount & "人目のお客様です
" '6桁数字
For i = 1 to Len(scount)
ds = ds & "
"
Next
send "あなた様は" & ds & "人目のお客様です
" 'gif File表示
send "現在時刻は" & formatDateTime(now, 3) & "です
" '単純時刻 1-5
ds=""
sTime = formatDateTime(now, 4) '例 10:30
if left(sTime, 2) > "11" Then 'PM
sTime = right("0" & CStr(CInt(left(sTime, 2)) - 12), 2) & right(sTime, 3)
PM = True
End If
For i=1 to 6
If i < 6 then
sIndex = Mid(sTime, i, 1)
if sIndex >= "0" and sIndex <= "9" Then
Else
Select Case sIndex
Case ":"
sIndex = "10" ':
Case Else
sIndex = "13" 'NULL
End Select
End If
else
if PM Then
sIndex = "12" 'PM
Else
sIndex = "11" 'AM
End IF
End If
ds = ds & ""
Next
send "現在時刻は" & DS & "です
" 'gif File表示
Sendfooter
%>