html/cnsd/counter.asp

（完整代码） 1KB 

您是第
    <%	
	  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("../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
	  
	  i_count=1
	  '防止重复计数开始
	  if session("gaoshi_counter")="" then 
	  	i_count=1
		session("gaoshi_counter")="couter"
	  else
	  	i_count=0
	  end if
	  '防止重复计数结束	  
	  
      if CLng(Application("nHits")) < nVisitors Then
		Application("nHits") = nVisitors + i_count
	  Else
		Application("nHits") = Application("nHits") + i_count
	  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/7/"&mid(nVisitors,i,1)&".gif align=absmiddle></img>"
      next
      set fso=nothing
	
    %> 位访问者

24 小时内免费解锁 3 个项目，之后 1 算力/个。 规则说明

AI 解读 AI

登录后可用，每次 10 算力，解读结果公开显示在下面。

还没有人解读过这个文件。