<% 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")
' 创建输出集. %>
另一个方法就是.利用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 %>
机械节能产品生产企业官网模板...
大气智能家居家具装修装饰类企业通用网站模板...
礼品公司网站模板
宽屏简约大气婚纱摄影影楼模板...
蓝白WAP手机综合医院类整站源码(独立后台)...苏ICP备2024110244号-2 苏公网安备32050702011978号 增值电信业务经营许可证编号:苏B2-20251499 | Copyright 2018 - 2025 源码网商城 (www.ymwmall.com) 版权所有