一個ASP站內搜尋的執行個體原始碼

最後更新：2018-12-05 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

假如你擁有一個龐大的網站，比如(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裡面的內容，當然如果你有需要的話可以建立更多的搜尋：　　

<% "建立資料庫的串連
     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>   　　好了，這個站內搜尋引擎到這裡就算完成了，你接下來要做的就是吧東西輸入資料庫了

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More

一個ASP站內搜尋的執行個體原始碼

聯繫我們

A Free Trial That Lets You Build Big!

Sales Support

After-Sales Support