visitors.asp

来自「电子公文传输管理系统」· ASP 代码 · 共 22 行

<%
dim visitors
whichfile=server.mappath("count.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(whichfile)

visitors=thisfile.readline
thisfile.close
'resoponse.write visitors
countlen=len(visitors)
Response.Write "访问量"
for i=1 to countlen
response.write "<img src="&"img/"& mid(visitors,i,1) & ".gif></img>"
next

visitors=visitors+1
Set out=fs.CreateTextFile(whichfile)
out.WriteLine(visitors) 
out.close

set fs=nothing
%>