Win2000索引服务的WEB应用论文.docVIP

　　Win2000索引服务的WEB应用论文 .freeleration 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 ) Keypty Then Key = Key = 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=Keye=Path Value= %=Path% (可省略,输入详细路径如/nee=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 = Keyns = DocTitle, Characterization, Rank, VPath, axRecords = 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 Then Msg = 搜索结果:没有找到任何符合条件的文件! Msg = Server.HTMLEncode( Msg ) Response.Clear Response.Redirect Myself ?Msg= Msg Param End If rs.AbsolutePage = Page For iPage = 1 To rs.PageSize RecNo = ( 1) * rs.PageSize + iPage % B %=RecNo . % %=rs(DocTitle)% /B BR B 摘要: /B %=rs(Characterization)% BR B : /B A HREF= %=rs(vPath)% %=rs(vPath)% /A BR B 时间: /B %=rs(oveNext If rs.EOF Then Exit Fo