%
Response.Buffer=True
Set fs=Server.CreateObject("Scripting.FileSystemObject")
fpath=Server.MapPath("./") & "\count.dat"
Set tf=fs.OpenTextFile(fpath,1)
cnt=tf.ReadLine
cnt=cnt+1
Set tf=Nothing
Set tf=fs.OpenTextFile(fpath,2)
tf.WriteLine cnt
Set tf=Nothing
cnt=CStr(cnt)
If Len(cnt)<6 Then
For i=1 to 6-Len(cnt)
zer=zer & "0"
Next
End If
cnt=zer & cnt
For i=1 to Len(cnt)
imgcnt=imgcnt & "
"
Next
%>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||