站长之家 - 站长资讯 - 易采站长站

当前位置: > 建站教程 > 源码教程 > CMS 教程 >

科讯CMS(KesionCMS)万能搜索,支持自定义字段搜索,不强制填写

2017-03-20 22:27 | 来源:易采源码 | 编辑:秋军 |

此帖看了。非常好。并成功制作了搜索。

但有个问题。

 

三项必须都有内容都能搜索。

我想 行业类型 增加一个 不限。

也就是可以 不选择行业 也可以搜索。这样用户搜索就方便多了。何不是必须选择行业

因为,有些页面又想单独搜索 地区,或者单独搜索行业类型

用户不选,就表示不限制分类了

 

<select name=”KS_ZWLX“>
<option value=”">选择行业类别</option>
<option value=”计算机硬件及网络设备”>计算机硬件及网络设备</option>
<option value=”计算机软件”>计算机软件</option>
<option value=”IT服务(系统/数据/维护)/多领域经营”>IT服务(系统/数据/维护)/多领域经营</option>
</select>

 

对应的搜索程序里可以改下,如:

 

If ChannelID=110 Then
if ks.s(“ks_zwlx”)<>”" then Param= Param & ” and KS_ZWLX=’” & KS.S(“KS_ZWLX”) & “‘”
if ks.s(“ks_gzd”)<>”" then param=param & ” and KS_GZD=’” & KS.S(“KS_GZD”) & “‘”
End If
 
==============================

 

还有个问题。。。

 

现在是自定义的不限了。

 

但默认的还是限定一定要输入。比如这里的“公司名称职位”

 

因为有个情况。

 

比如:只要查询 天津 地区的所有工作。

================================
 
Sub ArticleSearch()Dim SqlStr,ParamParam=” Where Verific=1 And DelTF=0″
 
If KeyWord<>”" ThenSelect Case SearchTypeCase 100If IsDate(KeyWord) ThenIf CInt(DataBaseType) = 1 ThenParam=Param & ” And AddDate>=’” & KeyWord & ” 00:00:00′ and AddDate<=’” &KeyWord & ” 23:59:59′”elseParam=Param & ” And AddDate>=#” & KeyWord & ” 00:00:00# and AddDate<=#” &KeyWord & ” 23:59:59#”end ifElseExit SubEnd IfCase 1If (FuzzySearch=1) ThenFor I=0 To Ubound(KeyWordArr)If I=0 ThenParam=Param & ” And (Title Like ‘%” & KeyWordArr(i) & “%’”ElseParam = Param & ” or Title Like ‘%” & KeyWordArr(i) & “%’”End IfNextElseParam=Param & ” And (Title Like ‘%” & KeyWord & “%’”End IfParam=Param & “)”Case 2:Param=Param & ” And ArticleContent Like ‘%” & KeyWord & “%’”Case 3:Param=Param & ” And Author Like ‘%” & KeyWord & “%’”Case 4:Param=Param & ” And Inputer Like ‘%” & KeyWord & “%’”Case 5:Param=Param & ” And KeyWords Like ‘%” & KeyWord & “%’”Case elseif (FuzzySearch=1) ThenFor I=0 To Ubound(KeyWordArr)If I=0 ThenParam=Param & ” And (Title Like ‘%” & KeyWordArr(i) & “%’”ElseParam = Param & ” or Title Like ‘%” & KeyWordArr(i) & “%’”End IfNextElseParam=Param & ” And (Title Like ‘%” & KeyWord & “%’ or Author Like ‘%” & KeyWord & “%’”End IfParam=Param & “)”End Select
 
End IfIf ClassID<>”0″ Then Param=Param & ” And Tid In(” & KS.GetFolderTid(ClassID) & “)”

 

红色的判断下

 

当然在前面要删除一段提示没有输入关键字的代码

Private Sub Class_Initialize()
Set KS=New PublicCls
Set KMR=New Refresh
MaxPerPage=10
If KS.S(“page”) <> “” Then
CurrentPage = CInt(Request(“page”))
Else
CurrentPage = 1
End If
Dim RefreshTime:RefreshTime = 2 ‘设置防刷新时间
If DateDiff(“s”, Session(“SearchTime”), Now()) < RefreshTime Then
Response.Write “<META http-equiv=Content-Type content=text/html; 
chaRset=gb2312><meta HTTP-EQUIV=REFRESH 
CONTENT=”&RefreshTime&”><br>本页面起用了防刷新机制,请不要在”&RefreshTime&”秒内连续刷新本页面<BR>正在打开页面,请稍后……”
Response.EndEnd IfSession(“SearchTime”)=Now()ChannelID=KS.ChkClng(KS.S(“ChannelID”))
 
If ChannelID=0 Then Call KS.AlertHintScript(“你没有选择搜索类型!”):response.endClassID=KS.S(“ClassID”):If ClassID=”" Then ClassID=”0″SearchType=KS.ChkCLng(KS.S(“SearchType”))KeyWord=KS.CheckXSS(KS.R(KS.S(“KeyWord”)))If KeyWord=”" Then KeyWord=KS.CheckXSS(KS.S(“Tags”))KeyWordArr=Split(KeyWord,” “)If KeyWord=”" and channelid<>8 Then Call KS.AlertHintScript(“你没有输入搜索关键字!”):response.end
 
End Sub

 

红色这一段删除吧
再就是

KeyWordArr=Split(KeyWord,” “)

 

由于keyword为空,所以还要加下判断,如

 

If KeyWrod<>”" then
 
KeyWordArr=Split(KeyWord,” “)
 
end if

 

所以, 公司名称职位也不想填写。

 

但这个时间问题来了,会提示 “变量未定义”的错误。

If KeyWrod<>”" then
KeyWordArr=Split(KeyWord,” “)
end if
下添加
Dim KeyWrod

 

即解决。。。



易采源码下载站小编希望此文对科讯CMS(KesionCMS)用户在使用科讯CMS(KesionCMS)时有所帮助

科讯 (KesionCMS)建站系统下载http://down.easck.com/special/arc-30127.html


  • dedecms教程:定时生成站点地图sitemap.xml-DedeCms教程
  • 织梦CMS上传服务器后出现数据连接失败是怎么回事如何解决-DedeCms教程
  • 织梦DEDECMS 计划任务使用教程-DedeCms教程
  • DEDECMS自定义表单加入验证码问题修正-DedeCms教程
  • 分享Dedecms的一些seo优化简单技巧-DedeCms教程
  • 怎么解决DedecmsV5.7 SP1广告不能显示-DedeCms教程
  • 谈谈怎样防止Dedecms被挂马的问题-DedeCms教程
  • DedeCMS 5.7不兼容PHP 5.4版本的解决办法-DedeCms教程
  • dedecms实现任意页面调用当前会员信息的方法-DedeCms教程
  • 织梦百度结构化数据地图提交插件常见问题及解决方案-DedeCms教程
  • 网友评论

    关于我们 - 联系我们 - 广告服务 - 版权声明 - 人才招聘 - 友情链接 - 网站地图 - 帮助 - -

    CopyRight © 2010-2016 源码下载 easck.com , All Rights Reserved

    蒙公网安备 15052402000103号

    蒙ICP备14002389-1号