<!--#include file="../act_datebase/Admin_opendate.asp" -->
<%
  function sysie(info,getinfo)
    if instr(info,";")>0 then
	  usersys=split(info,";")
	  usersys(1)=replace(usersys(1),"MSIE","IE")
	  usersys(2)=replace(usersys(2),")","")
	  usersys(2)=replace(usersys(2),"NT 5.1","XP")
	  usersys(2)=replace(usersys(2),"NT 5.0","2000")
	  usersys(2)=replace(usersys(2),"4.90","Me")
	  usersys(2)=replace(usersys(2),"4.10","98")
	  usersys(1)=Trim(usersys(1))
	  usersys(2)=Trim(usersys(2))
	  if getinfo=1 then
	    sysie=usersys(1)
      else
	    sysie=usersys(2)
	  end if
    else
      if getinfo=1 then
	    sysie="其它"
	  else
	    sysie="其它"
	  end if
    end if
  end function
  
  userip0=request.servervariables("http_x_forwarded_for")
  userip1=request.servervariables("remote_addr")
  if userip0=""  then
	userip=userip1
  else
	userip=userip0
  end if
%>

<%
Count_name=Trim(Request.Querystring("name"))
Screen_Width=Trim(Request.Querystring("Width"))
Screen_Height=Trim(Request.Querystring("Height"))
%>
<%Count_Falg=True%>
<%
If Count_Falg=True Then
%>

<%
Session("count_user")=userip
'==========更新该计数器统计信息开始============
Sql="Select * From Count_Fwtj Where Web_ID='"&Count_name&"'"
Rs.Open Sql,conn,3,2
If Not Rs.Eof Then
'判断今年访问量
	If Trim(Rs("Admin_Year"))=Trim(Year(Now())) Then
		Rs("Admin_Vnowyear")=Rs("Admin_Vnowyear")+1
	Else
		Rs("Admin_Year")=Trim(Year(Now()))
		Rs("Admin_Vnowyear")=1
	End IF
'判断今月访问量
	If Trim(Rs("Admin_Month"))=Trim(Month(Now())) Then
		Rs("Admin_Vnowmonth")=Rs("Admin_Vnowmonth")+1
	Else
		Rs("Admin_Month")=Trim(Month(Now()))
		Rs("Admin_Vpremonth")=Rs("Admin_Vnowmonth")
		Rs("Admin_Vnowmonth")=1
	End IF
'判断当周访问量
	If Trim(Rs("Admin_Week"))=Trim(datepart("ww",date(),3)) Then
		Rs("Admin_Vnowweek")=Rs("Admin_Vnowweek")+1
	Else
		Rs("Admin_Week")=Trim(datepart("ww",date(),3))
		Rs("Admin_Vnowweek")=1
	End IF
'判断今天访问量
	If Trim(Rs("Admin_Day"))=Trim(Day(Now())) Then
		Rs("Admin_VnowDay")=Rs("Admin_VnowDay")+1
	Else
		Rs("Admin_Day")=Trim(Day(Now()))
		Rs("Admin_Vyestaday")=Rs("Admin_VnowDay")
		Rs("Admin_VnowDay")=1
	End IF
	Rs("Admin_Vtotal")=Rs("Admin_Vtotal")+1
	Rs.Update
End IF
Rs.Close
'==========更新该计数器统计信息结束============
%>
<%

'=================更新计数器详细信息开始==========
Sql="Select * From Count_Fcount"
Rs.Open Sql,conn,3,2
Rs.Addnew
Rs("Web_ID")=Count_name
Rs("Year")=Year(Now())
Rs("Month")=Month(Now())
Rs("Week")=datepart("ww",date(),3)
Rs("Day")=Day(Now())
Rs("System")=Trim(sysie(request.servervariables("http_user_agent"),2))
Rs("IE")=Trim(sysie(request.servervariables("http_user_agent"),1))
Rs("Screen")=Screen_Width&"×"&Screen_Height
Rs("Lfwz")=Request.ServerVariables("HTTP_Referer")
Rs("LfzIP")=userip
Rs("Lfzdate")=Now()
Rs.Update
Rs.Close
'=================更新计数器详细信息结束==========
%>
<%
'判断此操作系统是否存在，当存在为该操作系统访问次数加一开始
Falg=False
Sql="Select * From Count_System Where Web_ID='"&Count_name&"'"
Rs.Open Sql,conn,3,2
If Not Rs.Eof Then
 Do While Not Rs.Eof
 IF Trim(Rs("System_name"))=Trim(sysie(request.servervariables("http_user_agent"),2)) Then
	 Rs("CCount")=Rs("CCount")+1
	 Falg=True
	 Rs.Update
	 Exit Do
 End IF
 Rs.MoveNext
 Loop
End IF
If Falg=False Then
Rs.AddNew
Rs("Web_ID")=Count_name
Rs("System_name")=Trim(sysie(request.servervariables("http_user_agent"),2))
Rs("CCount")=1
Rs.UPdate
End IF
Rs.Close
'判断此操作系统是否存在，当存在为该操作系统访问次数加一结束
%>
<%
'判断此浏览器是否存在，当存在为该浏览器访问次数加一开始
Falg=False
Sql="Select * From Count_IE Where Web_ID='"&Count_name&"'"
Rs.Open Sql,conn,3,2
If Not Rs.Eof Then
 Do While Not Rs.Eof
 IF Trim(Rs("IE_name"))=Trim(sysie(request.servervariables("http_user_agent"),1)) Then
	 Rs("CCount")=Rs("CCount")+1
	 Falg=True
	 Rs.Update
	 Exit Do
 End IF
 Rs.MoveNext
 Loop
End IF
If Falg=False Then
Rs.AddNew
Rs("Web_ID")=Count_name
Rs("IE_name")=Trim(sysie(request.servervariables("http_user_agent"),1))
Rs("CCount")=1
Rs.UPdate
End IF
Rs.Close
'判断此浏览器是否存在，当存在为该浏览器访问次数加一结束
%>
<%
'判断此来访地址是否存在，当存在为该来访地址访问次数加一开始
Falg=False
Sql="Select * From Count_Lfurl Where Web_ID='"&Count_name&"'"
Rs.Open Sql,conn,3,2
If Not Rs.Eof Then
 Do While Not Rs.Eof
 IF Trim(Rs("Lf_url"))=Trim(Request.ServerVariables("HTTP_Referer")) Then
	 Rs("CCount")=Rs("CCount")+1
	 Falg=True
	 Rs.Update
	 Exit Do
 End IF
 Rs.MoveNext
 Loop
End IF
If Falg=False Then
Rs.AddNew
Rs("Web_ID")=Count_name
Rs("Lf_url")=Trim(Request.ServerVariables("HTTP_Referer"))
Rs("CCount")=1
Rs.UPdate
End IF
Rs.Close
'判断此来访地址是否存在，当存在为该来访地址访问次数加一结束
%>
<%
'判断此分辨率是否存在，当存在为该分辨率访问次数加一开始
Falg=False
Sql="Select * From Count_Fbl Where Web_ID='"&Count_name&"'"
Rs.Open Sql,conn,3,2
If Not Rs.Eof Then
 Do While Not Rs.Eof
 IF Trim(Rs("Fbl_name"))=Screen_Width&"×"&Screen_Height Then
	 Rs("FbCount")=Rs("FbCount")+1
	 Falg=True
	 Rs.Update
	 Exit Do
 End IF
 Rs.MoveNext
 Loop
End IF
If Falg=False Then
Rs.AddNew
Rs("Web_ID")=Count_name
Rs("Fbl_name")=Screen_Width&"×"&Screen_Height
Rs("FbCount")=1
Rs.UPdate
End IF
Rs.Close
'判断此分辨率是否存在，当存在为该分辨率访问次数加一结束
%>
<%
'判断此分辨率是否存在，当存在为该分辨率访问次数加一开始
Falg=False
Sql="Select * From Count_IP Where Web_ID='"&Count_name&"'"
Rs.Open Sql,conn,3,2
If Not Rs.Eof Then
 Do While Not Rs.Eof
 IF Trim(Rs("IP"))=userip Then
	 Rs("CCount")=Rs("CCount")+1
	 Falg=True
	 Rs.Update
	 Exit Do
 End IF
 Rs.MoveNext
 Loop
End IF
If Falg=False Then
Rs.AddNew
Rs("Web_ID")=Count_name
Rs("IP")=userip
Rs("CCount")=1
Rs.UPdate
End IF
Rs.Close
'判断此分辨率是否存在，当存在为该分辨率访问次数加一结束
%>
<%
'End IF
End IF
Set Rs=Nothing
Set Conn=Nothing
%>