count.asp

qqq多用户ip统计统计asp源码,可以以不同的形式来分析出网站的流量来

<!--#include file="./includes/formdata.inc"-->
<!--#include file="./includes/dataconn.inc"-->
<!--#include file="./includes/setup.asp"-->
<%
'处理基本信息
response.expires=true
username=trim(request.querystring("username"))

ip=Request.ServerVariables("REMOTE_ADDR")
sql="select * from count where username='"&username&"'"
rs.open sql,con
count=rs("count")+1
brows=rs("brows")
systemver=rs("systemver")
scrcount=("scrcount")
rs.close
if request.cookies("js")=username and request.cookies("oip")=ip then
'计数器不加直接显示
ll=len(count)
for i=1 to ll
src=mid(count,i,1)
src=cint(src)
%>
document.write('<a href=<%=url%>Base.asp?username=<%=username%> target="_blank"><img src=<%=url%><%=src%>.gif border="0"></a>')
<%
next
else
'计数器想加存入历史表并显示
response.cookies("js")=username
response.cookies("js").expires=date() + 1
response.cookies("oip")=ip
response.cookies("oip").expires=date() + 1
refer=request.servervariables("HTTP_REFERER")
if refer="" then refer="直接输入或书签导入"
sua=Request.ServerVariables("HTTP_USER_AGENT")
suas=split(sua,";") '1 为浏览器，2为操作系统
suas(2)=replace(suas(2),")","")
suas(2) = Replace(suas(2),"NT 5.0","2000")
suas(2) = Replace(suas(2),"4.10","98")
suas(2) = Replace(suas(2),"4.90","Me")
sql="Update count set count=count+1,hour=hour+1,day=day+1,month=month+1,year=year+1,brows=brows+1,systemver=systemver+1,scrcount=scrcount+1 where username='"&username&"'"
con.execute(sql)
'查询ip表更新num
sip=ip
str1=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str3=left(sip,instr(sip,".")-1)
str4=mid(sip,instr(sip,".")+1)
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)
sql="select * from ip where ip1<="&num&" and ip2>="&num&" order by ip1 desc"
rs.open sql,con,1,3
add1=rs("country")
add2=rs("city")
add=trim(add1+add2)
rs.close
'更新addfw表
sql="select * from addfw where username='"&username&"' and country='"& add1 &"' and city='"& add2 &"'"
set rstemp = con.execute(sql)
if rstemp.eof=false then
sql="update addfw set num=num+1 where username='"&username&"' and country='"&add1&"' and city='"& add2 &"'"
else
sql="Insert into addfw (username,country,city,num) values('" & username & "','" & add1 & "','" & add2 & "',"& 1 &")"
end if
con.execute(sql)
'更新systemver表
sql="select * from systemver where username='"&username&"' and systemver='"& suas(2) &"'"
set rstemp = con.execute(sql)
if rstemp.eof=false then
sql="update systemver set num=num+1 where username='"&username&"' and systemver='"& suas(2) &"'"
else
sql="Insert into systemver (username,systemver,num) values('" & username & "','" & suas(2) & "',"& 1 &")"
end if
con.execute(sql)
'更新brows表
sql="select * from brows where username='"&username&"' and brows='"& suas(1) &"'"
set rstemp = con.execute(sql)
if rstemp.eof=false then
sql="update brows set num=num+1 where username='"&username&"' and brows='"& suas(1) &"'"
else
sql="Insert into brows (username,brows,num) values('" & username & "','" & suas(1) & "',"& 1 &")"
end if
con.execute(sql)
'更新hour表
h=hour(time)
if h=0 then h=24
sql="update hour set h" & h & "= h" & h & "+1 where username='"&username&"'"
con.execute(sql)
'更新day表
d=day(date)
sql="update day set d" & d & "= d" & d & "+1 where username='"&username&"'"
con.execute(sql)
'更新month表
m=month(date)
sql="update month set m" & m & "= m" & m & "+1 where username='"&username&"'"
con.execute(sql)
'更新year表
y=year(date)
sql="update year set y" & y & "= y" & y & "+1 where username='"&username&"'"
con.execute(sql)
'更新访问表
sql="select * from fw where username='"&username&"'" &" order by fwtime"
rs.open sql,con,1,3
for i=0 to rs.recordcount-maxcount
rs.movefirst
rs.delete
next
rs.movelast
rs.addnew
rs("ip")=ip
rs("fwtime")=now
rs("sys")=suas(2)
rs("iever")=suas(1)
rs("titel")=refer
rs("add")=add
rs("username")=username
rs.Update
rs.close
'显示图片
ll=len(count+1)
for i=1 to ll
src=mid(count,i,1)
src=cint(src)
%>
document.write('<a href=<%=url%>Base.asp?username=<%=username%> target="_blank"><img src=<%=url%><%=src%>.gif border="0"></a>')
<%
next
end if
%>