非文章模型使用搜索标签调用搜索筛选页面后，再次点击筛选都会跳回文章模型的筛选的修改方法-领先建站CMS提供服务商我们专注于CMS建站产品的研发

3116 查看	2 回复

主题：非文章模型使用搜索标签调用搜索筛选页面后，再次点击筛选都会跳回文章模型的筛选的修改方法 [收藏主题]

科汛官方当前离线

47268 主题	145 广播	405 粉丝

级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
创始人

科汛官方发表于：2012/9/10 9:43:47 | 只看该作者查看该作者主题楼主

做官网就用科汛智能建站系统!

非文章模型使用搜索标签调用搜索筛选页面后，再次点击筛选都会跳回文章模型的筛选的修改方法

打开

item/index.asp

找到以下代码，并增加红色的部分即可

'获取字段选项的链接,nocollectkey 不收集的字段，多个用英文逗号隔开
  Function GetFieldLink(f,v,nocollectkey)
Dim r,Param,i
Param=""
Dim QPArr,PPArr,Pkey,Pval,QP
QP=Request.QueryString
If Not KS.IsNul(QP) Then
   QPArr=Split(Replace(QP,".html",""),",")
   For i=0 To Ubound(QPArr)
   If instr(QParr(i),"-")<>0 Then
   PPArr=Split(QParr(i),"-")
   Pkey=trim(PPArr(0))
   Pval=PPArr(1)
   if KS.FoundInArr(lcase(nocollectkey),lcase(pkey),",")=false Then
   If lcase(pkey)<>lcase(f) Then
   If Param="" Then
      Param=pkey&"-"&Pval
   Else
      Param=Param & ","&pkey&"-"&Pval
   End If
   ElseIf lcase(pkey)=lcase(f) Then
   If Param="" Then
      Param=pkey&"-" & v
   Else
      Param=Param & ","&pkey&"-"&v
   End If
   End If
   End If
End If
   Next
End If

  if f<>"" then
if instr(lcase(param),lcase(f)&"-")=0 then
If Param="" Then
   Param=f & "-" & v
Else
   Param=Param & "," & f & "-" & v
End If
end if
  end if
  if (instr(lcase(param),"c-")=0) then
      If Param="" Then
   Param="c-" & channelid
Else
   Param=Param & ",c-" & channelid
End If
  end if
if isrewrite<>"1" then Param="?" & Param Else Param=KS.Setting(3) & "search/" & Param
GetFieldLink=Param&".html"
  End Function