<!-- #Include virtual="/together/db_link.asp" -->
<%
IP1=Request.ServerVariables("REMOTE_ADDR")

NEWIP = IP1


htm = request("name")

Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "select * from cc where name ='" & htm & "'"
rs.Open SQL,abc,1,2
%>

<%
da = rs("date")
LASTIP = RS("LastIP")
 '偵測IP
 
IF LASTIP <> NEWIP THEN 
RS("LastIP")=NEWIP


 '------------------偵測日期,如果以經過一天,則人數改為1人
 
 IF CSTR(RS("Date")) <> CSTR(DATE()) THEN
      RS("date")= CSTR(DATE()) 
RS("yesterday")=RS("Today")
        RS("Today")= 0 + 1

'-------------------如果是同一天,則總數加一人
Else 
        RS("Today")=RS("Today")+1
     end if 
'-------------------偵測日期結束,開始偵測年份
  Mon = Month (DATE())
	  Y = Year (DATE())
	  Y2 = Year (da)
	  
'-------------------如果年份不一樣,將每月份清除為0,重新計算
  IF  Y <> Y2 Then 
  rs("year_total")=0
    For m = 1 To 12
		 RS("M" & m)=0
		 Next 
		 End if 
'------------------如果還在今年,則當月份人數+1
     RS("year_total")=RS("year_total")+1
     RS("M" & Mon)=RS("M" & Mon)+1 
     
'------------------月份結束,開始計算周
	
	week=DatePart("w" , date ) - 1
	  if week = 1 Then 
        IF da <> (DATE()) Then 
		 lw=0
		FOR p= 0 to 6
		 ap= RS("W"&p)
		   lw = lw + ap
		   Next
		   RS("LastWeek") = lw
        For I = 0 To 6
		 RS("W" & I)=0
		 Next 
		 End if 
	 End if 
 	RS("W" & week)=RS("W" & week)+1
 	
   RS.Update
   rs.close:set rs=nothing
   abc.close:set abc=nothing
Else 
	rs.close:set rs=nothing
	abc.close:set abc=nothing
end if 
      %>