ASP站內(nèi)搜索的實(shí)例源代碼解析

2024-05-04 11:06:06

字體：大中小

供稿：網(wǎng)友

假如你擁有一個(gè)龐大的網(wǎng)站，內(nèi)容又多，那么來訪者往往很難找到自己所需要的東東，這時(shí)候你就需要一個(gè)站內(nèi)搜索來幫助來訪者更快的找到索要的資料了！現(xiàn)在你就可以用asp輕易的實(shí)現(xiàn)這種功能，何況現(xiàn)在支持asp的站點(diǎn)這么多，利用這個(gè)搜索引擎可以搜索到你的主頁里面任何一個(gè)文件或者軟件資料，它可以精確到每個(gè)字！說了這么多你是不是怦然心動(dòng)了啊，那就按照下面的步驟來建立自己的搜索引擎吧：

（一），首先利用access97建立一個(gè)名為list.mdb的數(shù)據(jù)庫，在里面建立一個(gè)名為list的表，然后在list表里面輸入一些你想要被查詢的文件名字，關(guān)鍵的搜索詞還有相對(duì)應(yīng)的鏈接，下面建立了四個(gè)項(xiàng)目ID（編號(hào)），title（主題），word（關(guān)鍵詞），url（鏈接地址），如下表所示：

ID title word url
1 cgi教程本地調(diào)試cgi cgi/testcgi.htm
2 下載中心聊天室，留言本 download/index.htm

（二），建立了數(shù)據(jù)庫以后就可以建立你的asp搜索頁面了，下面是一個(gè)文件名為search.htm的asp搜索頁面的源程序，這個(gè)搜索引擎可以同時(shí)搜索title和word里面的內(nèi)容，當(dāng)然如果你有需要的話可以建立更多的搜索：

<% "建立數(shù)據(jù)庫的連接
     con="DBQ="+server.mappath("list.mdb")+";DefaultDir=;DIRVER={microsoft Access Driver(*.mdb)};"
          "建立CONNECTION對(duì)象并打開數(shù)據(jù)庫
     set mycon=server.createobject("ADODB.CONNECTION")
          mycon.open.con %>
          "創(chuàng)建Recordset對(duì)象的例程，打開Recordset對(duì)象傳遞SQL串以及所有的連接信息
          <% set rs=server.createobject("ADODB.Recordset")
          rs.open "SELECT*FORM list where title and word like ’%’&request.form("word")&"%’",MyCon,adOpenStatie
          %>
          "建立查詢后的顯示信息和查詢頁面,你想取什么名字都可以
          <html><head><title>查詢結(jié)果</title></head>
          <body bgcolor="#ffffff">
          <p align="center"><br>
          "統(tǒng)計(jì)查詢共有<% Response.Write(RS.RecordCount) %>條紀(jì)錄</p><br>
          <div align="center"><center>
          <table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff">
          <tr align="center">
          <td width="20%" align="center" bgcolor="#ffffff">ID</td>
          <td width="60%" align="center" bgcolor="#ffffff">主題</td>
          <td width="20%" align="center" bgcolor="#ffffff">查看</td></table>
          <table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff">
          <tr align="center">
          
          <% while not rs.eof %>
          <tr align="center">
          <td width="20%" align="center" bgcolor="#ffffff"><% =rs("id") %></td>
          <td width="60%" align="center" bgcolor="#ffffff"><% =rs("title") %></td>
          <td width="20%" align="center" bgcolor="#ffffff"><a href="<% =rs("url") %>">GO</a></td>
          <% rs.movenext %></tr>    <% wend %></table></center></div><% rs.close %>
          <% mycon.close %>
          "關(guān)閉鏈接
          </body></html>
          下面我們來建立搜索頁面
     <html><head><title>搜索頁面</title></head>
          
          <from method="POST" action="search.asp">
          <div align="center"><center><p><input type="text" name="word" size="30">
          <input type="submit" value="提交" name="B1"><input type="reset" value="清除" name="B2"></p>
          </center></div></form>
          <hr width="600" align="center">
          <html>