" 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 "
最高IP:"&iprr("YD_Tod")& chr(13) Response.Write "
今日IP:"&iprr("YD_Today")& chr(13) Response.Write "
昨日IP:"&iprr("YD_Yesterday")& chr(13) Response.Write "
日均IP:"&int(iprr("YD_Counter")/iprr("YD_Yays"))& chr(13) Response.Write "
今日PV:"&iprr("YD_Browser")& chr(13) Response.Write "
总访问PV:"&iprr("YD_Browsers")& chr(13) Response.Write "
统计天数:"&iprr("YD_Yays")& chr(13) Response.Write "
[清空记录]" iprr.close set iprr = nothing conn.close set conn = nothing %>
----------
[后台管理]
报时: <%=String(2-Len(hour(now)),"0") & hour(now) %>:<%=String(2-len(minute(now)),"0") & minute(now) %>