Win2000索引服务的WEB应用
网易等。微软公司在Win2000里提供了一个工具Index Server,可以在自己的网站内部架设站
内的搜索引擎,即通过Web Server(IIS)与Index Server的交互,建立自己的搜索引擎。
关键字 Win2000 IIS Index Server ASP ADO 全文检索
1 前言
在网络时代,通过输入关键字,就能查到自己感兴趣的资料,如果你制作了你自己网站,又想
提供站内的搜索功能,你就可以自己动手做一套属于你自己的站内搜索系统。Windows2000提供
了索引服务,缺省为未安装,通过在控制面板上的服务设置打开Index Server服务以后,就等于
拥有了一套个人专属的搜索引擎。 通过设置,大部分的时候都不需要人工干预, 在预设的情况
下,系统负担较轻时,Index Server就会找出系统指定的文件夹,一般是预设的WEB站点及预设
的FTP站点下所有的虚拟目录以及自己指定的硬盘上的文件夹,接着建立及维护存储文件的目录
信息。
当设置好Index Server以后,在前端输入查询条件,Index Server就会搜索这份索引,然
后以HTML的格式传回到前端,因为Index Server事先会建立文件索引, 搜索的速度将比全文
本的搜索快很多。
2 Index Server的对象和属性
2.1 被索引的文件类型
在WEB服务器下的所有文件,Index Server一般都会建立一份索引,这些文件有HTML文件、
ASP文件、Help File文件、文本文件以及Office软件制作的文件等,甚至可以是非文本的文件
类型,如可执行文件,当然,对这些文件无法通过有意义的文字来查询。
在实际运用中,我们一般关心的文件是文本类型文件,如网页等,基本上Index Server也能
够满足一般的应用要求。
2.2 Index Server查询规则
(1) 不区分大小写。
(2) 如果包含特殊字符如双引号或者其他特殊字符如逗号,惊叹号等,必须要用双引号将字符
包含起来。
(3) 多条件查询可以用逗号将关键字分开。
(4) 支持布尔运算符,例如AND、OR、NOT、NEAR、<、>等等。
2.3 Index Server查询对象
在Windows2000中,Index Server查询对象包含在Ixxso.dll之中,叫做Indexing Service
Server Side Object,即SSO,提供了建立及管理Recrodsets和查询的控制,利用SSO获得Index
Server建立的目录及文件索引,再用后端的描述语言VBScript或者javascript格式化传回前端。
SSO对象
Query对象
属性名称 数据类型 功能描述
AllowEnumeration Boolean 是否允许递归搜索目录索引,缺省是False
CiScope String 指定搜索的路径,多于一个路径的话用逗号分开
Columns String 从OLE DB Recordset取出的字段
MaxRecords Long 希望取得的记录数
Query String 查询限制条件
SortBy String 根据哪个字段排序
Query方法 Method
方 法 功 能 描 述
CreateRecordset 建立ADORecordset,有sequential和nonsequential
DefineColumn 给查询的字段定义一个别名
QueryToUrl 转换为URL参数
SetQueryFromURL 设定Query对象及相关内容
Utility对象
方 法 描 述
AddScopeToQuery 加入查询路径
HTMLEncode 给指定的字符串按照HTML编码
URLEncode 按照URL编码规则应用到给定的字符串
可用的文件信息
属性名称 功 能 功 能 描 述
Characterization 文件的摘要
DocAuthor 文件的作者
Rank 排名
DocSubject 文件的主题
DocTitle 文件的标题
FileName 文件名
Vpath 文件的完整虚拟路径
Size 文件大小(BYTE)
3 分页检索部分源代码:
<%
Response.Buffer = True
MySelf = Request.ServerVariables( "PATH_INFO" )
Page = CLng(Request( "Page" ))
Path = Request( "Path" )
Keyword = Request( "Keyword" )
MaxRecords = CLng( Request( "MaxRecords" ) )
If Keyword = Empty Then Keyword = "新华网湖南频道"
If MaxRecords <= 0 Then MaxRecords = 50
Param = "&Keyword=" & Server.HTMLEncode(Keyword)
Param = Param & "&Path=" & Server.HTMLEncode(Path)
Param = Param & "&MaxRecords=" & MaxRecords
%>
<HTML><BODY bgcolor="#FFFFFF" Background="../B.jpg"><H2>Index Server 搜索引擎<HR></H2>
<FORM Action=<%=Myself%> METHOD=GET>
关键字:<INPUT Type=Text Name=Keyword Value="<%=Keyword%>"><BR>
路 径:<INPUT Type=Text Name=Path Value="<%=Path%>">
(可省略,输入详细路径如/news/2001-10-18)<BR>
最大文件数:<INPUT Type=Text Name=MaxRecords Value="<%=MaxRecords%>"><BR>
<INPUT Type=Submit Name=Send Value=" 搜 索 ">
</FORM><%
If Request ("Send") <> Empty Or Request ("Page") <> Empty Then
Set Q = Server.CreateObject ("ixsso. Query") ‘建立Query对象
If Path <> Empty Then
Set U = Server.CreateObject ("ixsso. Util") ‘建立Util 对象
U.AddScopeToQuery Q, Path, "deep" ‘设置查询方式和路径
End If
Q.Query = Keyword ‘关键字
Q.SortBy = "rank[d]" ‘排序方式
Q.Columns = "DocTitle, Characterization, Rank, VPath, Write, Size" 需要的字段
Q.MaxRecords = MaxRecords ‘最大纪录数
Set rs = Q.CreateRecordSet("nonsequential") ‘建立记录集%>
<HR>
<BLOCKQU