利用索引服務(wù)(Indexing Service)和ASP建立面向整個(gè)網(wǎng)站搜索程序

發(fā)布時(shí)間：2008-07-10 閱讀數(shù)：次來(lái)源：網(wǎng)樂(lè)原科技

配置Index Server
在執(zhí)行Web服務(wù)器上的搜索之前，首先必須創(chuàng)建至少一個(gè)索引，并遵循以下步驟完成這項(xiàng)工作。

⒈啟動(dòng)Windows 2000 Server服務(wù)器上的索引。

缺省情況下選擇圖標(biāo)位于管理工具組中的計(jì)算機(jī)管理。窗口的右邊提供關(guān)于當(dāng)前在服務(wù)器上
存在的索引信息。默認(rèn)有兩個(gè)索引：System和Web。

⒉要?jiǎng)?chuàng)建新的索引，用鼠標(biāo)右鍵單擊索引服務(wù)或右邊的面板，選定新建編錄。

顯示添加編錄對(duì)話框，指定索引的名稱并用瀏覽按鈕選取位置。索引服務(wù)不會(huì)立即開始索引，此時(shí)將彈出一條消息框，單
擊確定繼續(xù)。為了達(dá)到最佳的性能，索引服務(wù)可以放在和Web服務(wù)器隔離開的硬盤上。

⒊指定索引的目錄，用右鍵單擊新建的編錄名，從彈出選單中選定屬性，將出現(xiàn)如圖2所示的對(duì)話框。

第一個(gè)選項(xiàng)卡常規(guī)顯示剛剛輸入的內(nèi)容，在第二個(gè)選項(xiàng)卡跟蹤中的WWW服務(wù)器下拉列表中選取你要索引的Web網(wǎng)站。

⒋有了創(chuàng)建的編錄，現(xiàn)在可以挑選你想在索引中包括的目錄。

這個(gè)強(qiáng)大的特性使你能創(chuàng)建幾個(gè)用不同方式搜索內(nèi)容的索引。例如，你可能想快速瀏覽從完整的文本中所引出的章節(jié)，這
個(gè)特性使你能在Index Server內(nèi)執(zhí)行這項(xiàng)任務(wù)。要添加一個(gè)目錄，用右鍵單擊右邊的面板，選定新建目錄。在出現(xiàn)的對(duì)話
框中通過(guò)瀏覽按鈕選擇目錄并指定別名。如果必須登錄到服務(wù)器才能得到需要的內(nèi)容，則可以提供將使用的用戶名和密
碼，以便得到需要的內(nèi)容。如果想檢查受保護(hù)的內(nèi)容，則更要維護(hù)內(nèi)容的安全性，這一特性非常有用，這樣只有被授權(quán)的
用戶（也許是那些為此付錢的人）才能得到完整的內(nèi)容。

還可以使用這個(gè)工具排除Web站點(diǎn)中不想索引的子目錄。例如，檢索Scripts/CGI目錄就不會(huì)對(duì)用戶有什么用。為此，只要
雙擊該目錄，將包括在索引中選定為否即可，見圖3。

⒌在已經(jīng)為站點(diǎn)包括/排除了所有目錄后，用右鍵單擊右面板，從彈出選單中選定啟動(dòng)，重新啟動(dòng)Index Server服務(wù)。

服務(wù)器將開始瀏覽已經(jīng)創(chuàng)建的索引并開始檢索內(nèi)容。

源程序：
1、search.asp
<HTML>
<HEAD>
<TITLE>The Indexing Service</TITLE>
<STYLE TYPE="text/css">
BODY {font-family:Tahoma,Arial,sans-serif; font-size:10pt}
.heading {font-family:Tahoma,Arial,sans-serif; font-size:14pt; font-weight:bold}
.cite {font-family:Tahoma,Arial,sans-serif; font-size:8pt}
</STYLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<SPAN CLASS="heading">Searching The Indexing Service Using ADO</SPAN><HR>

<FORM Name="frmSearch" ACTION="QueryIndexServer.asp" METHOD="POST">
Search For: <INPUT TYPE="TEXT" NAME="txtSearchFor">
<P>
<INPUT TYPE="SUBMIT" VALUE="Perform Search">
<INPUT TYPE="RESET" VALUE="Clear Form">
</FORM>

</BODY>
</HTML>
2、QueryIndexServer.asp
<TITLE>The Indexing Service</TITLE>
<STYLE TYPE="text/css">
BODY {font-family:Tahoma,Arial,sans-serif; font-size:10pt}
.heading {font-family:Tahoma,Arial,sans-serif; font-size:14pt; font-weight:bold}
.cite {font-family:Tahoma,Arial,sans-serif; font-size:8pt}
.document {font-size:10pt; font-weight:bold; background-color:lightgrey; width:100%}
</STYLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<SPAN CLASS="heading">Results of search for
<I><%=Request.Form("txtSearchFor")%></I>
</SPAN><HR>

Dim strSearch

Set rsSearch = Server.CreateObject("ADODB.Recordset")

' create the connection string
strConn = "Provider=MSIDXS; Data Source=web"

' construct the search string
strSearch = "SELECT DocTitle, Path, FileName, Characterization, Size,write" & _
" FROM SCOPE()" & _
" WHERE CONTAINS ('" & Request.Form("txtSearchFor") & "')"

' open the recordset on the search
rsSearch.Open strSearch,strConn

' show what's been searched for
While Not rsSearch.EOF
Response.Write "<SPAN CLASS='document'>" & rsSearch("DocTitle") & "</SPAN><BR>" & _
rsSearch("Characterization") & "<BR>" & _
"<A HREF='" & rsSearch("Path") & "'>" & rsSearch("write") & "</A>" & _
" (" & rsSearch("Size") & " bytes)<P>"
rsSearch.MoveNext
Wend

' tidy up
rsSearch.Close
Set rsSearch = Nothing
%>

</BODY>
</HTML>
采用默認(rèn)的web索引！