ASP站內搜尋程式碼#
阿新 • • 發佈：2019-01-25
方法一：利用各大搜索的收錄
<script type="text/javascript"> function Gsitesearch(curobj){ var domainroot=curobj.domainroot[curobj.domainroot.selectedIndex].value curobj.q.value="site:"+domainroot+" "+curobj.qfront.value } </script> <form action="http://www.Google.com/search" method="get" onSubmit="Gsitesearch(this)"> <input name="q" type="hidden" /> <input name="qfront" type="text" style="width: 180px" /> <input type="submit" value="立刻搜尋" /><br /><br /> 站點: <select name="domainroot"> <option value="www.nokucun.com" selected="1">本站</option> </select> </form>
方法二：自己建庫
用ASP建立站內搜尋程式碼例項假如你擁有一個龐大的網站，內容又多，那麼來訪者往往很難找到自己所需要的
東東，這時候你就需要一個站內搜尋來幫助來訪者更快的找到索要的資料了！現在你
就可以用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>好了，這個站內搜尋引擎到這裡就算完成了，你接下來要做的就是吧東西
輸入資料庫了！