|
<%
Rows=6
Filename="d:\Inetpub_jr-eki\wwwroot\counter\zipang.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
Response.Write(Right(String(Rows,"0") & Count,Rows))
Buff=Right(String(Rows,"0") & Count,Rows)
For i=1 to Rows
Response.Write(Work)
Next
%>
|
|