用ASP构建你的网站新闻发布（四）

紧接上节，我们的新闻系统已能完成日常的新闻在线添加，删除等的功能，但这还是不足够的，有的用户可能需要查找一下过往某一专题内容的相关新闻条目，而一个比教完善的新闻系统，当然少不免也的完成这个功能。
    　　现在马上就为我们的新闻系统添加上（全文／标题）的检索功能吧，首先我们做一个检索表单，见下面的HTML代码，把这些代码放在需要新闻检索的web页面上。就可以供用户方便地完成新闻搜寻。
    <form method="POST" action="http://XXX..com.cn/cgi-win/search/search.asp">
    <p><select name="select" size="1">
    <option selected value="search_1">新闻检索(标题)</option>
    <option value="search_2">新闻检索(全文)</option>
    </select><input type="text" name="key" size="20"><input type="submit" value="搜　索"
    name="search"></p>
    </form>

    在这个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"
    %>
    
    <%
    　　Set rs_1 = Server.CreateObject("ADODB.Recordset")
    　　sql="select * from data where instr(news_title,'"&request.form("key")&"')>0"

补充：asp教程,高级应用