graphix1.inc

以前企业建网站

<script language="vbscript" runat="server">
 function getcountername()
  dim fullpath,intpos
  fullpath=request.servervariables("path_translated")      //获得该文件的实际路径
  intpos=instrrev(fullpath,".")                //取得小数点位置
  getcountername=mid(fullpath,1,intpos)&"cnt"  //将后三码替换成cnt
 end function
 
 function webcounter()
  dim countername,objfs,hitrate,imgname
  dim objreadts,objwritets
  
  on error resume next
  countername=getcountername() 
  set objrs=createobject("scripting.filesystemobject")
  set objreadts=objrs.opentextfile(countername,1,-1,0)
  hitrate=objreadts.readline
  objreadts.close
  
  if not session("on_line") then
   hitrate=clng(hitrate)+1
   session("on_line")=true
   set objwritets=objrs.createtextfile(countername,-1,0)
   objwritets.writeline hitrate
   objwritets.close
  end if
  
  for i=1 to cint(len(hitrate))
   imgname=mid(hitrate,i,1)
   response.write("<img src='images/"&imgname&".gif'>")
  next
 end function
</script>