stat.asp

网上流量分析系统

<!--#include file="Connections.asp" -->
<%	view=request("view")
fy=request("fy")
if view<>"" then
Response.Expires = 0
'-------- 检查是否属于刷新 --------
if Request.Cookies(homeurl)("feiyueip")="" then
ipcheck=true
Response.Cookies(homeurl)("feiyueip")=now()
elseif DateDiff("s",Request.Cookies(homeurl)("feiyueip"),now())<stime then
ipcheck=false
else
Response.Cookies(homeurl)("feiyueip")=now()
ipcheck=true
end if

'--------获取客户端浏览器和操作系统函数--------
function browser(text)
	if Instr(text,"MSIE 5.5")>0 then
		browser="IE 5.5"
	elseif Instr(text,"MSIE 6.0")>0 then
		browser="IE 6.0"
	elseif Instr(text,"MSIE 5.01")>0 then
		browser="IE 5.01"
	elseif Instr(text,"MSIE 5.0")>0 then
		browser="IE 5.00"
	elseif Instr(text,"MSIE 4.0")>0 then
		browser="IE 4.01"
	else
		browser="未知"
	end if
end function
function system(text)
	if Instr(text,"NT 5.1")>0 then
		system=system+"Windows XP"
	elseif Instr(text,"NT 5")>0 then
		system=system+"Windows 2000"
	elseif Instr(text,"NT 4")>0 then
		system=system+"Windows NT4"
	elseif Instr(text,"4.9")>0 then
		system=system+"Windows ME"
	elseif Instr(text,"98")>0 then
		system=system+"Windows 98"
	elseif Instr(text,"95")>0 then
		system=system+"Windows 95"
	else
		system=system+"未知"
	end if
end function
	'--------结束函数--------
		'--------统计在线人数--------
set rs2 = server.createobject("adodb.recordset") 
sql2="select  distinct fip from fcount where ftime >= dateadd('n',-"&onlinetime&",now()) and fuser='"&view&"' order by fip"
rs2.Open sql2,conn,1,1
if not rs2.eof then
fonline=rs2.RecordCount
end if
	rs2.Close	
	'--------结束统计--------
	
	
	'--------写进cookies--------
if request.Cookies(homeurl)("feiyue")="" then
	response.Cookies(homeurl)("feiyue")=1
	response.Cookies(homeurl).Expires=date()+cookies_time
	else
	response.Cookies(homeurl)("feiyue")=cint(request.Cookies(homeurl)("feiyue"))+1
	end if

	'--------结束写进cookies--------
	
	
	
	if ipcheck=true then
		'--------获取常规变量并写进数据库--------
fyear=year(now)'判断当前年份
fmonth=month(now)'判断当前月份
fday=day(now)'判断当前日期
fhour=hour(now)'判断当前小时
fweek=weekday(now)'判断当前星期
fweeknum=Datepart("ww",now())'判断当前周数
fsystem=browser(Request.ServerVariables("HTTP_USER_AGENT"))'获取浏览器
fwindows= system(Request.ServerVariables("HTTP_USER_AGENT"))'获取操作系统
furl=request("webcome")  '获取来访地址
fip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if fip = "" then fip = Request.ServerVariables("REMOTE_ADDR")'获取来访ip
sql="select vdate,vtotal,vtoday,vip,vmonth,vyear,vnowmonth,vweek,vweeknum from vcount where vuser='"&view&"'"
set rs=conn.execute(sql)
if not rs.eof then
sql1 ="insert into fcount (fuser,fyear,fmonth,fday,fweek,fweeknum,fhour,fsystem,fwindows,furl,fip) values('"&view&"','"&fyear&"','"&fmonth&"','"&fday&"','"&fweek&"','"&fweeknum&"','"&fhour&"','"&fsystem&"','"&fwindows&"','"&furl&"','"&fip&"')"
conn.execute(sql1)
	'--------结束写进--------
	'--------判断日期分辨今天还是昨天并写进--------
if date()<>rs("vdate") then
sql1="update vcount  set vtoday=1,vyestaday="&rs("vtoday")&",vtotal=vtotal+1,vdate='"&date()&"'"
else
sql1="update vcount  set vtoday=vtoday+1,vtotal=vtotal+1"
end if
'--------判断日期分辨今月还是上个月并写进--------
if int(fmonth)<>int(rs("vmonth")) then
sql1=sql1&",vpremonth="&rs("vnowmonth")&",vnowmonth=1,vmonth='"&fmonth&"'"
else
sql1=sql1&", vnowmonth=vnowmonth+1"
end if
'--------判断日期分辨今年还是去年并写进--------
if int(fyear)<>int(rs("vyear")) then
sql1=sql1&",vnowyear=1,vyear='"&fyear&"'"
else
sql1=sql1&", vnowyear=vnowyear+1"
end if
'--------判断日期分辨今周还是上周并写进--------
if int(fweeknum)<>int(rs("vweeknum")) then
sql1=sql1&",vweek=1,vweeknum='"&fweeknum&"'"
else
sql1=sql1&", vweek=vweek+1"
end if
'--------判断统计数据是否为0,如果为0那么重新开始写进开始统计日期--------
if rs("vtotal")="0" then sql1=sql1&", vstarttime='"&now()&"'"
'--------判断是否为同一ip--------
if rs("vip")<>fip then
sql1=sql1&", vip='"&fip&"',vtotal1=vtotal1+1"
end if
sql1=sql1&" where vuser='"&view&"'"
conn.execute(sql1)
end if
	set rs=nothing
		'--------结束判断--------
end if
else
fyright=1
viewtitle="参数错误,请输入正确的参数"
end if
	if fyright<>1 then
	sql2="select vtoday,vtotal from vcount where vuser='"&view&"'"
set rs2=conn.execute(sql2)
if not rs2.eof then
vtoday=rs2("vtoday")'今日访问量
vtotal=rs2("vtotal")'总访问量
viewtitle="在线人数:"&fonline&"总访问量:"&vtotal&"今日访问量:"&vtoday&""
else
viewtitle="参数错误,不存在此用户或者用户已经被删除"
end if
set rs2=nothing
end if

%>
<% if fy="1" then%>
<% '--------判断是否要显示统计图标--------
tmpt = "http://" & request.servervariables("SERVER_NAME") & _            
               left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("stat.asp"))%>
<% news="<a href="&tmpt&"stat_index.asp?view="&view&" target=_blank><img src="&tmpt&"stat.gif border=0 alt="&viewtitle&"></a>"
Response.Write("document.write("& chr(34) & news & chr(34) &");")
%>
<% end if%>