<% Response.Expires = 0 '-------- 检查是否属于刷新 -------- if Request.Cookies(homeurl)("feiyueip")="" then ipcheck=true Response.Cookies(homeurl)("feiyueip")=now() elseif DateDiff("s",Request.Cookies(homeurl)("feiyueip"),now())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()) order by fip" rs2.Open sql2,conn,1,1 fonline=rs2.RecordCount rs2.Close '--------结束统计-------- 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.servervariables("HTTP_Referer")'获取统计页面 fcome=request("webcome") '获取来访地址 fip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") if fip = "" then fip = Request.ServerVariables("REMOTE_ADDR")'获取来访ip sql ="insert into fcount (fcome,fyear,fmonth,fday,fweek,fweeknum,fhour,fsystem,fwindows,furl,fip) values('"&fcome&"','"&fyear&"','"&fmonth&"','"&fday&"','"&fweek&"','"&fweeknum&"','"&fhour&"','"&fsystem&"','"&fwindows&"','"&furl&"','"&fip&"')" conn.execute(sql) '--------结束写进-------- '--------判断日期分辨今天还是昨天并写进-------- sql="select vdate,vtotal,vtoday,vip,vmonth,vyear,vnowmonth,vweek,vweeknum from vcount" set rs=conn.execute(sql) 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 conn.execute(sql1) '--------结束判断-------- end if '--------写进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-------- sql="select vtoday,vtotal from vcount" set rs=conn.execute(sql) vtoday=rs("vtoday")'今日访问量 vtotal=rs("vtotal")+500'总访问量 set rs=nothing %> <% if request("fy")="1" then%> <% '--------判断是否要显示统计数据-------- vtoday=500+vtoday tmpt = "http://" & request.servervariables("SERVER_NAME") & _ left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("stat.asp"))%> <% news="

"&vtotal&"

"&vtoday&"

" Response.Write("document.write("& chr(34) & news & chr(34) &");") %> <% end if%>