<!--#include file="Inc.asp"-->
<!--#include file="ydzq1.asp"-->


<%call head()
Call saycarda("统计")

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) 
    
iprr.close
set iprr = nothing
conn.close
set conn = nothing


%>
<!--#include file="fanhui.asp"-->

<%
call headsay()
%>
