利用KesionCMS,手把手教你写万能搜索系统

1、利用KesionCMS,手把手教你写万能搜索系统很多科汛fans已对系统自带的的简单搜索感谢不满足了，比如做人才网的用户希望能根据职位类型，工作地点，关键字等进行精确搜索，这时如果用esionCMS自带搜索标签显然不符合要求很幸运KesionCMS是完全开源的您完全可以自由的DIY搜索这里我就大家举个例子说明吧。假设我们利用科汛强大的自定义模型自定义了一个叫人才招聘的系统,模型号为110,基类型（文章类）里面含有自定义字段包括:职位类型(KS_ZWLX),工作地点(KS_GZD),学历要求(KS_XL)等等,那么我们需要按照KS_ZWLX,KS_GZD这两个字段进行搜索实现如下图效果：根据以上

2、分析我们就可以在模板里写出搜索表单代码如下 选择行业类别计算机硬件及网络设备计算机软件IT服务（系统/数据/维护）/多领域经营 选择工作地区(必选)北京上海广东省天津 自写表单代码说明：、表单处理文件/plus/search.asp、必须提交的字段ChannelID（模型）,SearchType(搜索类型),KeyWord(搜索关键字)channelid 模型的ID号，可以后台的模模型管理处查到 SearchType 搜索类型,取值说明 1表示按标题title搜索（这个例子我们定义为职位名称或公司名称) 2表示按文章内容ArticleContent（这个例子里我们可以定义为职位介绍）3表示按作

3、者 4表示按录入者 100 表示按添加时间 .3、自定义字段 KS_ZWLX,KS_GZD上面已经完成在模板里的写的搜索表单代码。接下来就是修改下搜索处理文件 /plus/search.aspKesionCMS 对文章系统模型的搜索条件构造函数在/plus/search.asp文件里的Sub ArticleSearch()函数，那么我们就打并找到Sub ArticleSearch()函数Sub ArticleSearch() Dim SqlStr,Param Param= Where Verific=1 And DelTF=0 Select Case SearchType Case 100 I

4、f IsDate(KeyWord) Then If CInt(DataBaseType) = 1 Then Param=Param & And AddDate= & KeyWord & 00:00:00 and AddDate=# & KeyWord & 00:00:00# and AddDate=# &KeyWord & 23:59:59# end if Else Exit Sub End If Case 1 If (FuzzySearch=1) Then For I=0 To Ubound(KeyWordArr) If I=0 Then Param=Param & And (Title L

5、ike % & KeyWordArr(i) & % Else Param = Param & or Title Like % & KeyWordArr(i) & % End If Next Else Param=Param & And (Title Like % & KeyWord & % End If Param=Param & ) Case 2:Param=Param & And ArticleContent Like % & KeyWord & % Case 3:Param=Param & And Author Like % & KeyWord & % Case 4:Param=Para

6、m & And ArticleInput Like % & KeyWord & % Case 5:Param=Param & And KeyWords Like % & KeyWord & % Case else if (FuzzySearch=1) Then For I=0 To Ubound(KeyWordArr) If I=0 Then Param=Param & And (Title Like % & KeyWordArr(i) & % Else Param = Param & or Title Like % & KeyWordArr(i) & % End If Next Else P

7、aram=Param & And (Title Like % & KeyWord & % or Author Like % & KeyWord & % End If Param=Param & ) End Select If ClassID0 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上面加红色代码就是我们根据自定义搜索补充的条件。相信有点sql基础的朋友，对这条语句能一目了然吧,不清楚的朋友不好紧，请参考自定义模型条件对if channelid=110 then.end if 请一定要加上if channelid=110 .这样对原系统功能的搜索就不会影响。您如果有多个自定义模板都想要自己写搜索表单，就在下面接下去写i