counter.asp

伟业科技企业自动建站程序

<TABLE table width="100%"  border="0" cellspacing="0" cellpadding="0" align="center">
  <TBODY>
  <TR>
    <TD width="100%" align="left"><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/7/"&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></TD>
  </TR>
  </TBODY>
</TABLE>