 |
 |
 |
<% Set objPg=Server.CreateObject("IISSample.PageCounter") objPg.PageHit intcnt=CStr(objPg.hits) lg=Len(intcnt) Response.Write "あなたは" For i=1 to lg str=Mid(intcnt,i,1) Response.Write "
![" & str & "](acs" & str & ".gif)
"
Next
Response.Write "番目のお客様です"
%>
    |
|
||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||
|
最終更新年月日：2002／5／1
since2002
|