<%@ CODEPAGE = "936" %> <% '================================= ' ' 阿江酷站访问统计系统 ' Ajiang info@ajiang.net ' www.ajiang.net ' ' 版权所有·抄袭挪用必究 ' '================================= %> <% '权限检查 if session.Contents("master")=false and whatcan<4 then Response.Redirect "help.asp?id=004&error=您没有查看自定义检索记录和进行自定义检索的的权限。" %> <%=countname%>－自定义统计

Tips: 请在下面表格中填写您的查询条件，支持组合查询和模糊查询。


<% '检查权限 if session.Contents("master")=true or whatcan>=5 then %>
<% dim OS(7) OS(0)="Win 2000" OS(1)="Win XP" OS(2)="Win NT" OS(3)="Win 9x" OS(4)="类Unix" OS(5)="Mac" OS(6)="Other" dim soft(7) soft(0)="NetCaptor" soft(1)="MSIE 6.x" soft(2)="MSIE 5.x" soft(3)="MSIE 4.x" soft(4)="Netscape" soft(5)="Opera" soft(6)="Other" %>    ∷∷∷ 自定义统计项目 ∷∷∷
时 间 段： 年 月 日 ～ 年 月 日
ＩＰ地址：
来自地区：
客 户 端：  
来自网页：
被访网页：
输出类型：小时　　 日　　　 周　　　 月
　　　　　年　　　 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 * from save" rs.Open sql,conn,1,1 if not rs.EOF then %>
   ∷∷∷ 已保存的检索条件 ∷∷∷

<%do while not rs.EOF%> <%if rs("content") <> "" then%> <%end if%> <% rs.MoveNext loop%>
□ <%=rs("name")%> " >" >" >" ><%if session.Contents("master")=true or whatcan>=6 then%>">删除 <%end if%>查看结果  

<%=rs("content")%>


<% end if rs.Close set rs=nothing conn.Close set conn=nothing %>