counter.asp

来自「物流管理系统,可以用于中小企业,建立自己的内部物流管理.」· ASP 代码 · 共 23 行

<TABLE cellSpacing=0 cellPadding=0 width=750 border=0 align=center>
  <TBODY>
  <TR>
    <TD width="100%" align=center>您是第
    <%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
    %> 位访问者
   </TD>
  </TR>
  </TBODY>
</TABLE>