www.pudn.com > bt.rar > counter.asp, change:2006-01-08,size:3016b


<!--#include file="mdb.asp"--> 
<% 
dim inputdate 
inputdate="2005-12-16"			'建站时间 
mode = LCASE(Request("mode")) 
gif  = Request("gif") 
 
SET rs = Server.CreateObject("ADODB.Recordset") 
Rs.Open "Select * From counters" ,conn,1,3 
 
if Request.Cookies("IsFirst")=fail then 
LASTIP = RS("LASTIP") 
NEWIP = REQUEST.servervariables("REMOTE_ADDR") 
 
IF CSTR(Month(RS("DATE"))) <> CSTR(Month(DATE())) THEN 
 
       RS("DATE") = DATE() 
       RS("YESTERDAY") = RS("TODAY") 
       RS("BMONTH") = RS("MONTH") 
       RS("MONTH") = 1 
       RS("TODAY") = 1 
       RS.Update 
ELSE 
   IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN 
       RS("DATE") = DATE() 
       RS("YESTERDAY") = RS("TODAY") 
       RS("TODAY") = 1 
       RS.Update 
   END IF 
response.Cookies("IsFirst")=true 
END IF 
RS("LASTIP")=NEWIP 
RS("TOTAL")  =  RS("TOTAL") + 1 
RS("TODAY") =  RS("TODAY") + 1 
RS("MONTH")  =  RS("MONTH") + 1 
RS.Update 
Session("UserID")=RS("TOTAL") 
 
end if 
 
t=(cint(day(date()))*24+cint(hour(time())))*60+cint(minute(time())) 
k=0 
i=1 
y=0 
Do While application("zxip"&i)<>"" 
	if application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR")  then 
		application("zxsj"&i)=t 
		y=1 
	end if 
	if t-application("zxsj"&i)>9 or t<application("zxsj"&i) then 
		k=k+1 
	else 
		if k>0 then 
			application.lock 
			application("zxip"&i-k)=application("zxip"&i) 
			application("zxsj"&i-k)=application("zxsj"&i) 
			application.unlock 
		end if 
	end if 
	if k>0 then 
		application.lock 
		application("zxip"&i)="" 
		application.unlock 
	end if 
	i=i+1 
loop 
if y=0 then 
	application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR") 
	application("zxsj"&i)=t 
else 
	i=i+50-1 
end if 
online=i 
 
 
N = Now 
D1 = ""&inputdate&""                                                   ' 开始统计日期(月/日/年) 
D2 = DateValue(N) 
D3 = DateDiff("d", D1, D2) 
response.write "document.write('本站自:"&D1&" 起IP访问量 ');" 
response.write  "document.write('全部:" 
GCounter( RS("TOTAL") ) 
response.write  " ');" 
response.write  "document.write('本月:" 
GCounter( RS("MONTH") ) 
response.write  " ');" 
response.write  "document.write('上月:" 
GCounter( RS("BMONTH") ) 
response.write  " ');" 
response.write  "document.write('今日:" 
GCounter( RS("TODAY") ) 
response.write  " ');" 
response.write  "document.write('昨日:" 
GCounter( RS("YESTERDAY") ) 
response.write  " ');" 
N = Now 
D2 = DateValue(N) 
D1 = ""&inputdate&""                                                   ' 开始统计日期(月/日/年) 
response.write  "document.write('运行:" 
GCounter( DateDiff("d", D1, D2) ) 
response.write  " 天 ');" 
D3 = DateDiff("d", D1, D2) 
response.write  "document.write('平均:" 
GCounter( RS("TOTAL")\D3 ) 
response.write  " 个 ');" 
rs.Close 
response.write "document.write('在线:" 
GCounter(online) 
response.write " 人');" 
Function GCounter( counter ) 
   Dim S, i, G 
   S = CStr( counter ) 
 
   For i = 1 to Len(S) 
      G = G & "" & Mid(S, i, 1) & "" 
   Next 
   response.write G 
End Function 
%>