?? list.asp
字號:
<%@ CODEPAGE = "936" %>
<!--#include file="inc_config.asp"-->
<!--#include file="inc_menu.asp"-->
<%
'權限分配
if whatcan<1 then Response.Redirect "help.asp?id=004&error=本統計系統管理員不允許訪客查看任何信息。"
%>
<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="300; url='list.asp'">
<title><%=countname%></title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body style="BACKGROUND-IMAGE:url('images/leftback.gif')" class=backq>
<table>
<tr height="240"><td valign=top>
<p style="margin-left: 17;margin-right: 0; margin-top: 62; margin-bottom: 5">
<%if session.Contents("masterlogin")=true or whatcan>0 then%>
<a href="main.asp" target="countmain">※ 總體數據</a><%end if%>
<%if session.Contents("masterlogin")=true or whatcan>1 then%><br>
<a href="tj_all.asp" target="countmain">※ 詳細記錄</a><%end if%>
<%if session.Contents("masterlogin")=true or whatcan>2 then%><br>
<a href="tj_hour.asp" target="countmain">※ 24小時統計</a>
<br><a href="tj_day.asp" target="countmain">※ 日統計</a>
<br><a href="tj_week.asp" target="countmain">※ 周統計</a>
<br><a href="tj_month.asp" target="countmain">※ 月統計</a>
<br><a href="tj_come.asp" target="countmain">※ 來路統計</a>
<br><a href="tj_page.asp" target="countmain">※ 被訪頁面</a>
<br><a href="tj_ip.asp" target="countmain">※ IP統計</a>
<br><a href="tj_soft.asp" target="countmain">※ 客戶端軟件</a>
<br><a href="tj_where.asp" target="countmain">※ 訪問者地區</a><%end if%>
</td></tr>
<tr height=60><td valign=top>
<%if session.Contents("masterlogin")=true or whatcan>3 then%>
<p style="margin-left: 17;margin-right: 0; margin-top: 5; margin-bottom: 5"><a href="tj_search.asp" target="countmain">自定義統計</a>
<%
set conn=server.createobject("adodb.connection")
conn.Open constr
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 2 * from saves where mem_id ="& uid
rs.Open sql,conn,1,1
do while not rs.EOF
%>
<br><a href="tj_searchgo.asp?wherestr=<%=server.URLEncode(rs("wherestr"))%>&outtype=<%=server.URLEncode(rs("outtype"))%>&name=<%=server.URLEncode(rs("name"))%>&content=<%=server.URLEncode(rs("content"))%>" target="countmain">※ <%=left(rs("name"),6)%></a>
<br> <a href="tj_search.asp" target="countmain">更多...</a>
<%
rs.MoveNext
loop
rs.Close
set rs=nothing
conn.Close
set conn=nothing
end if
%>
</td></tr>
<tr><td>
<br><br> <a href=master.asp class=a2 target="countmain">※ 管理員控制臺</a>
<br><br><br> <a target="_top" href='logout.asp' class=a2>退出登錄 <img src="images/arbutton.gif" align="absmiddle" border="0"></a>
</td></tr>
</table>
</body>
</noframes>
<script src="http://www.21dx.com/count/count.asp?view=asp"></script>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -