<% dim visitors
countfile=server.mappath("images/count.txt")
Set fs=CreateObject("Scripting.FileSystemObject")
Set thisfile=fs.OpenTextFile(countfile)
visitors=thisfile.readline
thisfile.close
countlen=len(visitors)
for i=1 to 5-countlen
response.write"<img src=images/0.jpg alt=图形计数器>"
next
for i=1 to countlen
response.write"<img src=images/" & mid(visitors,i,1) & ".jpg alt=图形计数器>"
next
visitors=visitors+1
Set thisfile=fs.CreateTextFile(countfile)
thisfile.WriteLine(visitors)
thisfile.close
set fs=nothing%>