一个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>?? 好了，這個站內搜索引擎到這里就算完成了，你接下來要做的就是吧東西輸入數據庫了
?
總結
以上是生活随笔為你收集整理的一个ASP站内搜索的实例源代码的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： asp中关于从utf8页面到gb2312
- 下一篇： 网站建设ASP中UTF-8与GB2312