?? tj_all.asp
字號:
<%@ CODEPAGE = "936" %>
<%
'=================================
'
' 阿江酷站訪問統計系統
' Ajiang info@ajiang.net
' www.ajiang.net
'
' 版權所有·抄襲挪用必究
'
'=================================
%>
<!--#include file="inc_config.asp"-->
<%
'權限檢查
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
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Copyright" content="Ajiang http://www.ajiang.net">
<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"-->
<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>
<tr><td>
<p style="line-height: 100%; margin-left: 15; margin-top: 5; margin-bottom: 0">
Tips: 用鼠標點指地區可看到IP地址及詳細地區，點指訪問日期可查看被訪問頁面。</p>
</td></tr>
</table>
<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="85">時 間</td><td width="75">地區</td><td width="40">屏寬</td><td width="55">操作系統</td><td width="55">瀏覽器</td><td width="170">來 源 網 頁</td>
</tr>
<%
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 "<tr><td colspan='6'><br><center>" & wherestr & "沒有符合條件的記錄</center><br></td></tr></table></td></tr></table>"
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
%>
<tr height="1" bgcolor="#5EC707"><td colspan=6></td></tr>
<tr height="18">
<td><a title="<%=rs("vpage")%>"><%=month(rs("vtime")) & "-" & day (rs("vtime")) & " " & formatdatetime(rs("vtime"),4)%></a></td>
<td><a title="<%=rs("vIP") & " " & rs("vwhere") & "·" & rs("vwheref")%>"><%=rs("vwhere")%></a></td>
<td align=center><%=rs("vwidth")%></td>
<td align=center><%=rs("vOS")%></td>
<td align=center><%=rs("vsoft")%></td>
<td><%
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 "<a href='" & vcome & "' target='_blank'>" & svcome & "</a>"
end if
if thelen >= 34 then
svcome=left(right(vcome,thelen-6),24) & "..."
Response.Write "<a title='" & vcome & "' href='" & vcome & "' target='_blank'>" & svcome & "</a>"
end if
%></td>
</tr>
<%
rs.movenext
if rs.eof then
i = i + 1
exit for
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">
<img src="images/gb-search.gif" align=absmiddle> ∷∷∷ 翻 頁 ∷∷∷<br><br>
第<font class="fonts"><%=cstr(curpage)%></font>頁 總<font class="fonts"><%=cstr(rs.pagecount)%></font>頁 本頁<font class="fonts"><%=cstr(i-1)%></font>條 總<font class="fonts"><%=cstr(rs.recordcount)%></font>條
<%
wherestr=server.URLEncode(wherestr)
if curpage <> 1 then%>
<a href="tj_all.asp?page=1&wherestr=<%=wherestr%>"><<首頁 </a>
<a href="tj_all.asp?page=<%=cstr(curpage-1)%>&wherestr=<%=wherestr%>"><上一頁 </a>
<%else%>
<font color="#888888"><<首頁 <上一頁</font>
<%end if
if curpage <> rs.pagecount then%>
<a href="tj_all.asp?page=<%=cstr(curpage+1)%>&wherestr=<%=wherestr%>"> 下一頁></a>
<a href="tj_all.asp?page=<%=cstr(rs.pagecount)%>&wherestr=<%=wherestr%>"> 尾頁>></a>
<%else%>
<font color="#888888">下一頁> 尾頁>></font>
<%end if%>
<input type=hidden name=wherestr value="<%=wherestr%>"> <input type=text name='page' 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>
<br>
<%
'如果是檢索結果，則顯示保存數據表單
if wherestr <> "" then
wherestr=Request("wherestr")
'保存數據表單
if session.Contents("master")=true or whatcan>=6 then
%>
<table width="500" cellspacing="0" align="center" cellpadding="0" border="0">
<tr><td colspan="3"><img src="images/photoup.gif"></td></tr>
<form action="tj_save.asp" method=post id=form1 name=form1>
<tr height="30">
<td width="1" class="backs"></td>
<td width="498"class="backq">
<img src="images/tb_save.gif" align=absmiddle><font style="font-size:16px"> </font>∷∷∷ 保存這次檢索條件 ∷∷∷<br>
<p class="p1"><font class="fonts"><b>檢索條件</b></font> <%if wherestr="" then%>沒有檢索條件<%else%><%=wherestr%><%end if%>。
<p class="p1" style='margin-bottom: 0;margin-top: 0;'><font class="fonts"><b>查詢項目</b></font> 詳細。
<p class="p1" style='line-height: 100%;margin-bottom: 0;margin-top: 0;'><font class="fonts"><b>取個名字</b></font> <input name="name" size="16" class="input">
<INPUT type="radio" name="overwrite" value="0" checked> 同名時提示
<INPUT type="radio" name="overwrite" value="1"> 同名時覆蓋
<p class="p1" style='line-height: 100%;margin-bottom: 0;margin-top: 0;'><font class="fonts"><b>加個介紹</b></font> <input name="content" size="50" class="input">
<p class="p1" style='margin-top: 0;' align="right">
<a href="help.asp?id=002">幫助</a>
<a href='javascript:document.forms[0].submit();'>保存</a>
<input type="hidden" name="wherestr" value="<%=wherestr%>"><input type="hidden" name="outtype" value="詳細"><input type="submit" value=" " name="save" class="backc2"><font style="font-size:16px"> </font>
</td>
<td width="1" class="backs"></td>
</tr>
</form>
<tr><td colspan="4"><img src="images/photodown.gif"></td></tr>
</table>
<br>
<%
end if
end if
%>
<%
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 + -