 |
|
|
 |
| |
 |
|
|
 |
<%
Rows=6
Filename="d:\Inetpub_jr-shikoku\wwwroot\counter\willie.TXT"
On Error Resume Next
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set InStream=FileObject.OpenTextFile(Filename,1,False,False)
If Err.Number>0 then
Count=0
else
Count=Instream.ReadLine
Instream.close
end if
Count=Count+1
Set OutStream=FileObject.CreateTextFile(Filename,True,False)
OutStream.WriteLine Count
OutStream.Close
Buff=Right(String(Rows,"0") & Count,Rows)
For i=1 to Rows
Work="![](cnt_img/" & Chr(&H30) & Mid(Buff,i,1) & ".gif) "
Response.Write(Work)
Next
%>
|
|
|
|
|
 |
|
|
