|
配置Index Server
在執(zhí)行Web服務(wù)器上的搜索之前，首先必須創(chuàng)建至少一個索引，并遵循以下步驟完成這項工作。
⒈啟動Windows 2000 Server服務(wù)器上的索引。
缺省情況下選擇圖標(biāo)位于管理工具組中的計算機(jī)管理。窗口的右邊提供關(guān)于當(dāng)前在服務(wù)器上
存在的索引信息。默認(rèn)有兩個索引：System和Web。
⒉要創(chuàng)建新的索引，用鼠標(biāo)右鍵單擊索引服務(wù)或右邊的面板，選定新建編錄。
顯示添加編錄對話框，指定索引的名稱并用瀏覽按鈕選取位置。索引服務(wù)不會立即開始索引，此時將彈出一條消息框，單
擊確定繼續(xù)。為了達(dá)到最佳的性能，索引服務(wù)可以放在和Web服務(wù)器隔離開的硬盤上。
⒊指定索引的目錄，用右鍵單擊新建的編錄名，從彈出選單中選定屬性，將出現(xiàn)如圖2所示的對話框。
第一個選項卡常規(guī)顯示剛剛輸入的內(nèi)容，在第二個選項卡跟蹤中的WWW服務(wù)器下拉列表中選取你要索引的Web網(wǎng)站。
⒋有了創(chuàng)建的編錄，現(xiàn)在可以挑選你想在索引中包括的目錄。
這個強大的特性使你能創(chuàng)建幾個用不同方式搜索內(nèi)容的索引。例如，你可能想快速瀏覽從完整的文本中所引出的章節(jié)，這
個特性使你能在Index Server內(nèi)執(zhí)行這項任務(wù)。要添加一個目錄，用右鍵單擊右邊的面板，選定新建目錄。在出現(xiàn)的對話
框中通過瀏覽按鈕選擇目錄并指定別名。如果必須登錄到服務(wù)器才能得到需要的內(nèi)容，則可以提供將使用的用戶名和密
碼，以便得到需要的內(nèi)容。如果想檢查受保護(hù)的內(nèi)容，則更要維護(hù)內(nèi)容的安全性，這一特性非常有用，這樣只有被授權(quán)的
用戶（也許是那些為此付錢的人）才能得到完整的內(nèi)容。
還可以使用這個工具排除Web站點中不想索引的子目錄。例如，檢索Scripts/CGI目錄就不會對用戶有什么用。為此，只要
雙擊該目錄，將包括在索引中選定為否即可，見圖3。
⒌在已經(jī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索引！
|
