å¦Âä½Â让计æ°å¨åª对æ°è¿Âç¨æ·计æ°ï¼Â
<script language=vbscript runat=server>
sub application_onstart
filepath=server.mappath(“/count”)
filename=filepath+”\counter.txt”
set fs=createobject(“scripting.filesystemobject”)
if not fs.fileexists(filename) then
ÃÂ fs.createtextfile(filename)
ÃÂ ÃÂ ÃÂ set f=fs.getfile(filename)
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ s=1
Set ts = f.OpenAsTextStream(2, -2)
ts.writeline(cstr(s))
ts.close
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ else
ÃÂ ÃÂ ÃÂ set f=fs.getfile(filename)
ÃÂ ÃÂ ÃÂ Set ts = f.OpenAsTextStream(1, -2)
ÃÂ ÃÂ ÃÂ s=ts.readline+1
ÃÂ ÃÂ ÃÂ ts.close
end if
application(âÂÂvisitorâÂÂ)=s
end sub
ÃÂ xml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
sub session_onstart
session.timeout=5
application(“visitor “)=application(“visitor “)+1
set f=fs.getfile(filename)
ÃÂ ÃÂ ÃÂ ÃÂ Set ts = f.OpenAsTextStream(2, -2)
ÃÂ
ts.writeline (cstr(application(“visitor “)))
ts.close
end sub
</script>
<%
s=cstr(application(“visitor”)+10^6)
s=mid(s,2,6)
for i=1 to 6
ÃÂ ÃÂ response.write “<img src=’flashdays/liyanbing/images/”
&mid(s,i,1)&”.gif’ width=’18’ height=’25’>”
next
%>
[1]