接下来在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 = "PRovider=msidxs;"
Conn.Open
Set AdoCommand = Server.CreateObject("ADODB.Command")
Set AdoCommand.ActiveConnection = Conn
AdoCommand.CommandText = "Select DocTitle,vpath,filename,size,write,”&
“characterization,rank FROM SCOPE() WHERE CONTAINS (’”&
SearchString &”’) ORDER BY rank DESC”
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.open AdoCommand
%>
根据需要,还可以输出作者、文件大小、创建时间等属性。比较常见的还有把文件符合查询的程度划分为五个级别,分别用不同数目的星图标识,这是传统的HTX文档无法实现的功能。
结合ASP和 Index Server,我们可以开发出功能强大的搜索引擎应用。实施简单方便,没有特殊的编程要求,并且搜索的速度和准确度也比较理想,非常适合企业级Web网站采纳。