推薦:解析ASP檢查網站鏈接是否正常的函數% FunctionurlChk(sUrl) onerrorresumenext SetxmlHttp=Server.CreateObject(Microsoft.XMLHTTP) xmlHttp.openGET,sUrl,false xmlHttp.send ifxmlHttp.Status200then urlChk=false else urlChk=true endif EndFunction sUrl=http://www.code-123.com ifu
用ASP實現搜索引擎的功能是一件很方便的事,可是,如何實現類似3721的智能搜索呢?比如,當在搜索條件框內輸入中國人民時,自動從中提取中國、人民等關鍵字並在數據庫內進行搜索。看完本文後,你就可以發現,這個功能實現起來竟然是如此的簡單。第一步,我們要建立一個名為db_sample.mdb的數據庫(本文以Access2000數據庫為例),並在其中建立表T_Sample.表T_Sample包括如下字段:
ID自動編號
U_Name文本
U_Info備註
第二步,我們開始設計搜索頁面Search.asp.該頁麵包括一個表單(Frm_Search),表單內包括一個文本框和一個提交按鈕。並將表單的method屬性設為get,action屬性設為Search.asp,即提交給網頁自身。代碼如下:
| <!--Search.asp--> <formname=frm_Searchmethod=getaction=Search.asp> 請輸入關鍵字: <inputtype=textname=keysize=10> <inputtype=submitvalue=搜索> </form> |
下面,就進入了實現智能搜索的關鍵部分。
首先,建立數據庫連接。在Search.asp的開始處加入如下代碼:
| <% DimstrProvider,CNN strProvider=Provider=Microsoft.Jet.OLEDB.4.0;DataSource= strProvider=strProvider&Server.MapPath(/)&/data/db_Sample.mdb '假設數據庫存放在主頁根目錄下的data目錄下 SetCNN=Server.CreateObject(ADODB.connection) CNN.OpenstrProvider打開數據庫連接 %> |
接下來,判斷ASP頁所接收到的數據,並在數據庫中進行搜索。
| <fontcolor=#FF0000>未找到任何結果! ! ! </font> <% Else %> |
搜索名稱為<fontcolor=#FF0000><%=S_Key%></font>的項,共找到<fontcolor=#FF0000><%=RST.RecordCount%></font>項:
| <% WhileNotRST.EOF遍歷整個記錄集,顯示搜索到的信息並設置鏈接 %> <!--此處可設為你所需要的鏈接目標--> <fontstyle=font:12pt宋體><ahref=info.asp?ID=<%=RST(ID)%>target=_blank><%=RST(U_Name)%></a></font> <!--顯示部分詳細內容--> <fontstyle=font:9pt宋體><%=Left(RST(U_Info),150)%></font><p> <% RST.MoveNext Wend RST.Close SetRST=Nothing EndIf EndIf %> |
分享:ASP教程之asp製作常見flash新聞圖片輪換代碼這是一個正常的網頁文件html head metahttp-equiv=Content-Typecontent=text/html;charset=gb2312/ title 新聞圖片輪換/title /head body !--#Includefile=diaoyong.asp-- /body /html 任何網頁只要調用下面這個文件(diaoyong.asp)就可以了,所用f
共2頁上一頁12下一頁