<% dim rs1 set rs = server.createobject("adodb.recordset") set rs1 = server.createobject("adodb.recordset") If Request.QueryString("CurPage") = "" or Request.QueryString("CurPage") = 0 then CurPage = 1 Else CurPage = CINT(Request.QueryString("CurPage")) End If %> [<%=pagename%>]--访问量日志


访问量统计记录

<% sql="select * from counter" rs1.open sql,conn,1,2 today=rs1("today") ttop=rs1("top") %>

站点

 总访问量 统计天数 最高记录 今日 昨日 日均

<%=pagename%>

 <%=rs1("counter")%>　 <%=rs1("daynum")%>　 <%=rs1("top")%>　 <%=rs1("today")%>　 <%=rs1("yesterday")%>　 <%=int(rs1("counter")/rs1("daynum"))%>　　
<% sql="select * from zzday order by ID desc" rs.open sql,conn,1,2 if rs.eof and rs.bof then response.write "

暂时没有往日统计记录

" else RS.PageSize=pagen Dim TotalPages TotalPages = RS.PageCount If CurPage>RS.Pagecount Then CurPage=RS.Pagecount end if RS.AbsolutePage=CurPage rs.CacheSize = RS.PageSize Dim Totalcount Totalcount =INT(RS.recordcount) StartPageNum=1 do while StartPageNum+10<=CurPage StartPageNum=StartPageNum+pagen Loop EndPageNum=StartPageNum+pagen-1 If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount %>

日期

 访问量 图例
<%=rs1("oto")%>　 <%=rs1("today")%>　 %" alt=<%=rs1("today")%>>
<% rs1.close set rs1=nothing %> <% I=0 p=RS.PageSize*(Curpage-1) do while (Not RS.Eof) and (I <% I=I+1 RS.MoveNext Loop %>
<%=rs("zzday")%>　　 <%=rs("stats")%>　 %" alt=<%=rs("stats")%>>
每页<%=RS.PageSize%>个记录，页次： <%=CurPage%>/<%=TotalPages%> 页数： << <% For I=StartPageNum to EndPageNum if I<>CurPage then %> <%=I%> <% else %> <%=I%> <% end if %> <% Next %> <% if EndPageNum 更多... <%end if%>
<% end if %> <% rs.close set rs=nothing set rs=server.createobject("adodb.recordset") sql="select * from [zzday]" rs.open sql,conn,1,1 D_num=rs.recordcount rs.close set rs=nothing conn.Execute"Update counter set daynum="&D_num&"+1,counter="&alldot()&"+"&today&"" function alldot() dim tmprs set tmprs=conn.execute("Select sum(stats) As dot from [zzday]") alldot=tmprs("dot") set tmprs=nothing if isnull(alldot) then alldot=0 end function %>