各位大哥帮帮忙！怎样做一个站内搜索！

<!------------------左边新闻分类栏(end)------------------> <!---------------搜索块---------------------------->           
  <table width="97%" border="0" cellspacing="3" cellpadding="3" style="border-collapse: collapse" bordercolor="#111111" class=black>
        <tr> 
          <form name="form1" method="post" action="index.asp">
            <td align=center> 新闻搜索： 
              <input type="text" name="keyword" class="smallInput" size="20">
              @ 
          <select name="cataid">
 <% '搜索类别选择
sql="select * from newstype" //newstype(包含新闻类型):国内新闻,国际新闻,政治..)
rs.open sql,adocon,1,1
rs.movefirst
if  rs.eof  then
response.write "<option value=''>没有分类</option>"
else
response.write "<option value=''>全部新闻</option>"
do while not rs.eof
response.write "<option value='"&trim(rs("title"))&"'"
if request("cataid")<>" " then
if rs("title")=request("cataid") then response.write " selected "
end if
response.write ">"&rs("title")&"</option>"
rs.movenext
loop
end if
rs.close '搜索类别选择结束
%> 
             
 
  </select> 
              <input type="image" border="0" name="imageField" src="img/find.gif" width="50" height="17"> 
            </td>
          </form>
        </tr>
      </table>
<!----------------文件搜索(end)--------------->      
  <p> 
      <table width="97%" border="1" cellspacing="0" cellpadding="3" bordercolordark="#FFFFFF" bordercolorlight="#000000" class=black>
        <tr bgcolor="#cccddd" height=25 background="img/bg3.gif"> 
          <td colspan="4" background="img/bg3.gif"> 
            <div align="right"><font color="#FFFFFF">...:: 
              <!------搜索显示-------->
              <%
dim cataid
cataid=request("cataid")
if cataid="" then
 catid="全部新闻"
 else
catid=cataid
end if
if request("keyword")<>"" then response.write "搜索<font color=red>"&request("keyword")&"</font> @ "
response.write catid%>
              <!---------搜索部分到此结束------------>
              ::...</font></div></td>   自己试试..不行的地方稍加修改.  :)