在這個FORM的基礎添加上處理搜尋的ASP程序search.asp。在表單用我們用key這個參數來指示出需要匹配的字串，而select參數指定是基于全文搜索還是標題搜索。 現在進入程序處理部份，看看我們的search.asp程序。 ＊search.asp 《% @language="vbscript" %》 《% if request.form("key")="" then response.redirect "/" end if
select case request.form("select") case "search_1" %》 《!--#include Virtual="/cgi-win/search/news/data.inc"--》 《% Set rs_1 = Server.CreateObject("ADODB.Recordset") sql="select * from data where instr(news_title,'"&request.form("key")&"')》0" sql=sql+" Order by news_id Desc,news_class ASC" rs_1.open sql,conn_1,3,2 case "search_2" %》 《!--#include Virtual="/cgi-win/search/news/data.inc"--》 《% Set rs_1 = Server.CreateObject("ADODB.Recordset") sql="select * from data where instr(news_comment,'"&request.form("key")&"')》0" sql=sql+" Order by news_id Desc,news_class ASC" rs_1.open sql,conn_1,3,2
end select
if rs_1.bof then response.redirect "/" response.end end if
do while not rs_1.eof if not rs_1.eof then disp=disp&"《tr》《td》《a href=http://www.aaaaa.com.cn/news/read.asp?news_id="&rs_1("news_id")&" target=_blank》》》"&rs_1("news_title")&"《font size=1》("&rs_1("news_month")&"-"&rs_1("news_day")&")《/font》《/a》《/td》《/tr》《/p》" rs_1.movenext end if loop dispmess=dispmess&disp
