账号通
    

注册

找回密码

账号  

密码  

话题
互动
会员
服务
<<返回列表上一个主题 下一个主题 打印本帖 复制本帖地址

4077

查看

9

回复
主题：关于诸如:{$GetSearch} 搜索如何去掉搜索类型修改的解决方法 [收藏主题] 转到：  
esharp 当前离线

508

主题

14

广播

32

粉丝
添加关注
级别:五年级

用户积分:1420 分
登录次数:531 次
注册时间:2011/6/24
最后登录:2024/9/4
esharp 发表于：2012/2/1 11:56:00   | 只看该作者 查看该作者主题 楼主 
科汛智能建站系统
做线上考试培训 就选#科汛网校

  鉴于需要保留官方原本的标签解析.所以不要修改原本的东西.可以自己复制一个函数.修改后.进行标签解析.



其他解析函数标签同理.



测试版本:  V8.2



方法如下:



1：找到:Kesion.Label.SearchCls.asp



2：找到函数:



'取得总搜索

  

  '-----------------------------------------------

  '冉:找到全站搜索了.

  Function GetSearch()  



这个函数就是标签解析类中的函数. 把这个整个函数:    Function GetSearch()  ....End Function 全复制粘贴到后面.



改个名字:  我用的是 Function soso()  .....End Function.



3：把包含在 Function soso() ....End Function 里面的 变量:GetSearch全部改成soso.以便返回函数结果对应.不然会提示 错误的赋值.



形式如下:



'====================原函数===============

Function GetSearch()

      GetSearch = "<form id=""SearchForm"" name=""SearchForm"" method=""Get"" action=""" & KS.Setting(3) &"plus/search/"">" & vbCrLf

      GetSearch = GetSearch & "<div class=""searchsd"">" & vbCrLf

      GetSearch = GetSearch & " <input name=""key"" type=""text"" class=""textbox"" value=""请输入关键字""this.select();""/><span>" & vbCrLf

      GetSearch = GetSearch & "<select style=""width:80px;"" name=""m"">" & vbCrLf

      GetSearch = GetSearch & "<option value=""0"">全部</option>" & vbCrLf

      If not IsObject(Application(KS.SiteSN&"_ChannelConfig")) Then KS.LoadChannelConfig

    Dim ModelXML,Node

    Set ModelXML=Application(KS.SiteSN&"_ChannelConfig")

    For Each Node In ModelXML.DocumentElement.SelectNodes("channel")

        if Node.SelectSingleNode("@ks21").text="1" and Node.SelectSingleNode("@ks0").text<>"6" and Node.SelectSingleNode("@ks0").text<>"9" and Node.SelectSingleNode("@ks0").text<>"10" Then

     GetSearch = GetSearch & "<option value="" & """>" & Node.SelectSingleNode("@ks3").text & "</option>" & vbCrLf

     End If

    Next

      GetSearch = GetSearch & "</select>" & vbCrLf

      GetSearch = GetSearch & "<input type=""image"" class=""inputButton"" name=""Submit1"" src=""" & KS.GetDomain & "images/btn.gif"" align=""absmiddle"" />" & vbCrLf

      GetSearch = GetSearch & "</span>" & vbCrLf

      GetSearch = GetSearch & "</div>" & vbCrLf

      GetSearch = GetSearch & "</form>" & vbCrLf

  End Function



'===================原函数结束================



'===================自己增加的函数=============



Function soso()

      soso = "<form id=""SearchForm"" name=""SearchForm"" method=""Get"" action=""" & KS.Setting(3) &"plus/search/"">" & vbCrLf

      soso = soso & "<div class=""searchsd"">" & vbCrLf

      soso = soso & " <input name=""key"" type=""text"" class=""textbox"" value=""请输入关键字""this.select();""/><span>" & vbCrLf

      'GetSearch = GetSearch & "<select style=""width:80px;"" name=""m"">" & vbCrLf

'      GetSearch = GetSearch & "<option value=""0"">全部</option>" & vbCrLf

'      If not IsObject(Application(KS.SiteSN&"_ChannelConfig")) Then KS.LoadChannelConfig

'    Dim ModelXML,Node

'    Set ModelXML=Application(KS.SiteSN&"_ChannelConfig")

'    For Each Node In ModelXML.DocumentElement.SelectNodes("channel")

'        if Node.SelectSingleNode("@ks21").text="1" and Node.SelectSingleNode("@ks0").text<>"6" and Node.SelectSingleNode("@ks0").text<>"9" and Node.SelectSingleNode("@ks0").text<>"10" Then

'     GetSearch = GetSearch & "<option value="" & """>" & Node.SelectSingleNode("@ks3").text & "</option>" & vbCrLf

'     End If

'    Next

'

'      GetSearch = GetSearch & "</select>" & vbCrLf

      soso = soso & "<input type=""image"" class=""inputButton"" name=""Submit1"" src=""" & KS.GetDomain & "images/btn.gif"" align=""absmiddle"" />" & vbCrLf

      soso = soso & "</span>" & vbCrLf

      soso = soso & "</div>" & vbCrLf

      soso = soso & "</form>" & vbCrLf

  End Function



'====================结束===================



其中我注释掉了GetSearch 可以不用修改成 soso ,注释掉的部分就是 下拉框.其他的修改成soso就行了.



第二大步骤:



前面我们已经准备好了函数 :  Function soso() . 接下来我们判断解析替换.



找到:'替换网站的所有搜索

  Function Run(byVal tag)

   tag=Lcase(tag)

   if tag="getsearchbydate" then

     Run=GetSearchByDate()

   elseif tag="getsearch" then

     Run=GetSearch()

     

行号一般为:  line: 23行



然后修改为:



'替换网站的所有搜索

  Function Run(byVal tag)

   tag=Lcase(tag)

   if tag="getsearchbydate" then

     Run=GetSearchByDate()

   elseif tag="getsearch" then

     Run=GetSearch()

'注意:这里开始增加.

     '冉:增加soso的函数调用.

     elseif tag="soso" then

     Run=soso()

'注意:这里为结束,所有添加成功.

   else





最后.我们就可以在模板里 调用诸如:  {$soso}



就可以实现自己添加解析标签了.



如果不懂得.可以问我.  QQ:28729161。电话: 13628211114,15123450806。



小记:  科讯小林  林文仲, 不错饿.呵呵.高手. 写的类感觉太复杂啦.
 
做新职业技能培训平台 就选#科汛网校
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
esharp 当前离线

508

主题

14

广播

32

粉丝
添加关注
级别:五年级

用户积分:1420 分
登录次数:531 次
注册时间:2011/6/24
最后登录:2024/9/4
esharp 发表于：2012/2/1 11:58:00   | 只看该作者 查看该作者主题 沙发 
科汛在线商城系统(NET)
一分钟快速开通线上知识店铺

我就给个完整的 文件了:


'*******************************************

Dim ShCls:Set ShCls=New RefreshSearchCls
Class RefreshSearchCls
  Private KS  
  Private Sub Class_Initialize()
    Set KS=New PublicCls
  End Sub
        Private Sub Class_Terminate()
   Set KS=Nothing
   Set ShCls=Nothing
  End Sub
  
  '替换网站的所有搜索
  Function Run(byVal tag)
   tag=Lcase(tag)
   if tag="getsearchbydate" then
     Run=GetSearchByDate()
   elseif tag="getsearch" then
     Run=GetSearch()
     '冉:增加soso的函数调用.
     elseif tag="soso" then
     Run=soso()
   else
    If not IsObject(Application(KS.SiteSN&"_ChannelConfig")) Then KS.LoadChannelConfig
    Dim ModelXML,Node
    Set ModelXML=Application(KS.SiteSN&"_ChannelConfig")
    For Each Node In ModelXML.DocumentElement.SelectNodes("channel")
     if tag=lcase("get" & Node.SelectSingleNode("@ks10").text & "search") then
       run="<script src=""" & KS.Setting(3) & KS.Setting(93) & "S_" & Node.SelectSingleNode("@ks10").text & ".js""></script>"
     end if
    Next
   end if
  End Function
  
  '取得高级日历搜索
  Function GetSearchByDate()
   GetSearchByDate="<iframe id=gToday:normal:agenda.js style=""BORDER-RIGHT: 0px ridge; BORDER-TOP: 0px ridge; BORDER-LEFT: 0px ridge; BORDER-BOTTOM: 0px ridge"" name=gToday:normal:agenda.js src=""" & KS.Setting(3) & "KS_Inc/iflateng.htm?../plus/search/?m=1&stype=100"" frameBorder=0 width=160 scrolling=no height=170></iframe>"
  End Function
  '取得总搜索
  
  '-----------------------------------------------
  '冉:终于找到全站搜索的样式了.
  Function GetSearch()
      GetSearch = "<form id=""SearchForm"" name=""SearchForm"" method=""Get"" action=""" & KS.Setting(3) &"plus/search/"">" & vbCrLf
      GetSearch = GetSearch & "<div class=""searchsd"">" & vbCrLf
      GetSearch = GetSearch & " <input name=""key"" type=""text"" class=""textbox"" value=""请输入关键字""this.select();""/><span>" & vbCrLf
      GetSearch = GetSearch & "<select style=""width:80px;"" name=""m"">" & vbCrLf
      GetSearch = GetSearch & "<option value=""0"">全部</option>" & vbCrLf
      If not IsObject(Application(KS.SiteSN&"_ChannelConfig")) Then KS.LoadChannelConfig
    Dim ModelXML,Node
    Set ModelXML=Application(KS.SiteSN&"_ChannelConfig")
    For Each Node In ModelXML.DocumentElement.SelectNodes("channel")
        if Node.SelectSingleNode("@ks21").text="1" and Node.SelectSingleNode("@ks0").text<>"6" and Node.SelectSingleNode("@ks0").text<>"9" and Node.SelectSingleNode("@ks0").text<>"10" Then
     GetSearch = GetSearch & "<option value="" & """>" & Node.SelectSingleNode("@ks3").text & "</option>" & vbCrLf
     End If
    Next

      GetSearch = GetSearch & "</select>" & vbCrLf
      GetSearch = GetSearch & "<input type=""image"" class=""inputButton"" name=""Submit1"" src=""" & KS.GetDomain & "images/btn.gif"" align=""absmiddle"" />" & vbCrLf
      GetSearch = GetSearch & "</span>" & vbCrLf
      GetSearch = GetSearch & "</div>" & vbCrLf
      GetSearch = GetSearch & "</form>" & vbCrLf
  End Function
  
  
  Function soso()
      soso = "<form id=""SearchForm"" name=""SearchForm"" method=""Get"" action=""" & KS.Setting(3) &"plus/search/"">" & vbCrLf
      soso = soso & "<div class=""searchsd"">" & vbCrLf
      soso = soso & " <input name=""key"" type=""text"" class=""textbox"" value=""请输入关键字""this.select();""/><span>" & vbCrLf
      'GetSearch = GetSearch & "<select style=""width:80px;"" name=""m"">" & vbCrLf
'      GetSearch = GetSearch & "<option value=""0"">全部</option>" & vbCrLf
'      If not IsObject(Application(KS.SiteSN&"_ChannelConfig")) Then KS.LoadChannelConfig
'    Dim ModelXML,Node
'    Set ModelXML=Application(KS.SiteSN&"_ChannelConfig")
'    For Each Node In ModelXML.DocumentElement.SelectNodes("channel")
'        if Node.SelectSingleNode("@ks21").text="1" and Node.SelectSingleNode("@ks0").text<>"6" and Node.SelectSingleNode("@ks0").text<>"9" and Node.SelectSingleNode("@ks0").text<>"10" Then
'     GetSearch = GetSearch & "<option value="" & """>" & Node.SelectSingleNode("@ks3").text & "</option>" & vbCrLf
'     End If
'    Next
'
'      GetSearch = GetSearch & "</select>" & vbCrLf
      soso = soso & "<input type=""image"" class=""inputButton"" name=""Submit1"" src=""" & KS.GetDomain & "images/btn.gif"" align=""absmiddle"" />" & vbCrLf
      soso = soso & "</span>" & vbCrLf
      soso = soso & "</div>" & vbCrLf
      soso = soso & "</form>" & vbCrLf
  End Function
  '-----------------------------------------------

End Class


'===========注意看清了. 是v8
 
有课程 找生源 就上科汛课堂街
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
zgliaoning258 当前离线

36

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:35 分
登录次数:6 次
注册时间:2012/1/31
最后登录:2012/2/12
zgliaoning258 发表于：2012/2/1 12:07:00   | 只看该作者 查看该作者主题 藤椅 
做在线知识付费 选科汛云开店
做考试题库 就用#科汛在线考试系统!
哦 幸亏看完了，否则我用的V9 差点掉进去
 
电脑维修论坛[/url]|电脑技术论坛[/url]|www.tudoughost.net[/b]
有课程 找生源 就上科汛课堂街
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
fytea888 当前离线

159

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:204 分
登录次数:131 次
注册时间:2011/10/14
最后登录:2017/3/20
fytea888 发表于：2012/2/1 12:41:00   | 只看该作者 查看该作者主题 板凳 
科汛在线考试系统(NET)
做官网 就用科汛智能建站系统!
向高手学习。。。。。
 
做新职业技能培训平台 就选#科汛网校
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
一米阳光 当前离线

160

主题

1

广播

0

粉丝
添加关注
级别:一年级

用户积分:267 分
登录次数:143 次
注册时间:2011/5/28
最后登录:2023/4/15
一米阳光 发表于：2012/2/1 12:49:00   | 只看该作者 查看该作者主题 报纸 
科汛在线商城系统(NET)
一分钟快速开通线上知识店铺
支持啊
 
做考试题库 就用#科汛在线考试系统!
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
esharp 当前离线

508

主题

14

广播

32

粉丝
添加关注
级别:五年级

用户积分:1420 分
登录次数:531 次
注册时间:2011/6/24
最后登录:2024/9/4
esharp 发表于：2012/2/1 13:31:00   | 只看该作者 查看该作者主题 地板 
科汛智能建站系统
一分钟快速开通线上知识店铺

相互学习的个. 科讯才是高手. 有他们才有我们.


不是每个问题我都会解决. 是我碰到了. 或者有改进想法.或者我用到哪里来了. 我才会考虑做二次开发.

点评 共 1 条

xtpl 说的很好 威望+1 发表于 2012/8/19 12:51:00 
 
做考试题库 就用#科汛在线考试系统!
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
lwti0 当前离线

279

主题

0

广播

0

粉丝
添加关注
级别:二年级

用户积分:368 分
登录次数:61 次
注册时间:2011/6/16
最后登录:2012/9/3
lwti0 发表于：2012/2/1 13:59:00   | 只看该作者 查看该作者主题 7楼 
做在线知识付费 选科汛云开店
一分钟快速开通线上知识店铺
嘿嘿嘿嘿
 
网赚[/url]‖网赚教程[/url]‖网赚项目[/url]‖淘宝特卖商城[/url]‖淘宝特价[/url]
做官网 就用科汛智能建站系统!
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
yanglxg2010 当前离线

562

主题

13

广播

4

粉丝
添加关注
级别:五年级

用户积分:2810 分
登录次数:158 次
注册时间:2010/3/17
最后登录:2018/10/7
yanglxg2010 发表于：2012/8/19 18:10:00   | 只看该作者 查看该作者主题 8楼 
做考试题库 就用#科汛在线考试系统!
继续关注
 
一分钟快速开通线上知识店铺
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
vgseo123 当前离线

6

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:12 分
登录次数:4 次
注册时间:2012/8/4
最后登录:2012/8/19
vgseo123 发表于：2012/8/19 18:22:00   | 只看该作者 查看该作者主题 9楼 
科汛在线商城系统(NET)
做线上考试培训 就选#科汛网校
进来学习下
 
有课程 找生源 就上科汛课堂街
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
桔子201452811 当前离线

26

主题

5

广播

0

粉丝
添加关注
级别:学前班

用户积分:40 分
登录次数:96 次
注册时间:2014/5/28
最后登录:2014/8/15
桔子201452811 发表于：2014/6/10 15:44:00   | 只看该作者 查看该作者主题 10楼 
做在线知识付费 选科汛云开店
做官网 就用科汛智能建站系统!

这个必须攒~！！！！！！！！
 
做官网 就用科汛智能建站系统!
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
＜上一主题 | 下一主题 ＞
<< 返回列表
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.23633秒 powered by KesionCMS 9.0