<!-- #include file="conn.asp" -->
<!-- #include file="admin.asp" -->
<%
Call Head()
Call saycardd("访问统计")
Dim iprr
Set iprr = Server.CreateObject("ADODB.Recordset")
iprr.open"select YD_Counter,YD_Tod,YD_Today,YD_Yesterday,YD_Browser,YD_Browsers,YD_Counter,YD_Yays from YD_Counter",conn,1,1
    Response.Write "总访问IP:"&iprr("YD_Counter")& chr(13) 
    Response.Write "<br/>最高IP:"&iprr("YD_Tod")& chr(13) 
    Response.Write "<br/>今日IP:"&iprr("YD_Today")& chr(13) 
    Response.Write "<br/>昨日IP:"&iprr("YD_Yesterday")& chr(13) 
    Response.Write "<br/>日均IP:"&int(iprr("YD_Counter")/iprr("YD_Yays"))& chr(13) 
    Response.Write "<br/>今日PV:"&iprr("YD_Browser")& chr(13)
    Response.Write "<br/>总访问PV:"&iprr("YD_Browsers")& chr(13)
    Response.Write "<br/>统计天数:"&iprr("YD_Yays")& chr(13) 
    Response.Write "<br/><a href=""ipzero.asp?sid="&sid&"&amp;saytk="&saytk&""">[清空记录]</a>"
iprr.close
set iprr = nothing
conn.close
set conn = nothing
%><br/>----------<br/>
<a href="index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[后台管理]</a><br/>
报时: <%=String(2-Len(hour(now)),"0") & hour(now) %>:<%=String(2-len(minute(now)),"0") & minute(now) %>
<%
call headsay()%>
