账号通
    

账号  

密码  

3478

查看

6

回复
主题:[建议]希望增加自设内容SQL标签解析和SQL标签动态参数调用 [收藏主题] 转到:  
goon2005 当前离线

740

主题

1

广播

0

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

用户积分:3504 分
登录次数:229 次
注册时间:2006/10/31
最后登录:2018/2/26
goon2005 发表于:2010/9/25 11:11:00   | 只看该作者 查看该作者主题 楼主 
最近改版一个网站,因为栏目设置原因发觉很多模版要单独做,感觉很繁琐,大部分是相同的代码,只是涉及栏目个性化而已,栏目自设内容只能调用静态内容,对SQL标签调用就不行了,还有SQL标签也不能调用诸如栏目名称等相关动态参数,导致灵活性方面大打折扣,希望官方考虑一下这个问题



1.栏目自设内容支持SQL标签调用



2.SQL标签支持动态参数调用,比如栏目名称之类的动态参数
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
linksy 当前离线

188

主题

0

广播

1

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

用户积分:2516 分
登录次数:158 次
注册时间:2007/6/14
最后登录:2015/12/16
linksy 发表于:2010/9/25 11:55:00   | 只看该作者 查看该作者主题 沙发 
科汛在线网校系统

{$SQLReplace({$Field(classdefinecontent,Text,0,...,0,)},||||,1,1000)}


Else
      Exit For
    End If
     KS_RS_Obj.MoveNext
   Next
加GetCirLabelContent=SQLReplace(GetCirLabelContent)  
  End Function


Str=Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(objAtr.Attributes.item(2).Text,"{$Field","{#Field"),"{$AutoID}","{#AutoID}"),"{$IF","{#IF"),"{$Param","{#Param"),"{$SQLReplace","{#SQLReplace"),"{$SQLReplaceHtml","{#SQLReplaceHtml"),"{$CreateImage","{#CreateImage"),"{$CurrClassPosition","{#CurrClassPosition"),"{$CurrInfoPosition","{#CurrInfoPosition"),"{$SQL_","##SQL_"),"$}","@@")
     '避免Field字段被替换掉,先转为#
     Str=Rcls.ReplaceGeneralLabelContent(Str)
     Str=Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Str,"{#Field","{$Field"),"{#AutoID}","{$AutoID}"),"{#IF","{$IF"),"{#Param","{$Param"),"{#SQLReplace","{$SQLReplace"),"{#SQLReplaceHtml","{$SQLReplaceHtml"),"{#CreateImage","{$CreateImage"),"{#CurrClassPosition","{$CurrClassPosition"),"{#CurrInfoPosition","{$CurrInfoPosition")


Function SQLReplace(lpFieldValue)
   Dim regEx, Matches, Match
   if instr(lpFieldValue,"SQLReplace")<=0 then
   SQLReplace=lpFieldValue
   else
   Dim FieldParam,FieldParamArr,mytempValue,mytempNum,mytarget,templpFieldValue
   Set regEx = New RegExp
   regEx.Pattern = "{\$SQLReplace\([^{\$}]*}"
   regEx.IgnoreCase = True
   regEx.Global = True
   Set Matches = regEx.Execute(lpFieldValue)   
   For Each Match In Matches
    FieldParam    = Replace(Replace(Match.Value,"{$SQLReplace(",""),")}","")
    FieldParamArr = Split(FieldParam,",")
    mytempValue=split(Replace(KS.LoseHtml(KS.HtmlCode(FieldParamArr(0))),"&nbsp;",""),trim(FieldParamArr(1)))
if ubound(mytempValue)>=cint(FieldParamArr(2)) then lpFieldValue=Replace(lpFieldValue,Match.Value,KS.gotTopic(mytempValue(FieldParamArr(2)),FieldParamArr(3)))
Next
    SQLReplace=lpFieldValue
end if
  End Function


 
以广为赞誉的服务态度、显著的***效果,从而赢得了广大客户的一致好评.飞翔网络4年专业网站建设经验(http://www.aqwzjs.com)
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
linksy 当前离线

188

主题

0

广播

1

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

用户积分:2516 分
登录次数:158 次
注册时间:2007/6/14
最后登录:2015/12/16
linksy 发表于:2010/9/25 11:57:00   | 只看该作者 查看该作者主题 藤椅 
 
以广为赞誉的服务态度、显著的***效果,从而赢得了广大客户的一致好评.飞翔网络4年专业网站建设经验(http://www.aqwzjs.com)
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
taobaojipiao 当前离线

267

主题

0

广播

0

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

用户积分:49 分
登录次数:9 次
注册时间:2010/9/25
最后登录:2010/11/6
taobaojipiao 发表于:2010/9/25 13:56:00   | 只看该作者 查看该作者主题 板凳 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
pcik 当前离线

182

主题

3

广播

0

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

用户积分:1793 分
登录次数:99 次
注册时间:2010/11/14
最后登录:2015/4/7
pcik 发表于:2012/5/2 9:38:00   | 只看该作者 查看该作者主题 报纸 
做在线知识付费 选科汛云开店

看样子是很高,但请高人解释一下,看不懂啊

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
kmyyzaox 当前离线

122

主题

1

广播

1

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

用户积分:139 分
登录次数:35 次
注册时间:2012/4/28
最后登录:2012/6/30
kmyyzaox 发表于:2012/5/2 10:12:00   | 只看该作者 查看该作者主题 地板 
科汛智能建站系统
对不起,该用户所发的帖已全被锁定!
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
sffwzgd 当前离线

3513

主题

0

广播

0

粉丝
添加关注
级别:大三

用户积分:3109 分
登录次数:84 次
注册时间:2011/6/22
最后登录:2015/9/23
sffwzgd 发表于:2012/5/2 17:27:00   | 只看该作者 查看该作者主题 7楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.18750秒 powered by KesionCMS 9.0