<%=webname%>来访计数统计

还没有任何来访记录" response.end end if set rsfirst=server.createobject("adodb.recordset") sql="select * from count" rsfirst.open sql,conn,1,1 firstday=datevalue(rsfirst("time")) %> <%=webname%>来访计数统计

<%if not rs.eof then rs.PageSize = perpagenumber Page = CLng(Request("Page")) If Page < 1 Then Page = 1 If Page > rs.PageCount Then Page = rs.PageCount%> <% rs.AbsolutePage = Page For iPage = 1 To rs.PageSize %><%if not rs.eof then%> <%else%><%end if%> <% if not rs.eof then rs.MoveNext end if Next end if %>

访问着IP	访问时间	IE类型	操作系统	来访地区
<%=rs("ip")%>	<%=rs("time")%>	<%=rs("browser")%>	<%=rs("system")%>	<%=rs("address")%>

<%dim visitday1,visitday2,visitday3,visitmonth,visittotal,visitaverage,fromtime visitday1=0 visitday2=0 visitday3=0 visitmonth=0 set rscount=server.createobject("adodb.recordset") sql="select * from count" rscount.open sql,conn,1,1 visittotal=rscount.recordcount visitaverage=int(visittotal/(datediff("d",datevalue(firstday),datevalue(now)+1))) do while not rscount.eof fromtime=rscount("time") if datevalue(fromtime)=date then visitday1=visitday1+1 end if if datevalue(fromtime)=date-1 then visitday2=visitday2+1 end if if datevalue(fromtime)=date-2 then visitday3=visitday3+1 end if if year(fromtime)=year(now) and month(fromtime)=month(now) then visitmonth=visitmonth+1 end if rscount.movenext loop rscount.close set rscount=nothing %>

前天访问：<%=visitday3%>	昨天访问：<%=visitday2%>	今天访问：<%=visitday1%>
本月访问：<%=visitmonth%>	平均访问：<%=visitaverage%>	总共访问：<%=visittotal%>

　 <%If Page <> 1 Then ' 如果不是位于第一页%>?Page=1>首页 ?Page=<%=(Page-1)%>>上一页 <%End If If Page <> rs.PageCount Then ' 如果不是位于最后一页 %> ?Page=<%=(Page+1)%>>下一页 ?Page=<%=rs.PageCount%>>尾页 <%End If%> <% response.write "页次: "&page&"/"&rs.PageCount&"页"%> 页数： <%for ipage=1 to rs.pagecount if ipage<>page then%> ?page=<%=ipage%>> <% response.write ipage%> <% else %> <%=ipage%> <% end if %> <%next%>