<%
Const ForReading = 1, ForWriting = 2, ForAppending =3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
filepath=server.mappath(".")
filename=filepath+"\counter.txt"
set fs=createobject("scripting.filesystemobject")
if fs.fileexists(filename) then
set f=fs.getfile(filename)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
s=ts.readline+1
ts.close
else
fs.createtextfile(filename)
set f=fs.getfile(filename)
s=1
end if
'鍚慶ounter.txt涓啓鏁版嵁
Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
ts.writeline(cstr(s))
ts.close
'鏄剧ず璁℃暟鍣?
s=cstr(s+1000000)
s=mid(s,2,6)
for i=1 to 6
response.write "![](./images/"&mid(s,i,1)&".gif) "
next
%>
|
