<%@ CODEPAGE = "936" %>
<!--#include file="config.asp"-->
<%
' 網(wǎng)頁立即超時，防止漏統(tǒng)計
Response.Expires = 0

' 被訪問頁面
vpage=Request.ServerVariables("HTTP_REFERER")
if right(vpage,1)="/" then vpage=left(vpage,len(vpage)-1)

'檢查是否強制頁面
onlylen1=len(onlythesite1)
onlylen2=len(onlythesite2)

canstat=false
if (onlylen1=0 and onlylen2=0) then canstat=true
if onlylen1=0 and onlylen2<>0 and left(vpage,onlylen2)=onlythesite2 then canstat=true
if onlylen1<>0 and onlylen2=0 and left(vpage,onlylen1)=onlythesite1 then canstat=true
if onlylen1<>0 and onlylen2<>0 and (left(vpage,onlylen1)=onlythesite1 or left(vpage,onlylen2)=onlythesite2) then canstat=true

if canstat=true then

'****************** 創(chuàng)建數(shù)據(jù)對象 ******************

set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath(connpath)
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath


Set rs = Server.CreateObject("ADODB.Recordset")

'****************** 記錄相關(guān)數(shù)據(jù) ******************

' IP
vip=Request.ServerVariables("Remote_Addr")
' 來路
vcome=Request("referer")
if right(vcome,1)="/" then vcome=left(vcome,len(vcome)-1)

' 被訪問頁面 （已提前檢查）
' 時間
vyear=year(now())
vmonth=month(now())
vday=day(now())
vhour=hour(now())
vtime=now()
vweek=weekday(now())
' 客戶端軟件使用情況
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
' 操作系統(tǒng)
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
'屏幕寬度
vwidth=Request("screenwidth")


' 訪問者所在地區(qū)
' 從獨立數(shù)據(jù)庫讀取IP信息
set connip=server.createobject("adodb.connection")
DBPath = Server.MapPath(ipconnpath)
connip.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

ipnow=cip(vip)

Set rsip = Server.CreateObject("ADODB.Recordset")
sql="select * from ip where (onip<=" & ipnow & " and offip>=" & ipnow & ")"
rsip.Open sql,connip,1,1

if rsip.EOF then
	vwhere="未知"
	vwheref=""
else
	vwhere=rsip("addj")
	vwheref=rsip("addf")
end if
rsip.Close
set rsip=nothing
connip.Close
set connip=nothing

'************** 檢查是否屬于刷新 ****************
if is_ipcheck=true then
	is_echo=cbool(Request.Cookies(mNameEn & "echo")("lao"))
	if is_echo <> true then
	Response.Cookies(mNameEn & "echo")("lao")=true
	Response.Cookies(mNameEn & "echo").Expires=now()+0.01
	end if
end if

'***************** 統(tǒng)計在線人數(shù) *****************
if is_online then
	sql="select vip from view where vtime >= dateadd('n',-20,now()) group by vip"
	rs.Open sql,conn,1,1
	vonline=rs.RecordCount
	rs.Close
end if

'****************** 寫主數(shù)據(jù)庫 ******************
if (is_online=true and is_echo <> true) or is_online=flase then
sql="select top 1 * from view"
rs.Open sql,conn,3,2
rs.AddNew
rs("vyear")=vyear
rs("vmonth")=vmonth
rs("vday")=vday
rs("vhour")=vhour
rs("vtime")=vtime
rs("vweek")=vweek
rs("vip")=vip
rs("vwhere")=vwhere
rs("vwheref")=vwheref
rs("vcome")=vcome
rs("vpage")=vpage
rs("vsoft")=vsoft
rs("vos")=vos
rs("vwidth")=vwidth
rs.Update 
rs.Close
end if

'****************** 讀寫簡數(shù)據(jù)庫 ******************
sql="select * from vjian"
rs.Open sql,conn,3,3
' 寫入數(shù)據(jù)
if (is_online=true and is_echo <> true) or is_online=flase then
  if rs.EOF then
	rs.AddNew
	rs("today")=1
	rs("yesterday")=0
	rs("vdate")=date()
	rs("vtop")=1
	rs("starttime")=now()
	rs.Update
  else
	on error resume next
	olddate=cdate(rs("vdate"))
	datecha=date()-olddate
	'上一條記錄是今天的
	select case datecha
	case 0
		rs("today")=rs("today")+1
	case 1
		thetoday=rs("today")
		rs("yesterday")=thetoday
		rs("today")=1
		rs("vdate")=date()
	case else
		rs("today")=1
		rs("yesterday")=0
		rs("vdate")=date()
	end select
	
	rs("vtop")=rs("vtop")+1
	rs.Update
  end if
end if

'讀出數(shù)據(jù)
	vtoday=rs("today")
	vyesterday=rs("yesterday")
	vtop=rs("vtop")
	rs.Close
	'加上初始值
	vtop=vtop + old_count

'************ 讀寫COOKIE，得到用戶瀏覽量 **********

	vuser=cint(Request.Cookies(mNameEn)("lao"))+1
	Response.Cookies(mNameEn)("lao")=vuser
	Response.Cookies(mNameEn).Expires=date()+CookieExpires


'****************** 關(guān)閉數(shù)據(jù)對象 ******************
set rs=nothing
conn.Close 
set conn=nothing

'******************** 寫出HTML ********************

'程序及圖像文件路徑
theurl="http://" & Request.ServerVariables("http_host") & finddir(Request.ServerVariables("url"))

'獲取輸出要求
style=Request("style")

'根據(jù)要求輸出
select case style
case "counter"	'LOGO
	outstr="<table width='88' border='0' cellspacing='0' cellpadding='0' height='31' background='" & theurl & "images/stat_counter.gif'><tr><td height='5' width='24'></td><td height='5' width='57'></td><td height='5' width='7'></td></tr><tr><td height='16'></td><td height='16' align='center' valign='top'><marquee behavior='loop' scrollDelay='100' scrollAmount='3' style='font-size: 12px; line-height=15px'><a href='" & theurl & "index.asp' target='_blank' style='color: #ffffff; text-decoration: none'>"
	outstr=outstr & "<font face='Arial, Verdana, san-serif' color='#407526'>總訪問量: " & vtop & " &nbsp;今日訪問: " & vtoday & " &nbsp;昨日訪問: " & vyesterday & " &nbsp;您的訪量: "
if is_online then
	outstr=outstr & vuser & " &nbsp;在線人數(shù): " & vonline
end if
	outstr=outstr & "</font>"
	outstr=outstr & "</a></marquee></td><td height='16'></td></tr><tr><td height='10'></td><td height='10'></td><td height='10'></td></tr></table>"

case "icon"		'ICON
	outstr="<a href='" & theurl & "index.asp' title='" & countname &  _
		"\n總量: " & vtop & _
		"\n今日: " & vtoday & "\n昨日: " & vyesterday & _
		"\n您的: " & vuser 
	if is_online then
		outstr=outstr & "\n在線: " & vonline
	end if
	outstr=outstr & "' target='_blank'><img border='0' src='" & theurl & _
	"images/stat_icon.gif'></a>"

case "text"		'TEXT
	outstr=vtop
case "all"
	outstr="<font color='#176146'>總訪問量：<font color='#FF0000'>" & vtop & "</font>&nbsp;人次<br>今日訪問：<font color='#FF0000'>" & vtoday & "</font>&nbsp;人次<br>昨日訪問：<font color='#FF0000'>" & vyesterday & "</font>&nbsp;人次"
	if is_online then
		outstr=outstr & "<br>當前在線：<font color='#FF0000'>" & vonline & "</font>&nbsp;人</font>"
	end if

end select

'輸出
Response.Write "document.write(" & chr(34) & outstr & chr(34) & ")"


else   '檢查是否非法調(diào)用
	Response.Write "document.write(" & chr(34) & "非法調(diào)用" & chr(34) & ")"
end if

'****************** 自定義函數(shù) ********************

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

Function finddir(filepath)
	finddir=""
	for i=1 to len(filepath)
	if left(right(filepath,i),1)="/" or left(right(filepath,i),1)="\" then
	  abc=i
	  exit for
	end if
	next
	if abc <> 1 then
	finddir=left(filepath,len(filepath)-abc+1)
	end if
end Function
%>