利用KesionCMS,手把手教你写万能搜索系统-领先建站CMS提供服务商我们专注于CMS建站产品的研发

85153 查看	98 回复

主题：[分享]利用KesionCMS,手把手教你写万能搜索系统 [收藏主题] 本贴被认定为精华

转到：

神舟飞船当前离线

28 主题	1 广播	1 粉丝

级别:学前班

用户积分:1792 分
登录次数:19 次
注册时间:2012/8/7
最后登录:2013/10/23

神舟飞船发表于：2012/10/22 16:22:44 | 显示全部帖子查看该作者主题楼主

一分钟快速开通线上知识店铺

是啊，V9改变了，自定义字段搜索如何实现？

发现/Plus/search/index.asp

的190多行开始有可能是修改的关键点：

.......................

TopNum=0

Else

TopNum=1000  rem 没有输入关键词只列表最新1000条记录

      End If

if request("classid")<>"" and request("classid")<>"0" then

   If ChannelID<>102 Then

第197行    Param=Param & " And Tid In(" & KS.GetFolderTid(KS.S("ClassID")) & ")"

   end if

end if

  If TopNum<>0 Then TopStr=" Top " & TopNum

.................................

此处和官方的万能自定义字段搜索文章：http://bbs.kesion.com/dispbbs.asp?BoardID=41&ID=45450&replyID=&skin=1

里面提到的替换增加代码位置非常接近:

这个是老版的/Plus/search/index.asp

If ClassID<>"0" Then Param=Param & " And Tid In(" & KS.GetFolderTid(ClassID) & ")"

If ChannelID=110 Then

Param= Param & " and KS_ZWLX='" & KS.S("KS_ZWLX") & "' and KS_GZD='" & KS.S("KS_GZD") & "'"

End If

  SqlStr="Select * From " & KS.C_S(ChannelID,2) & Param & " Order By ID Desc"
  Set RS=Server.CreateObject("ADODB.RECORDSET")
  RS.Open SqlStr,Conn,2,1

可以从这里入手修改试试？，呵呵。

而item/index.asp里面的474行左右：

   if ChannelID=9 Then '考试分类
      Param=Param & " And tid in(Select ID From KS_SJClass Where TS LIKE '%" & KS.ChkClng(tid)& ",%')"
   Else
   tid=c_c(tid,0)
   Param=Param & " And tid in(" & KS.GetFolderTid(tid) & ")"
   End If
   end if

此处代码的功能很类似官方修改的地方。

科汛商学院助您快速入门