网站打造-科讯万能搜索系统的简单实用教程

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

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

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

代码如下：

<tr>

<td>

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

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

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

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

</select>

</td>

</tr>

<tr>

<td>

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

</select>

</td>

</tr>

<tr>

<td>

</td>

</tr>

<tr>

<td>

</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

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基础的朋友，对这条语句能一目了然吧,不清楚的朋友不好紧，请参考http://bbs.kesion.com/dispbbs.asp?boardid=42&Id=42054

自定义模型条件对

if channelid=110 then

....

end if

请一定要加上if channelid=110 ....这样对原系统功能的搜索就不会影响。您如果有多个自定义模板都想要自己写搜索表单，就在下面接下去写if then end if 条件对吧。

搜索结果的模板页就不用我多说了，只需注意在搜索模板页里调用自定义字段格式是{$KS_自定义字段名称}即可.

网站打造-科讯万能搜索系统的简单实用

热点推荐