用asp文件制作的网站流量统计工具

原创 2006年06月02日 14:25:00
<!-- #include virtual = "/include/conn.asp" -->
<%
   str_referrer=str_inject(request("referrer"))
  Response.Expires = 0
  queryurl=str_inject(Request.ServerVariables("HTTP_REFERER"))
  str_url=str_inject(Request.ServerVariables("URL"))
  str_ip=str_inject(Request.ServerVariables("REMOTE_ADDR"))
  membername=str_inject(session("member_id"))
  domainurl=str_inject(Request.ServerVariables("SERVER_NAME"))
  thesoft=Request.ServerVariables("HTTP_USER_AGENT")
' 浏览器
if instr(thesoft,"NetCaptor") then
 vsoft="NetCaptor"
elseif instr(thesoft,"MSIE 6") then
 vsoft="MSIE 6.x"
elseif instr(thesoft,"MSIE 5") then
 vsoft="MSIE 5.x"
elseif instr(thesoft,"MSIE 4") then
 vsoft="MSIE 4.x"
elseif instr(thesoft,"Netscape") then
 vsoft="Netscape"
elseif instr(thesoft,"Opera") then
 vsoft="Opera"
else
 vsoft="Other"
end if
' 操作系统
if instr(thesoft,"Windows NT 5.0") then
 vOS="Win 2000"
elseif instr(thesoft,"Windows NT 5.1") then
 vOs="Win XP"
elseif instr(thesoft,"Windows NT") then
 vOs="Win NT"
elseif instr(thesoft,"Windows 9") then
 vOs="Win 9x"
elseif instr(thesoft,"unix") or instr(thesoft,"linux") or instr(thesoft,"SunOS") or instr(thesoft,"BSD") then
 vOs="类Unix"
elseif instr(thesoft,"Mac") then
 vOs="Mac"
else
 vOs="Other"
end if
if len(membername)=0 then
   membername="游客"
end if
  str_ip=cip(str_ip)
  sql="select top 1 * from ip where onip<=" & str_ip & " and offip>=" & str_ip
  set rs=conn.execute(sql)
  if not rs.eof then
     addr=rs("addj") & " " & rs("addf")
  else
     addr=""
  end if
  rs.close
  queryurl=replace(queryurl,"http://","")
  if len(queryurl)<>0 then
  queryurl=mid(queryurl,instr(queryurl,"/")+1,len(queryurl)-1)
   if instr(queryurl,"?")<>0 then
  queryurl=left(queryurl,instr(queryurl,"?")-1)
  end if
    if instrrev(queryurl,"/",-1)=len(queryurl) then
         queryurl=queryurl & "default.asp"
     end if
  end if
  sql="insert into urlcount(refferer,queryurl,visittime,domainurl,membername,ip,addr,vos,vsoft) values('" & str_referrer & "','" & queryurl & "',getdate(),'" & domainurl & "','" & membername & "','" & str_ip & "','" & addr & "','" & vOS & "','" & vsoft & "')"
  conn.execute(sql)
 
  connclose
 
  function str_inject(str)
     if len(str)<>0 then
      str_inject=replace(str,"'","''")
   else
      str_inject=""
   end if
  end function
 
  function cip(sip)
 tip=cstr(sip)
 sip1=left(tip,cint(instr(tip,".")-1))
 tip=mid(tip,cint(instr(tip,".")+1))
 sip2=left(tip,cint(instr(tip,".")-1))
 tip=mid(tip,cint(instr(tip,".")+1))
 sip3=left(tip,cint(instr(tip,".")-1))
 sip4=mid(tip,cint(instr(tip,".")+1))
 cip=cint(sip1)*256*256*256+cint(sip2)*256*256+cint(sip3)*256+cint(sip4)
end function
%>

简易网站流量统计工具

简易网站流量统计工具 当然,说起网站流量统计,现在开源的也有,免费的也有,xx统计,xx统计,网上随便可以找到,个人之所以写这个工具的,完全出于个人喜好,作为一个“职业”码农,在码农的路子上也走了...
  • fengspg
  • fengspg
  • 2016年07月10日 18:13
  • 1510

16款网站流量统计工具

1.Google统计(Google Analytics) Google的产品强大就不用说了,但是发现Google的统计还是有些问题的,这要向Google提一下。 地址:http://www.goo...
  • skyoo
  • skyoo
  • 2012年02月28日 11:39
  • 1063

最常见的6种网站流量统计工具介绍

1、CNZZ 服务统计 由国际著名风险投资商IDG 投资的网络技术服务公司,是中国互联网目前最有影响力的免费流量统计技术服务提供商,专注于为互联网各类站点提供专业、权威、独立的第三方数据统计分析。 ...

网站流量统计之PV和UV

转自:http://blog.csdn.net/webdesman/article/details/4062069 如果您是一个站长,或是一个SEO,您一定对于网站统计系统不会陌生,对于SEO新...

GDI/GDI+ 绘制网站流量统计报表 总结(1)

第一讲:GDI编程的基本概念 图形设备接口:是一个抽象的接口,是一个关于图形显示的函数库。通过这个接口可以实现对图形的颜色、线条的粗细等属性的控制。通过GDI,可以进行设备无关性操作。所有的GDI函数...

jsp第三方网站流量统计系统

  • 2008年08月31日 15:13
  • 349KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用asp文件制作的网站流量统计工具
举报原因:
原因补充:

(最多只允许输入30个字)