?? tj_search.asp
字號:
<%@ CODEPAGE = "936" %>
<%
'=================================
'
' 阿江酷站訪問統計系統
' Ajiang info@ajiang.net
' www.ajiang.net
'
' 版權所有·抄襲挪用必究
'
'=================================
%>
<!--#include file="inc_config.asp"-->
<%
'權限檢查
if session.Contents("master")=false and whatcan<4 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="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"-->
<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: 請在下面表格中填寫您的查詢條件，支持組合查詢和模糊查詢。</p>
</td></tr>
</table>
<br>
<%
'檢查權限
if session.Contents("master")=true or whatcan>=5 then
%>
<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">
<%
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"
%>
<img src="images/tb_title.gif" align=absmiddle> ∷∷∷ 自定義統計項目 ∷∷∷<br>
<table border="0" cellpadding="0" cellspacing="0" width="430" align=center>
<form action="tj_searchgo.asp" method="post" name="search">
<tr height="9"><td></td></tr>
<tr><td>
時 間 段：<input name="onyear" class="input" size="5"> 年
<input name="onmonth" class="input" size="3"> 月
<input name="onday" class="input" size="3"> 日
～ <input name="offyear" class="input" size="5"> 年
<input name="offmonth" class="input" size="3"> 月
<input name="offday" class="input" size="3"> 日
<br>ＩＰ地址：<input name="vip" class="input" size="16">
<br>來自地區：<input name="vwhere" class="input" size="25">
<br>客 戶 端：<SELECT name="vOS1" class="input" style="width:70" id="vos1">
<OPTION value="" selected>操作系統</OPTION><%for i=0 to 6%>
<OPTION value="<%=OS(i)%>"><%=OS(i)%></OPTION><%next%> </SELECT>
<INPUT name="vOS2" class="input" size="10" id="vos">
<SELECT name="vsoft1" class="input" style="width:70">
<OPTION value="" selected>瀏覽器</OPTION><%for i=0 to 6%>
<OPTION value="<%=soft(i)%>"><%=soft(i)%></OPTION><%next%> </SELECT>
<INPUT name="vsoft2" class="input" size="10">
<br>來自網頁：<input name="vcome" class="input" size="35">
<br>被訪網頁：<input name="vpage" class="input" size="35">
<br>輸出類型：<INPUT type="checkbox" name="outtype" value="小時">小時
<INPUT type="checkbox" name="outtype" value="日">日
<INPUT type="checkbox" name="outtype" value="周">周
<INPUT type="checkbox" name="outtype" value="月">月
<br> <INPUT type="checkbox" name="outtype" value="年">年
<INPUT type="checkbox" name="outtype" value="IP">IP
<INPUT type="checkbox" name="outtype" value="地區">地區
<INPUT type="checkbox" name="outtype" value="瀏覽器">瀏覽器
<br> <INPUT type="checkbox" name="outtype" value="操作系統">操作系統
<INPUT type="checkbox" name="outtype" value="來路">來路
<INPUT type="checkbox" name="outtype" value="頁面">頁面
<INPUT type="checkbox" name="outtype" value="詳細">詳細
</td></tr>
<tr><td align=right><a href="help.asp?id=001">幫助</a> <a href='javascript:document.forms[0].submit();'>查看結果</a> <input type="submit" name="search" class="backc2" value=" "> </td></tr>
</form>
</table>
</td>
<td width="1" class="backs"></td>
</tr>
<tr><td colspan="4"><img src="images/photodown.gif"></td></tr>
</table>
<br>
<%
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
%>
<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"><img src="images/touming.gif" width="1" height="1"></td>
<td width="498"class="backq">
<img src="images/tb_title.gif" align=absmiddle><font style="font-size:16px"> </font>∷∷∷ 已保存的檢索條件 ∷∷∷<br><br>
<table width="430" border="0" cellspacing=0 cellpadding=0 align=center>
<tr height="1" class="backs"><td colspan=2><img src="images/touming.gif" width="1" height="1"></td></tr>
<%do while not rs.EOF%>
<form action="tj_searchgo.asp" method=post>
<tr height="28">
<td>
□ <font class=fonts><%=rs("name")%></font>
</td>
<td align=right>
<input name="content" size="50" type="hidden" value="<%=rs("content")%>"
><input type="hidden" name="wherestr" value="<%=rs("wherestr")%>"
><input type="hidden" name="outtype" value="<%=rs("outtype")%>"
><input type="hidden" name="name" value="<%=rs("name")%>"
><%if session.Contents("master")=true or whatcan>=6 then%><a href="tj_save_del.asp?id=<%=rs("id")%>">刪除</a> <%end if%>查看結果 <input type="submit" value=" " name="save" class="backc2">
</td>
</tr>
<%if rs("content") <> "" then%>
<tr>
<td colspan=2><p style='text-indent: 25;line-height: 130%;margin-left: 17;margin-right: 5;margin-top: 0; margin-bottom: 5'><font color="#555555"><%=rs("content")%></font></td>
</tr>
<%end if%>
<tr height="1" class="backs"><td colspan=2><img src="images/touming.gif" width="1" height="1"></td></tr>
</form>
<%
rs.MoveNext
loop%>
</table>
<br>
</td>
<td width="1" class="backs"><img src="images/touming.gif" width="1" height="1"></td>
</tr>
<tr><td colspan="4"><img src="images/photodown.gif"></td></tr>
</table>
<br>
<%
end if
rs.Close
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 + -