counter.asp

来自「BOB人才招聘系统」· ASP 代码 · 共 18 行

<font color=#000000>您是第</font>
    <%whichfile=server.mappath("counter/count.txt")
      Set fs=CreateObject("Scripting.FileSystemObject")
      Set thisfile=fs.opentextfile(whichfile)
      visitors=thisfile.readline
      thisfile.close
      countlen=len(visitors)
      for i=1 to countlen
      response.write "<img src=counter/0/"&mid(visitors,i,1)&".gif></img>"
      next
      visitors=visitors+1
      set out=fs.createtextfile(whichfile)
      out.writeline(visitors)
      out.close
      set fs=nothing
    %>
	<font color=#000000>位访问者</font>