<%if session.Contents("master")=true or whatcan>0 then%>※ 总体数据<%end if%> <%if session.Contents("master")=true or whatcan>2 then%>
※ 详细记录<%end if%> <%if session.Contents("master")=true or whatcan>1 then%>
※ 24小时统计
※ 日统计
※ 周统计
※ 月统计
※ 来路统计
※ 被访页面
※ IP统计
※ 客户端软件
※ 访问者地区<%end if%>

自定义统计 <%set conn=server.createobject("adodb.connection") DBPath = Server.MapPath(connpath) conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") sql="select top 2 * from save" rs.Open sql,conn,1,1 do while not rs.EOF %>
&outtype=<%=server.URLEncode(rs("outtype"))%>&name=<%=server.URLEncode(rs("name"))%>&content=<%=server.URLEncode(rs("content"))%>" target="countmain">※ <%=left(rs("name"),6)%>
        更多... <% rs.MoveNext loop rs.Close set rs=nothing conn.Close set conn=nothing end if%>