?? news_search.asp
字號:
<%
'功能：查詢新聞
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
'response.buffer=false
'------------------------------------------------設置參數
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '當前用戶ID
'------------------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>main</title>
<base target="FrmMain">
<script src="../js/Popup.js"></script>
</head>
<body topmargin="10" leftmargin="10">
<br>
<div align="center">
<table width="450" cellspacing="1" cellpadding="2" class="tab">
<form id="eventfrm" method="post" name="frm_a_search">
<tr>
<td width="100%" class="tdTop" colspan="2">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td class="tdTop">
<p align="left"><img border="0" src="../images/icon_title.gif" align="left">搜索新聞</p>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="102" align="right" height="25" class="td1">信息類別： </td>
<td class="td1">
<select name="newsort" >
<%set rs_child=server.CreateObject("adodb.recordset")
rs_child.Open "select * from tbioaInfoStyle order by id",oConn,1,1
if rs_child.RecordCount=0 then
rs_child.Close
set rs_child=nothing
else
do until rs_child.EOF
Response.Write "<option value='" & rs_child("id") & "'>" & rs_child("newsort") & "</option>"
rs_child.MoveNext
loop
rs_child.Close
set rs_child=nothing
end if
%>
<option value="0" selected>所有信息</option>
</select>
</td>
</tr>
<tr>
<td width="102" align="right" height="25" class="td1">發布日期： </td>
<td class="td1">
<input type="text" name="StartDate" maxlength="10" size="10" class="input" readonly> <a href=# title="選擇日期" onClick="fPopUpDlg('../js/calendar.htm', document.eventfrm.StartDate, 'winpop', 234, 261);return false"><img src="../images/datetime.gif" border=0></a>
至
<input type="text" size="10" maxlength="10" name="EndDate" value="" class="input" readonly> <a href=# title="選擇日期" onClick="fPopUpDlg('../js/calendar.htm', document.eventfrm.EndDate, 'winpop', 234, 261);return false"><img src="../images/datetime.gif" border=0></a>
(如：2001-7-13)
</td>
</tr>
<tr>
<td width="102" align="right" height="25" class="td1">關 鍵 字： </td>
<td class="td1">
<input type="text" name="keyword" class="input">
</td>
</tr>
<tr>
<td width="102" align="right" height="25" class="td1">搜索范圍： </td>
<td class="td1">
<input type="radio" name="passed" value="1" checked>
標題
<input type="radio" name="passed" value="2">
內容
<input type="radio" name="passed" value="0">
全文
<input type="submit" name="Submit2" value="開始搜索" class="button0" onmouseout=className="button0" onmouseover=className="button1">
</td>
</tr>
<tr><td class="tdbottom" colspan="2"></td></tr>
</form>
</table>
<%if Request.ServerVariables("REQUEST_METHOD")="POST" then
'------------------------------------------------設置參數
maxmessage=15 '每頁顯示記錄數
currentpage=request("page") '當前頁碼
Search=request("Search") '上次查詢條件
'------------------------------------------------
'------------------------------------------------取記錄
'分頁取新聞記錄 （返回rs對象）
'rs.recordcount 為記錄總數
'rs.PageSize 為本頁記錄數
'
if Search="" then
newsort=Request.Form("newsort"):if newsort="" then newsort=0
keyword=replace(Request.Form("keyword"),"'","")
passed=Request.Form("passed")
s_date=Request.Form("StartDate"):if not isdate(s_date) then s_date=""
e_date=Request.Form("EndDate"):if not isdate(e_date) then e_date=""
sqlstr="SELECT t.id,t.title,t.newsdate,m.newsort as boardname FROM tbioaInfomation t,tbioaInfoStyle m WHERE t.newsort=m.id AND t.title<>''"
if keyword<>"" then '當有關鍵字輸入時
select case passed
case 0
key_search_str=" AND (t.title like '%" & keyword & "%' or t.content like '%" & keyword & "%')"
key_search_str=" AND (t.title like '%" & keyword & "%')"
case 2
key_search_str=" AND (t.content like '%" & keyword & "%')"
end select
else
key_search_str=""
end if
sqlstr=sqlstr & key_search_str
if newsort=0 and (not returnqx("0404")) then
set rs1=Server.CreateObject("ADODB.RecordSet")
sql_stmt="select * from tbioaInfoStyle"
rs1.open sql_stmt,oConn,1,1
if not rs1.eof then
do while not rs1.eof
viewAuth=ReturnManage(rs1("viewermod"),rs1("ID"),"viewer","tbioaInfoStyle") '取當級目錄查看權限
manageAuth=ReturnManage(rs1("managermod"),rs1("ID"),"manager","tbioaInfoStyle") '取當級目錄管理權限
if viewAuth or manageAuth then
search_sort=search_sort&rs1("id")&"," '得到可查看的欄目ID
end if
rs1.movenext
loop
rs1.close
if len(search_sort)>1 then '有可查看的欄目
search_sort=left(search_sort,len(search_sort)-1)
sqlstr=sqlstr & " AND t.newsort in (" & search_sort &") "
else '沒有可查看的欄目
sqlstr=sqlstr & " AND 1<>1"
end if
end if
else
set rs1=Server.CreateObject("ADODB.RecordSet")
sql_stmt="select * from tbioaInfoStyle where id=" & newsort
rs1.open sql_stmt,oConn,1,1
if not rs1.eof then
viewAuth=ReturnManage(rs1("viewermod"),rs1("ID"),"viewer","tbioaInfoStyle") '取當級目錄查看權限
manageAuth=ReturnManage(rs1("managermod"),rs1("ID"),"manager","tbioaInfoStyle") '取當級目錄管理權限
if viewAuth or manageAuth or returnqx("0404") then '判斷是否有查看該欄目的權限
sqlstr=sqlstr & " AND t.newsort = " & newsort
else
sqlstr=sqlstr & " AND 1<>1"
end if
end if
end if
' if newsort<>0 then
' if i=true then
' sqlstr=sqlstr & " AND m.parentID=" & newsort
' else
' sqlstr=sqlstr & " AND t.newsort=" & newsort
' end if
' end if
if s_date<>"" then
if e_date<>"" then
date_search_str=" AND (t.newsdate between '" & s_date & " 00:00' and '" & e_date & " 23:59')"
else
date_search_str=" AND (t.newsdate between '" & s_date & " 00:00' and '" & s_date & " 23:59') "
end if
else
if e_date<>"" then
date_search_str=" AND (t.newsdate between '" & e_date & " 00:00' and '" & e_date & " 23:59')"
else
date_search_str=""
end if
end if
sqlstr=sqlstr & date_search_str & " ORDER BY newsdate desc"
else
sqlstr=Search
end if
set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT tbioaInfomation.*,tbioaUser.Name from tbioaInfomation join tbioaUser on sender=tbioaUser.ID WHERE newsort=" & Style
' response.write sqlstr
rs.Open sqlstr,oConn,1,1
Showpage=SearchPaging(rs,maxmessage,currentpage,sqlstr)
'------------------------------------------------
%>
<br>
<table width="500" border=0 cellspacing="0" cellpadding="0">
<tr>
<td width=150><img border="0" src="../images/icon_title.gif" align="left">
以下是新聞搜索結果
</td>
<td><%=Showpage%></td>
</tr>
</table>
<%
if rs.RecordCount=0 then
response.write "<BR><BR>暫時為空！"
else
%>
<table border=0 cellspacing=2 cellpadding=2 align="center" width="500">
<%for i = 0 to rs.PageSize-1 '循環
If rs.EOF Then Exit For
if i mod 2 = 0 then td_class="td1" else td_class="td2"
%>
<tr>
<td>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -