用ASP實現對Web搜索引擎Index Server的訪問

2019-11-18 20:37:30

字體：大中小

來源：轉載

供稿：網友

摘要：Index Server是專門為企業Web網站設計的專業搜索引擎，傳統的訪問方法HTML/IDQ/HTX由于固有的特性，缺乏靈活性。本文介紹用asp實現對Index Server訪問的兩種方法，以及如何實現復雜查詢，和對查詢結果的控制。
關鍵字：Index Server ASP ADO

在電子商務方興未艾的今天，企業上網不但是為了展示企業形象，提高知名度；也意味著無窮的商機與財富。而內部網Intranet則為企業帶來了全新的溝通方式和管理理念。因此構建企業Web站點已經排上了許多企業信息部門的日程。Web的優點在于可以方便的展示大量信息，但同時也帶來了信息的泛濫使得尋找有效信息非常困難。為此，好的企業網站都擁有強大的搜索引擎，使得網站更加友好和便利。對于有政策法規、合同定單等大量文檔上網的企業網站，信息搜索的服務必不可少。
Index Server是專門為企業網站設計的專業搜索引擎，利用它可以非常輕松的在網站中加入功能強大的信息搜索功能。并且Index Server搜索的文件不局限于HTML格式，還支持TXT、DOC、EXL、RTF、GIF、JPEG等多種文件格式，并可以通過插入第三方插件來支持更多的文件格式。搜索范圍可以是存放在本地服務器中的內容，也可以是網絡中其他機器的共享資源，包括INTERNET中的資源。搜索時除了文檔中的關鍵字詞以外，還可以就文件大小、修改日期、作者等屬性進行搜索。此外Index Server還支持英文、簡體中文、德語、法語、日語等語種，無須編程，就可在網站中實現多語種的搜索引擎。由于Index Server是零維護設計，故只需啟動Index Server服務，搜索引擎就會自動運行。而在Web服務器端，需要加入與Index Server連接的頁面。
傳統Index Server的工作過程由瀏覽器通過HTML文檔的FORM表單向Web服務器發出請求開始，Web服務器通過一個類似于數據庫接口的專用文件.IDQ與Index Server連接，將客戶的請求轉換成Index Server理解的語句。Index Server再將查詢結果按照模板文件HTX定義的格式組織成HTML文檔，通過Web服務器返回給瀏覽器。這種方式稱為HTML/IDQ/HTX方式，需要三個文件配合完成查詢。使用這種方式不能對查詢結果進行處理，并且模板文件HTX格式單一。因此微軟在Index Server 2.0 中加入了對Active Server Scripts的支持，用一個ASP文件替代先前的三個文件。由于ASP有靈活且功能強大的腳本語言操縱，因此Web開發者可以設計條件復雜的查詢，并能更加精確的處理查詢結果。

圖1.ASP訪問Index Server工作過程
熟悉Index Server 1.0 或 1.1版本的用戶，可以在ASP文件中使用Index Server query object，對象參數和查詢語句都和傳統的.IDQ文件保持一致。此外，還可以利用ADO 技術創建對象，用標準數據庫查詢語言Structured Query Language (SQL)語句定義查詢。兩種對象都以ADO記錄集（Recordsets）的形式返回結果。因此對于數據庫Recordset操作的代碼可以直接用于查詢結果。
ASP文件要完成查詢，首先要在文件中定義一個表單用于接收查詢要求，表單的動作指向ASP文件本身。本例中用名為SearchString的文本框接收查詢字段。
eg.1 在sample .asp文件中定義查詢表單

<FORM ACTION = "sample .asp" METHOD="GET">
<TABLE >
<TR>
<TD>輸入欲搜索關鍵詞：</TD>
</TR>
<TR>
<TD><INPUT TYPE="TEXT" NAME="SearchString" SIZE="40" VALUE=""></TD>
<TD><INPUT TYPE="SUBMIT" VALUE="GO"></TD>
</TR>
</TABLE>

接下來在ASP文件中建立Index Server 查詢對象，并為Index Server 參數賦值。
方法1.利用Index Server query object和參數

<%
Set Q= Sever.CreatObject(“ixsso.Query”) ‘創建查詢對象
Set Util= Sever.CreatObject(“ixsso.Util”)
Q.Query= Request(“SearchString”) ‘查詢字段
Q.SortBy=”rank[d]” ‘按照符合程度降序排列
Q.Columns=”DocTitle,vpath,filename,size,write,characterization,rank”
‘返回記錄屬性
Q.MaxRecords=300 ‘最多返回記錄數
Util.AddScopeToQuery Q,”/”,”DEEP” ‘搜索所有子目錄
Q.LocaleID=Util.ISOToLocaleID(“ZH-CN”) ‘指定所用語言為簡體中文
Set RS = Q.CreateRecordSet("nonsequential") ‘創建輸出集
%>

方法2.利用ADO query object和SQL語句

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "RS.open AdoCommand
%>

創建包括文件大小、作者等屬性的復雜條件的查詢，可在表單中加入輸入相應限定條件的域，如圖2所示。