counter.asp

青岛dj站程序,带后台管理 名字和密码都是:admin

<%
mode = LCASE(Request("mode"))
gif  = Request("gif")

SET rs = Server.CreateObject("ADODB.Recordset")
	sql="select * from User"
	rs.Open sql,conn,1,1
	TotalUser =INT(RS.recordcount)
	rs.close
	response.write  "注册用户："
	GCounter( TotalUser )
	response.write "<br>"
	sql="select * from musiclist"
	rs.Open sql,conn,1,1
	TotalSong =INT(RS.recordcount)
	rs.close
	response.write  "舞曲库存："
	GCounter( TotalSong )
	response.write "<br>"
	sql="select * from special"
	rs.Open sql,conn,1,1
	TotalSpecial =INT(RS.recordcount)
	rs.close
	response.write  "专辑库存："
	GCounter( TotalSpecial )
	response.write "<br>"
Rs.Open "Select * From counters" ,conn,1,3
if session("IsFirst")="" 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
	END IF

	RS("TOTAL")  =  RS("TOTAL") + 1               
	RS("TODAY") =  RS("TODAY") + 1               
	RS("MONTH")  =  RS("MONTH") + 1               
	RS.Update                                    
	session("IsFirst")=true
end if

N = Now
D1 =  StartDate                                                    ' 开始统计日期(年/月/日)
D2 = DateValue(N)
D3 = DateDiff("d", D1, D2)
	response.write  "IP人次总数："
	GCounter( RS("TOTAL") )
	response.write "<br>"
	response.write  "今日IP人次："
	GCounter( RS("TODAY") )
	response.write "<br>"
	response.write  "昨日IP人次："
	GCounter( RS("YESTERDAY") )
	response.write "<br>"
	response.write  "本月IP人次："
	GCounter( RS("MONTH") )
	response.write "<br>"
	response.write  "上月IP人次："
	GCounter( RS("BMONTH") )
	response.write "<br>"
	N = Now
	D2 = DateValue(N)
	response.write  "开站天数："
	GCounter( DateDiff("d", D1, D2) )
	response.write "<br>"
	D3 = DateDiff("d", D1, D2)
	response.write  "日均IP人次："
	if D3=0 then
		GCounter(RS("TOTAL"))
	else
		GCounter( RS("TOTAL")\D3 )
	end if
rs.Close



Function GCounter( counter )
   Dim S, i, G
   S = CStr( counter )  

   For i = 1 to Len(S)
      G = G & "<IMG SRC=images/counter/" & Mid(S, i, 1) & ".gif Align=middle>"
   Next
   response.write G
End Function
%>