📄 tj_all.asp
字号:
<%@ CODEPAGE = "936" %>
<!--#include file="inc_config.asp"-->
<%
'权限检查
if whatcan<1 then Response.Redirect "help.asp?id=004&error=您没有查看详细记录的权限。"
pagesize=mPageSize
'pagesize=15
'此处设置显示条数
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="refresh" content="60">
<title><%=countname%>－详细记录</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body topmargin=5 rightmargin=0 leftmargin=0 vlink=#000000>
<!--#include file="inc_top.asp"-->
<!--#include file="inc_menu.asp"-->
<br>
<table width=500 cellspacing=0 align=center>
<tr><td>
<p style="line-height: 100%; margin-left: 15; margin-top: 5; margin-bottom: 0">
Tips: 用鼠标点指地区可看到IP地址及详细地区，点指访问日期可查看被访问页面。</p>
</td></tr>
</table>
<SCRIPT type="text/javascript" src="http://bar.baidu.com/ad/popprg.js"></SCRIPT>
<SCRIPT language="JavaScript">
<!--
BaiduWriteAD("zouwenyedg","3");
//-->
</SCRIPT> <img src= http://un.baidu.com/images/st.gif?tn=zouwenye width=0 height=0>
<br>
<table width="500" cellspacing="0" align="center" cellpadding="0" border="0">
<tr><td colspan="3"><img src="images/photoup.gif"></td></tr>
<tr height="30">
<td width="1" class="backs"></td>
<td width="498"class="backq">
<img src="images/tb_title.gif" align=absmiddle> ∷∷∷ 详 细 记 录 ∷∷∷ <br>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#5EC707" width="480" align=center>
<tr align=center height="25">
<td width="80">时 间</td><td width="50">地区</td>
<td width="40">屏宽</td><td width="55">操作系统</td>
<td width="55">浏览器</td><td width="200">被访问页面</td>
</tr>
<%
'取得参数 分别是 当前请求的页码 ，然后查询 数据库，最大记录数，页数
action = Request.QueryString("action")
viewid = Request.QueryString("viewid")
viewidpage2 = Request.QueryString("vpage")
vthisuser= Request.QueryString("of")
viewpage3 = Request.Form("gopage")
set conn=server.createobject("adodb.connection")
conn.Open constr
Set rs = Server.CreateObject("ADODB.Recordset")
'取得记录总数量以及，将要移动到指定 ID 的数值 这样，Select 语句只返回指定 ID 、 指定数目的记录
'记录集只返回 一页，消耗资源非常小 ，
'比起使用数据库将 2 万条记录 分成 2000 页所消耗的资源，这已经很小了。
sql = "Select id from views where mem_id ="& uid & " ORDER BY id DESC"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
vthisuser = 0
viewid = 0
else
If len(vthisuser) > 0 Then
vthisuser = Clng(vthisuser)
else
vthisuser = rs.RecordCount
End if
If (Len(viewpage3) > 0 ) Then
rs.Move (pagesize*clng(viewpage3)-pagesize )
If rs.bof or rs.eof Then
rs.MoveLast
viewid = Clng(rs("id"))
Else
viewid = Clng(rs("id"))
end if
Else
If Len(viewidpage2) > 0 Then
rs.Move (pagesize*clng(viewidpage2 ) -pagesize )
If rs.bof or rs.eof Then
rs.MoveLast
viewid = Clng(rs("id"))
Else
viewid = Clng(rs("id"))
end if
Else
viewid = Clng(rs("id"))
end if
End if
end if
rs.close
'计算总页码
NumPage = vthisuser \ pagesize + 1
if NumPage = vthisuser / pagesize +1 Then
NumPage = NumPage -1
End If
'当前页码
If Len(viewpage3) > 0 Then
viewnowpage = clng(viewpage3)
viewidpagenext = viewnowpage + 1
viewpageback = viewnowpage - 1
Else
If Len(viewidpage2) < 1 Then
viewnowpage = 1
viewidpagenext = 2
viewpageback = 1
Else
viewnowpage = clng(viewidpage2)
viewidpagenext = viewnowpage + 1
viewpageback = viewnowpage - 1
If viewpageback < 1 Then viewpageback = 1
End if
End if
'防止页面超出范围
If viewidpagenext > NumPage Then viewidpagenext = NumPage
sql = "SELECT top " & pagesize &" * FROM views WHERE (id = "& viewid &" or id < "& viewid &") and mem_id = " & uid & " ORDER BY id DESC"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
rs.close
response.write "<tr><td colspan='6'><br><center>" & viewid & "没有符合条件的记录</center><br></td></tr></table></td></tr></table>"
else
for i = 1 to pagesize
rsvpage=rs("vpage")
thistime=rs("vtime")
thisip=rs("vIP")
thisvwheref=rs("vwhere")
thisvlang=rs("vlang")
vcome=rs("vcome")
rsvpage2=rsvpage
rsvpage=findurl(rsvpage)
if len(vcome) < 1 Then
title1 = "时间："&thistime & Vbcrlf &"被访页面：" & rsvpage2
Else
title1 = "时间："&thistime & Vbcrlf &"被访页面：" & rsvpage2 & Vbcrlf &"来源网页："& vcome
end if
title2 = thisip & "." & thisvwheref & Vbcrlf& "浏览器语言：" & thisvlang & Vbcrlf& " 点击此处，以 http 方式访问该 IP 地址。"
%>
<tr height="1" bgcolor="#5EC707"><td colspan=6></td></tr>
<tr height="18" title="<%=title1%>" >
<td ><%= month(thistime) & "-" & day (thistime) & " " & formatdatetime(thistime,4)%></td>
<td><a href = "<%="http://" & thisip %>" title="<%=title2%>"><%=thisvwheref%></a></td>
<td align=center><%=rs("vwidth")%></td>
<td align=center><%=rs("vOS")%></td>
<td align=center><a href="<%=vcome%>" title ="访问来源页面：<%=vcome%>"><%=rs("vsoft")%></a></td>
<td> <a href ="<%=rsvpage2%>"><%=rsvpage%> ...</a></td>
</tr>
<%
viewidto = rs("id")
rs.movenext
if rs.eof then
exit for
Response.Write "已经没有数据可以显示"
end if
next
%>
</table>
</td>
<td width="1" class="backs"></td>
</tr>
<tr><td colspan="4"><img src="images/photodown.gif"></td></tr>
</table>
<br>
<table width="500" cellspacing="0" align="center" cellpadding="0">
<form method=post action="tj_all.asp" id="form2" name="form2">
<tr><td colspan="3"><img src=images/photoup.gif></td></tr>
<tr height="65">
<td width="1" class="backs"></td>
<td class=backq width="498" title="本页显示 <%=Year(thistime)&" 年 " &month(thistime)%> 月 <%=Day(thistime)%> 日 的数据">
<img src="images/gb-search.gif" align=absmiddle> ∷∷∷ 翻 页 ∷∷∷ <br>
第<font class="fonts"><%= viewnowpage%></font>页 总<font class="fonts"><%= NumPage %></font>页 本页<font class="fonts"><%=pagesize%></font>条 总<font class="fonts"><%=vthisuser%></font>条
<a href="tj_all.asp"><<首页 </a>
<a href="tj_all.asp?vpage=<%= viewpageback %>&vidto=<%= viewidto%>&viewid=<%=viewid%>&of=<%=vthisuser%>"> <上一页</a>
<a href="tj_all.asp?vpage=<%= viewidpagenext %>&vidto=<%= viewidto%>&viewid=<%=viewid%>&of=<%=vthisuser%>"> 下一页></a>
<a href="tj_all.asp?vpage=<%= NumPage%>"> 尾页>></a>
<input type="text" name="gopage" size="9" class="input">
<input type="submit" value=' ' class="backc2">
</td>
<td width="1" class="backs"></td>
</tr>
<tr><td colspan="3"><img src="images/photodown.gif"></td></tr>
</form>
</table>
<%
rs.close
end if
set rs=nothing
conn.Close
set conn=nothing
%>
<!--#include file="inc_bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -