很多科汛fans已对系统自带的的简单搜索感谢不满足了，比如做人才网的用户希望能根据职位类型，工作地点，关键字等进行精确搜索，这时如果用ＫesionCMS自带搜索标签显然不符合要求．很幸运KesionCMS是完全开源的．您完全可以自由的DIY搜索．这里我就大家举个例子说明吧。

假设我们利用科汛强大的自定义模型自定义了一个叫"人才招聘"的系统,模型ＩＤ号为110,基类型（文章类）．里面含有自定义字段包括:职位类型(KS_ZWLX),工作地点(KS_GZD),学历要求(KS_XL)等等,那么我们需要按照KS_ZWLX,KS_GZD这两个字段进行搜索．实现如下图效果：

此主题相关图片如下：未标题-1.gif

根据以上分析．我们就可以在模板里写出搜索表单

代码如下

<table border=0>

<form name="searchform" action="/plus/search.asp" method="get">

<input type="hidden" name="channelid" value="110">

<input type="hidden" name="searchtype" value="1">

 <tr>

  <td>

   <select name="KS_ZWLX">

<option value="">选择行业类别</option>

<option value="计算机硬件及网络设备">计算机硬件及网络设备</option>

<option value="计算机软件">计算机软件</option>

<option value="IT服务（系统/数据/维护）/多领域经营">IT服务（系统/数据/维护）/多领域经营</option>

</select>

 </td>

</tr>

 <tr>

  <td>

   <select name="KS_GZD">

<option value="">选择工作地区(必选)</option>

<option value="北京">北京</option>

<option value="上海">上海</option>

<option value="广东省">广东省</option>

<option value="天津">天津</option>

</select>

 </td>

</tr>

<tr>

  <td>

  <input type="text" name="keyword" value="请输入职位或公司名称" onclick="this.value=''"> 

  </td>

</tr>

<tr>

  <td>

  <inpu type="submit" value="搜索职位">

  </td>

</tr>

</form>

</table>

自写表单代码说明：

１、表单处理文件/plus/search.asp

２、必须提交的字段ChannelID（模型ＩＤ）,SearchType(搜索类型),KeyWord(搜索关键字)　

　　channelid 模型的ID号，可以后台的模模型管理处查到

     SearchType 搜索类型,取值说明

         1　表示按标题title搜索（这个例子我们定义为职位名称或公司名称)

         2　表示按文章内容ArticleContent（这个例子里我们可以定义为职位介绍）

         3　表示按作者

         4　表示按录入者

        100 表示按添加时间

           ..... 
 3、自定义字段 KS_ZWLX,KS_GZD

上面已经完成在模板里的写的搜索表单代码。接下来就是修改下搜索处理文件 /plus/search.asp

KesionCMS 对文章系统模型的搜索条件构造函数在/plus/search.asp文件里的Sub ArticleSearch()函数，那么我们就打并找到Sub ArticleSearch() 函数

Sub ArticleSearch()        
  Dim SqlStr,Param
  Param=" Where Verific=1 And DelTF=0"
  Select Case SearchType
   Case 100
     If IsDate(KeyWord) Then
      If CInt(DataBaseType) = 1 Then
       Param=Param & " And AddDate>='" & KeyWord & " 00:00:00' and AddDate<='" &KeyWord & " 23:59:59'"
   else
    Param=Param & " 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 Like '%" & 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=Param & " 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
     Param=Param & " And (Title Like '%" & KeyWord & "%' or Author Like '%" & KeyWord & "%'"
  End If
  Param=Param & ")"
  End Select
  If ClassID<>"0" Then Param=Param & " And Tid In(" & KS.GetFolderTid(ClassID) & ")"

  If ChannelID=110 Then

[此贴子已经被作者于2008-3-1 10:12:31编辑过]