账号通
    

账号  

密码  

19016

查看

27

回复
主题:SQL标签支持往SQL语句的in传逗号隔开的参数修改方法 [收藏主题] 本贴被认定为精华 转到:  
科汛官方 当前离线

47268

主题

145

广播

405

粉丝
添加关注
级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
科汛官方 发表于:2012/8/24 17:40:37   | 显示全部帖子 查看该作者主题 楼主 
科汛在线考试系统(NET)

至今为止,sql标签无法给类似下面语句的in里传多个参数


select top 10 id,title from ks_article where tid in({$Param(0)}) order by id desc


原因是,科汛的sql标签,如果传多个参数时,本身就是用逗号隔开的,如


{SQL_标签名称(参数1,参数2...,参数n)}


下面我给大家修改思路,就是我们如果要传带逗号的参数,那么我们用其它的字符替换,等到sql语句解释时,再替换回来,如下调用方式。


{SQL_标签名称('20097062465721'|'20097082279507',参数2,...,参数n)



接下来我们就动手操作,以9.0版本为例说明:


第一步:


打开ks_cls/kesion.label.sqlcls.asp,找到183行


UserParamArr = Split(Replace(Replace(Replace(Replace(SqlLabel,LabelName&"(",""),")}",""),"""",""),"'",""),",")


改为

UserParamArr = Split(Replace(Replace(Replace(SqlLabel,LabelName&"(",""),")}",""),"""",""),",")


这个原来过滤了单引号了,由于我们可能在使用sql in时,传的参数可能是字符型的,必须带有单引号,特别是科汛的主表的栏目ID都是字符型的,参数都必须带单引号的,如


select top 10 id,title from ks_article where tid in('20097062465721','20097082279507') order by id desc


第二步:


同样这个文件里,我们找到214行


FunctionSQL  = Replace(FunctionSQL,"{$Param("&I&")}",UserParamArr(I),1,-1,1)


改为

FunctionSQL  = Replace(FunctionSQL,"{$Param("&I&")}",Replace(UserParamArr(I),"|",","),1,-1,1)



第三步:

这样前台的标签解释就修改完成了,接下来打开admin/indclue/LabelSQL.asp

找到1624行

function ClearParam(byval SqlStr)
      Dim I
   For I=0 To 100
    SqlStr=Replace(SqlStr,"{$Param(" & I & ")}",1)
   Next
    SqlStr=Replace(SqlStr,"{$CurrClassChildID}","'1'")
    SqlStr=Replace(SqlStr,"{$CurrChannelID}",1)
    SqlStr=Replace(SqlStr,"{$CurrClassID}",1)
    SqlStr=Replace(SqlStr,"{$CurrInfoID}",1)
    SqlStr=Replace(SqlStr,"{$CurrSpecialID}",1)
    SqlStr=Replace(SqlStr,"{$GetUserName}",1)
    ClearParam=ReplaceRequest(SqlStr)
   exit function
End function


直接将以上代码替换为


function ClearParam(byval SqlStr)
      sqlstr=Lcase(sqlstr)
      if instr(SqlStr,"where")<>0 then sqlstr=split(SqlStr,"where")(0)
      Dim I
   For I=0 To 100
    SqlStr=Replace(SqlStr,"{$param(" & I & ")}",1)
   Next
    SqlStr=Replace(SqlStr,"{$currclasschildid}","'1'")
    SqlStr=Replace(SqlStr,"{$currchannelid}",1)
    SqlStr=Replace(SqlStr,"{$currclassid}",1)
    SqlStr=Replace(SqlStr,"{$currinfoid}",1)
    SqlStr=Replace(SqlStr,"{$currspecialid}",1)
    SqlStr=Replace(SqlStr,"{$getusername}",1)
    ClearParam=ReplaceRequest(SqlStr)
   exit function
     End function






经过上面三步修改,你的sql标签可以使用带逗号的参数的了。


以下应用实例。


我们可以根据sql标签调用指定几个栏目的最新文章,如sql语句


select top 10 id,title from ks_article where tid in({$Param(0)}) order by id desc


模板里调用


{SQL_标签名称('20097062465721'|'20097082279507'|'20093308484295')



再比如,调用指定几个会员的用户信息


sql语句


select userid,username,realname from ks_user where userid in({$Param(0)}) order by userid


模板里调用


{SQL_标签名称(2|3|4)}

 
KesionCMS,,
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.09375秒 powered by KesionCMS 9.0