counter.asp.bak

创软科技企业网站管理系统 v4.8 创软科技企业网站管理系统 v4.8

<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/3/"&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>