日期:2014-05-17  浏览次数:20970 次

可以实现搜索的功能,但是怎么限制搜索条件?
我现在能实现搜索显示了,但是怎么限制搜索条件啊?把不输入搜索内容和输入表里没有的内容的两种情况限制住,现在总是报错!并且能够在不输入搜索内容的时候显示第一个表,就是正常的列表显示;按标题搜索的话显示第二个表,按内容搜索的话显示第三个表!在不跳转页面的情况下!我的代码如下:
 <form name="aa" action="shdt_list.asp" method="post">
  <td width="144" align="right">
  信息搜索:</td>
  <td width="302" align="center">
  <input onblur="if(this.value==''){this.value=this.defaultValue;};this.className='c1';target_email()"
  onfocus="if(this.value==this.defaultValue){this.value='';};this.className='c2';"
  value="请在这里输入需搜索的内容" type="text" class="srk" size="50" id="qyname" name="qyname"></td>
  <td width="59"><select id="select1" name="select1" onChange="MM_jumpMenu('parent',this,0)">
  <option value="1" selected="selected">标题</option>
  <option value="2">内容</option>
  </select></td>
  <td width="89"><input border=0  
name="bb" src="Images/ss.png" width="49" height="19" type="image" ></td>
</form>
  </tr>
  </table>
  </td>
  </tr>
  <tr>
  <%
types=request.Form("select1")
names=trim(request.Form("qyname"))
if types="" then %>
  <td height="606" class="INPUT01" align="center">
  <table width="638" height="306" border="0" cellpadding="0" cellspacing="0">
  <tr>
  <td width="638" height="641" valign="top">
 <% Dim sql %>
<% set rs=server.createobject("adodb.recordset")  
sql="select * from gsl_xwen where gsl_lb=28 order by gsl_id desc "
rs.open sql,conn,1,3
rs.pagesize=20
if request("page")<>"" then
  epage=cint(request("page"))
  if epage<1 then epage=1
  if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage
if not rs.bof then
for i=0 to rs.pagesize-1
if rs.bof or rs.eof then exit for %>
  <table width="641" border="0" cellspacing="0" cellpadding="0">
  <tr>
  <td width="30" class="jiage" align="center">
  <img src="Images/arrow_6.gif" width="11" height="11"></td>
  <td width="611" class="jiage" height="31">
  <a href="shdt_view.asp?cph=<%=rs("gsl_id")%>" class="link" target="_blank">
  <%=left(rs("gsl_news_title"),35)%>
  </a>&nbsp;
  <%if DateValue(rs("gsl_time"))=>DateValue(date()-0) then
Response.Write "<img src=""Images/kcnew.gif"" width=""23"" height=""11"">"
  %>
  <%end if%>
  </td>
  </tr>
  </table>
 <% rs.movenext()
next %>
  </td>
  </tr>
  </table>
  </td>
  </tr>
  <tr>
  <td height="31" class="INPUT01" align="