search.asp ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) - ASP源码程序

gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\search.asp

    <!--#include file="inc/conn.asp"-->
<%
request_select=Request.form("select")
request_searchkeys=Request.form("searchkeys")

if request_searchkeys="" then
set rs=server.CreateObject("ADODB.RecordSet") '创建记录集对象
rs.Source="select * from News order by NewsID DESC"  '查询所有符合条件的记录
rs.Open rs.Source,conn,1,1 '打开记录集对象
elseif request_select="0" then
set rs=server.CreateObject("ADODB.RecordSet") '创建记录集对象
rs.Source="select * from News where (Title like  '%" & request_searchkeys & "%' or Content like  '%" & request_searchkeys & "%') order by NewsID DESC"  '查询所有符合条件的记录
rs.Open rs.Source,conn,1,1 '打开记录集对象
elseif request_select="1" then
set rs=server.CreateObject("ADODB.RecordSet") '创建记录集对象
rs.Source="select * from News where (Title like  '%" & request_searchkeys & "%') order by NewsID DESC"  '查询所有符合条件的记录
rs.Open rs.Source,conn,1,1 '打开记录集对象
elseif request_select="2" then
set rs=server.CreateObject("ADODB.RecordSet") '创建记录集对象
rs.Source="select * from News where (Content like  '%" & request_searchkeys & "%') order by NewsID DESC"  '查询所有符合条件的记录
rs.Open rs.Source,conn,1,1 '打开记录集对象
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新闻搜索</title>
<link href="css/bodystyle.css" rel="stylesheet" type="text/css">
</head>

<body bgcolor="#efefef" leftmargin="0" topmargin="2" marginwidth="0" marginheight="0">
<table width="100%" border=0 cellpadding=2 cellspacing=0 >
<% if rs.bof and rs.eof then
Response.write "<tr><td>"
Response.write "对不起，系统没有搜索到关键字为 <font color=red><strong>" & request_searchkeys & "</strong></font> 的相关内容！"
Response.write "</td></tr>"
else
%>
        <% While not rs.eof %>
<%
set rs1=server.CreateObject("ADODB.RecordSet") '创建记录集对象
rs1.Source="select BigClassName from BigClass where BigClassID=" & trim(rs("BigClassID"))  '查询所有符合条件的记录
rs1.Open rs1.Source,conn,1,1 '打开记录集对象

BigClassName=trim(rs1("BigClassName"))
rs1.close
%>
        <tr>
          <td>
        <% Response.write "<a title=" & trim(rs("Title")) & " href=ReadNews.asp?NewsID=" & rs("NewsID") &  "&BigClassID=" & rs("BigClassId") & "&SmallClassID=" & rs("SmallClassID") & " target=_blank><img src='./pic/news.gif' border=0> " & "<b>[" & BigClassName & "]</b> " & trim(rs("Title")) & "(" & YEAR(rs("UpdateTime")) & "-" & Month(rs("UpdateTime")) &"-"& Day(rs("UpdateTime")) & ")</a>" %>
          </td>
        </tr>
        <% rs.movenext
wend
end if

rs.close
set rs=nothing
%>
</table>
</body>
</html>