一個ASP站內搜索的實例源代碼

假如你擁有一個龐大的網站,比如(www.ehpos.com),內容又多,那麼來訪者往往很難找到自己所需要的東東,這時候你就需要一個站內搜索來幫助來訪者更快的找到索要的資料了!現在你就可以用asp輕易的實現這種功能,何況現在支持asp的站點這麼多,利用這個搜索引擎可以搜索到你的主頁裏面任何一個文件或者軟件資料,它可以精確到每個字!說了這麼多你是不是怦然心動了啊,那就按照下面的步驟來建立自己的搜索引擎吧:
  (一),首先利用access97建立一個名爲list.mdb的數據庫,在裏面建立一個名爲list的表,然後在list表裏面輸入一些你想要被查詢的文件名字,關鍵的搜索詞還有相對應的鏈接,下面建立了四個項目ID(編號),title(主題),word(關鍵詞),url(鏈接地址),如下表所示:
  ID title word url
  1 cgi教程 本地調試cgi cgi/testcgi.htm
  2 下載中心 聊天室,留言本 download/index.htm
  (二),建立了數據庫以後就可以建立你的asp搜索頁面了,下面是一個文件名爲search.htm的asp搜索頁面的源程序,這個搜索引擎可以同時搜索title和word裏面的內容,當然如果你有需要的話可以建立更多的搜索:  

<!--#INCLUDE file="ADOVBS.inc"-->              <%  "建立數據庫的連接  
     con="DBQ="+server.mappath("list.mdb")+";DefaultDir=;DIRVER={microsoft Access Driver(*.mdb)};"              "建立CONNECTION對象並打開數據庫  
     set mycon=server.createobject("ADODB.CONNECTION")              mycon.open.con  %>  
          "創建Recordset對象的例程,打開Recordset對象傳遞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>查詢結果</title></head>  
          <body bgcolor="#ffffff">              <p align="center"><br>  
          "統計查詢共有<% Response.Write(RS.RecordCount) %>條紀錄</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 %>              "關閉鏈接  
          </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>      好了,這個站內搜索引擎到這裏就算完成了,你接下來要做的就是吧東西輸入數據庫了

 

發佈了120 篇原創文章 · 獲贊 11 · 訪問量 90萬+
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章