《Win2000索引服务的WEB应用 》由会员分享，可在线阅读，更多相关《Win2000索引服务的WEB应用 （4页珍藏版）》请在金锄头文库上搜索。
1、1Win2000 索引服务的 WEB 应用 摘要 在 WWW 上面有很多全文数据检索工具即搜索引擎（Search Engine）,如Yahoo、新浪、网易等。微软公司在 Win2000 里提供了一个工具 Index Server，可以在自己的网站内部架设站内的搜索引擎，即通过 Web Server(IIS)与 Index Server 的交互，建立自己的搜索引擎。关键字 Win2000 IIS Index Server ASP ADO 全文检索 1 前言在网络时代，通过输入关键字，就能查到自己感兴趣的资料，如果你制作了你自己网站，又想提供站内的搜索功能，你就可以自己动手做一套属于你自己的站内搜
2、索系统。Windows2000 提供了索引服务，缺省为未安装，通过在控制面板上的服务设置打开 Index Server 服务以后，就等于拥有了一套个人专属的搜索引擎。 通过设置，大部分的时候都不需要人工干预， 在预设的情况下，系统负担较轻时，Index Server 就会找出系统指定的文件夹，一般是预设的WEB 站点及预设的 FTP 站点下所有的虚拟目录以及自己指定的硬盘上的文件夹，接着建立及维护存储文件的目录信息。当设置好 Index Server 以后，在前端输入查询条件，Index Server 就会搜索这份索引，然后以 HTML 的格式传回到前端，因为 Index Server 事先会
3、建立文件索引， 搜索的2速度将比全文 本的搜索快很多。2 Index Server 的对象和属性2.1 被索引的文件类型在 WEB 服务器下的所有文件，Index Server 一般都会建立一份索引，这些文件有HTML 文件、ASP 文件、Help File 文件、文本文件以及 Office 软件制作的文件等，甚至可以是非文本的文件类型，如可执行文件，当然，对这些文件无法通过有意义的文字来查询。在实际运用中，我们一般关心的文件是文本类型文件，如网页等，基本上 Index Server 也能够满足一般的应用要求。2.2 Index Server 查询规则 (1) 不区分大小写。(2) 如果包含特
4、殊字符如双引号或者其他特殊字符如逗号，惊叹号等，必须要用双引号将字符 包含起来。(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 或者 javascr
5、ipt 格式化传回前端。SSO 对象3Query 对象属性名称 数据类型 功能描述AllowEnumeration Boolean 是否允许递归搜索目录索引，缺省是 FalseCiScope String 指定搜索的路径，多于一个路径的话用逗号分开Columns String 从 OLE DB Recordset 取出的字段MaxRecords Long 希望取得的记录数Query String 查询限制条件SortBy String 根据哪个字段排序Query 方法 Method 方 法 功 能 描 述 CreateRecordset 建立 ADORecordset,有 sequential
6、 和 nonsequentialDefineColumn 给查询的字段定义一个别名QueryToUrl 转换为 URL 参数SetQueryFromURL 设定 Query 对象及相关内容Utility 对象方 法 描 述AddScopeToQuery 加入查询路径HTMLEncode 给指定的字符串按照 HTML 编码URLEncode 按照 URL 编码规则应用到给定的字符串可用的文件信息 属性名称 功 能 功 能 描 述 Characterization 文件的摘要 DocAuthor 文件的作者 Rank 排名DocSubject 文件的主题DocTitle 文件的标题4FileNam
7、e 文件名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 Page = 0 Then Page = 1If Keyword = Empty Then K
8、eyword = “新华网湖南频道“If MaxRecords = 0 Then MaxRecords = 50 Param = “Keyword=“ Server.HTMLEncode(Keyword) Param = Param “Path=“ Server.HTMLEncode(Path) Param = Param “MaxRecords=“ MaxRecords % HTMLBODY bgcolor=“#FFFFFF“ Background=“./B.jpg“H2Index Server 搜索引擎HR/H2 FORM Action=%=Myself% METHOD=GET关键字：IN
9、PUT 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 ThenSet Q = S
10、erver.CreateObject (“ixsso. Query“) 建立 Query 对象If Path Empty Then Set U = Server.CreateObject (“ixsso. Util“) 建立 Util 对象U.AddScopeToQuery Q, Path, “deep“ 设置查询方式和路径End IfQ.Query = Keyword 关键字Q.SortBy = “rankd“ 排序方式5Q.Columns = “DocTitle, Characterization, Rank, VPath, Write, Size“ 需要的字段Q.MaxRecords =
11、 MaxRecords 最大纪录数Set rs = Q.CreateRecordSet(“nonsequential“) 建立记录集%HR BLOCKQUOTE% Rs.PageSize = 5 If Page 1 Then Page = 1 If Page rs.PageCount Then Page = rs.PageCount If Page = 0 ThenMsg = “搜索结果:没有找到任何符合条件的文件!“ Msg = Server.HTMLEncode( Msg ) Response.Clear Response.Redirect Myself “?Msg=“ Msg Param
12、 End If rs.AbsolutePage = Page For iPage = 1 To rs.PageSize RecNo = (Page - 1) * rs.PageSize + iPage % B%=RecNo “. “%=rs(“DocTitle“)%/BBR B摘要:/B%=rs(“Characterization“)%BR B网址:/BA HREF=%=rs(“vPath“)% %=rs(“vPath“)%/ABR B时间: /B%=rs(“Write“)%BR B大小: /B%=rs(“Size“)%P % rs.MoveNext If rs.EOF Then Exit For Next %/TABLE/BLOCKQUOTE DIV ALIGN=rightFORM Action=%=Myself% Method=GETHR%If Page 1 Then 如果不是位于第一页 %A HREF=%=Myself%?Page=1%=Param%第一页/A A HREF=%=Myself%?Page=%=(Page- 1)%=Param%
