欢迎来到天天文库
浏览记录
ID:25389489
大小:61.50 KB
页数:6页
时间:2018-11-20
《win2000索引服务的web应用论文》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、Win2000索引服务的WEB应用论文.freelerationBoolean是否允许递归搜索目录索引,缺省是FalseCiScopeString指定搜索的路径,多于一个路径的话用逗号分开ColumnsString从OLEDBRecordset取出的字段MaxRecordsLong希望取得的记录数QueryString查询限制条件SortByString根据哪个字段排序Query方法Method方法功能描述CreateRecordset建立ADORecordset,有sequential和nonsequentialDefineColumn给查询的字段定义一个别名QueryT
2、oUrl转换为URL参数SetQueryFromURL设定Query对象及相关内容Utility对象方法描述AddScopeToQuery加入查询路径HTMLEncode给指定的字符串按照HTML编码URLEncode按照URL编码规则应用到给定的字符串可用的文件信息属性名称功能功能描述Characterization文件的摘要DocAuthor文件的作者Rank排名DocSubject文件的主题DocTitle文件的标题FileName文件名Vpath文件的完整虚拟路径Size文件大小(BYTE)3分页检索部分源代码:%Response.Buffer=TrueMySelf
3、=Request.ServerVariables("PATH_INFO")Page=CLng(Request("Page"))Path=Request("Path")KeyptyThenKey="Key=Param"Path="Server.HTMLEncode(Path)Param=Param"MaxRecords="MaxRecords%HTMLBODYbgcolor="#FFFFFF"Background="../B.jpg"H2IndexServer搜索引擎HR/H2FORMAction=%=Myself%METHOD=GET关键字:INPUTType=TextNa
4、me=Keye=PathValue="%=Path%"(可省略,输入详细路径如/nee=MaxRecordsValue="%=MaxRecords%"BRINPUTType=SubmitName=SendValue="搜索"/FORM%IfRequest("Send")EmptyOrRequest("Page")EmptyThenSetQ=Server.CreateObject("ixsso.Query")‘建立Query对象IfPathEmptyThenSetU=Server.CreateObject("ixsso.Util")‘建立Util对象U.AddScopeToQ
5、ueryQ,Path,"deep"‘设置查询方式和路径EndIfQ.Query=Keyns="DocTitle,Characterization,Rank,VPath,axRecords=MaxRecords‘最大纪录数Setrs=Q.CreateRecordSet("nonsequential")‘建立记录集%HRBLOCKQUOTE%Rs.PageSize=5IfPage1ThenPage=1IfPagers.PageCountThenPage=rs.PageCountIfPage=0ThenMsg="搜索结果:没有找到任何符合条件的文件!"Msg=Server.HTM
6、LEncode(Msg)Response.ClearResponse.RedirectMyself"?Msg="MsgParamEndIfrs.AbsolutePage=PageForiPage=1Tors.PageSizeRecNo=(Page-1)*rs.PageSize+iPage%B%=RecNo"."%%=rs("DocTitle")%/BBRB摘要:/B%=rs("Characterization")%BRB:/BAHREF=%=rs("vPath")%%=rs("vPath")%/ABRB时间:/B%=rs("oveNextIfrs.EOFThenExitFo
7、rNext%/TABLE/BLOCKQUOTEDIVALIGN=rightFORMAction=%=Myself%Method=GETHR%IfPage1Then'如果不是位于第一页%AHREF=%=Myself%?Page=1%=Param%第一页/AAHREF=%=Myself%?Page=%=(Page-1)%%=Param%上一页/A%EndIfIfPagers.PageCountThen'如果不是位于最后一页%AHREF=%=Myself%?Page=%=(Page+1)%%=Param%下一页/AAHR
此文档下载收益归作者所有