counter.asp

来自「《实例精粹ASP》中部分源代码」· ASP 代码 · 共 45 行

<TABLE cellSpacing=0 cellPadding=0  border=0 align=center>
  <TBODY>
  <TR>
    <TD width="100%" align=center><font color=#ffffff>您是第</font>
    <% 
	  dim strFile	'文件绝对路径
	  dim fso		'FSO实例
	  dim ftrFile	'FileStream实例
	  dim nVisitors '访问者数目
	  dim nCountLen '数字长度
	  dim i
	  On Error Resume Next
	  'iomode 常量定义
	  Const ForReading = 1, ForWriting = 2, ForAppending = 8	

      strFile=Server.MapPath("counter/hits.txt")
      Set fso=CreateObject("Scripting.FileSystemObject")
	  '读文件，将点击数存储在Application中，以防止多用户时数据丢失
      Set ftrFile=fso.OpenTextFile(strFile, ForReading , True)
      nVisitors=ftrFile.readline
      if Err then
        nVisitors = 0
      end if
      if CLng(Application("nHits")) < nVisitors Then
		Application("nHits") = nVisitors + 1
	  Else
		Application("nHits") = Application("nHits") + 1
	  End If
      ftrFile.Close
      '写文件，写入Application("nHits")中的值，而不是nVisitors中的值，
      '这也是为了防止其他用户修改点击数而使写入的值不是最新
      set ftrFile=fso.OpenTextFile(strFile, ForWriting , True)
      ftrFile.WriteLine(Application("nHits"))
      ftrFile.Close
      
      nCountLen=Len(nVisitors)
      for i=1 to nCountLen
		Response.Write "<img src=counter/3/"&mid(nVisitors,i,1)&".gif></img>"
      next
      set fso=nothing
    %><font color=#ffffff>位访问者</font>
   </TD>
  </TR>
  </TBODY>
</TABLE>