<%@ CODEPAGE = "936" %> <% '================================= ' ' 阿江酷站访问统计系统 ' Ajiang info@ajiang.net ' www.ajiang.net ' ' 版权所有·抄袭挪用必究 ' '================================= %> <% '权限检查 if session.Contents("master")=false and whatcan<3 then Response.Redirect "help.asp?id=004&error=您没有查看详细记录的权限。" wherestr=Request("wherestr") pagesize=mPageSize if request("page")="" then curpage = 1 else curpage = cint(request("page")) end if %> <%=countname%>－详细记录

Tips: 用鼠标点指地区可看到IP地址及详细地区，点指访问日期可查看被访问页面。


   ∷∷∷ 详 细 记 录 ∷∷∷
<% 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 view " & wherestr & " ORDER BY id DESC" rs.open sql, conn, 1, 1 if rs.bof and rs.eof then rs.close response.write "
时   间地区屏宽操作系统浏览器来 源 网 页

" & wherestr & "没有符合条件的记录

" else dim i rs.pagesize = pagesize if rs.pagecount < curpage then rs.absolutepage=rs.pagecount curpage=rs.pagecount else rs.absolutepage = curpage end if for i = 1 to rs.pagesize %> "><%=month(rs("vtime")) & "-" & day (rs("vtime")) & " " & formatdatetime(rs("vtime"),4)%> "><%=rs("vwhere")%> <%=rs("vwidth")%> <%=rs("vOS")%> <%=rs("vsoft")%> <% vcome=rs("vcome") thelen=len(vcome) if thelen=0 then Response.Write "" if thelen <= 33 and thelen > 0 then svcome=right(vcome,thelen-6) Response.Write "" & svcome & "" end if if thelen >= 34 then svcome=left(right(vcome,thelen-6),24) & "..." Response.Write "" & svcome & "" end if %> <% rs.movenext if rs.eof then i = i + 1 exit for end if next %>
  ∷∷∷ 翻 页 ∷∷∷

  第<%=cstr(curpage)%>页 总<%=cstr(rs.pagecount)%>页 本页<%=cstr(i-1)%>条 总<%=cstr(rs.recordcount)%>条   <% wherestr=server.URLEncode(wherestr) if curpage <> 1 then%> <<首页 <上一页 <%else%> <<首页 <上一页 <%end if if curpage <> rs.pagecount then%> 下一页> 尾页>> <%else%> 下一页> 尾页>> <%end if%>  

<% '如果是检索结果，则显示保存数据表单 if wherestr <> "" then wherestr=Request("wherestr") '保存数据表单 if session.Contents("master")=true or whatcan>=6 then %>
   ∷∷∷ 保存这次检索条件 ∷∷∷

检索条件  <%if wherestr="" then%>没有检索条件<%else%><%=wherestr%><%end if%>。

查询项目  详细。

取个名字    同名时提示  同名时覆盖

加个介绍 

帮助 保存   


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