账号通
    

注册

找回密码

账号  

密码  

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

20378

查看

30

回复
主题：让 Loop 中支持IF标签 [收藏主题] 本贴被认定为精华 转到：  
foxhunter 当前离线

3

主题

0

广播

0

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

用户积分:106 分
登录次数:3 次
注册时间:2011/4/26
最后登录:2011/4/28
foxhunter 发表于：2011/4/26 22:43:04   | 只看该作者 查看该作者主题 楼主 
一分钟快速开通线上知识店铺

让自定义的Loop 循环中支持 IF 条件判断（支持IF 嵌套 测试了 一个IF下 两个同层级的IF情况没发现什么问题，貌视嵌套用不到什么 呵呵）。

当然，本人觉得如果是按照div+css的方式来布局应该对这个IF不是太依赖，很多的事情可以变通来处理。

但是如果某些特殊原因 例如偷懒想用table 快捷了事的话那么IF还真有他的用处。

在百度搜索了一下一直找不到解决办法，只好自己临时改下代码

暂时对于处理 loop 中if判断（主要配合mod进行</tr><tr>）没有出现什么问题。

由于本人是第一次使用本系统，只是在需要中修改的，因此代码的完备性和特殊处理上可能会有疏漏，如果大家发现了可以自行修改

解决办法：修改完善 KS_Cls\Kesion.Label.FunctionCls.asp

原理：我们需要在每一条Loop单元处理完毕后（系统级） 再来接管进行IF分析。之所以这个时候接管是因为我们的IF中可能会用到系统标签的值，所以需要让系统先分析并赋值后我们再处理

         注意：IF代码支持嵌套，但会从最里层级开始 进行if分析



  3. '需要修改的
  4. Sub Scan(ByVal sTemplate)
  5.    Dim iPosLast, iPosCur   
  6.    iPosLast    = 1
  7.    While True
  8.     iPosCur    = InStr(iPosLast, sTemplate, "{@")
  9.     If iPosCur>0 Then
  10.      Echo    Mid(sTemplate, iPosLast, iPosCur-iPosLast)
  11.      iPosLast  = Parse(sTemplate, iPosCur+2)     
  12.     Else
  13.      Echo    Mid(sTemplate, iPosLast)
  14.                      Templates=ParseIF(Templates)        '此处为修改的增加项目           
  15.      Exit Sub  
  16.     End If
  17.      Wend
  18.   End Sub
  19.    

  20.   '增加的代码

  21.     Function DoIf(byval condition,byval yes,byval no)
  22.             if(Eval(condition)) then
  23.                 DoIf=yes
  24.             else
  25.                 DoIf=no
  26.             end if
  27.         end function
  28.         
  29.         '增加的代码  使用标签格式 {$IF 1=1 } {True} {False} {/$IF}  按照以下的正则 是不允许在条件分支中出现大括号内容的
  30.         '使用举例如    {$IF {@autoid} mod 2=0 } {</tr><tr>} {{$IF {@autoid}=1 }{<font color="Red">第一名</font>}{}{/$IF}} {/$IF}  这个是说明 使用中这个例子中的第二级IF应该是用不到吧呵呵
  31.         '条件中的判断格式： 原来asp该怎么写就怎么写
  32.    Function ParseIF(sTemplate)
  33.             dim condition,yes,no           
  34.             regEx.Pattern = "\{\$IF([^\}]*)\}[^\{]*\{([^\}]*)\}[^\{]*\{([^\}]*)\}[^\{]*{/\$IF\}"
  35.             Set Matches = regEx.Execute(sTemplate)
  36.             On Error Resume Next
  37.             '不断的检查自身 用来替换嵌套的IF
  38.             while(Matches.Count<>0)
  39.                     set Match=Matches(0)
  40.                     condition=Match.SubMatches.Item(0)
  41.                     yes=Match.SubMatches.Item(1)
  42.                     no=Match.SubMatches.Item(2)                 
  43.                     sTemplate=replace(sTemplate,Match.Value,DoIf(condition,yes,no))                  
  44.                     set Matches=regEx.Execute(sTemplate)                  
  45.             wend           
  46.             set Matches=nothing
  47.             ParseIF=sTemplate
  48.         end Function



以上代码属于个人研究，如有不足和疏漏 大家一起来修改吧

 
有课程 找生源 就上科汛课堂街
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
mbaun 当前离线

1138

主题

4

广播

1

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

用户积分:6229 分
登录次数:342 次
注册时间:2006/4/4
最后登录:2023/2/2
mbaun 发表于：2011/4/27 0:25:00   | 只看该作者 查看该作者主题 沙发 
一分钟快速开通线上知识店铺
研究下
 
出来诈盗，多多关照
有课程 找生源 就上科汛课堂街
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
www990826 当前离线

55

主题

0

广播

0

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

用户积分:87 分
登录次数:23 次
注册时间:2011/4/16
最后登录:2011/11/3
www990826 发表于：2011/4/27 1:06:48   | 只看该作者 查看该作者主题 藤椅 
做在线知识付费 选科汛云开店
做考试题库 就用#科汛在线考试系统!

不错！支持一个吧！哈哈
 
***器什么牌子好[/url]最有效的增高药[/url]涉趣女鞋[/url]挂烫机十大品牌[/url]
有课程 找生源 就上科汛课堂街
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
无风 当前离线

1622

主题

5

广播

29

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

用户积分:5963 分
登录次数:199 次
注册时间:2009/10/12
最后登录:2024/4/4
无风 发表于：2011/4/27 8:56:51   | 只看该作者 查看该作者主题 板凳 
科汛在线网校系统
做官网 就用科汛智能建站系统!
支持一个吧
 
QQ：592002940 <a target=_blank href=http://qun.qq.com/#jointhegroup/gid/40509894 title=点击加入科讯技术交流群>科讯技术交流群</a>===<a target=_blank href=http://qun.qq.com/#jointhegroup/gid/7133571 title=点击加入科讯技术高级群>科讯CMS高级群</a>=== 欢迎新手加入学习，欢迎高手加入指导 承接科讯系统的模板整合，各类模板仿制 <a href=http://hi.baidu.com/科讯技术 title=科讯技术百度博客，收录大量实用技术文章>科讯技术博客</a>
做新职业技能培训平台 就选#科汛网校
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
seekin 当前离线

442

主题

4

广播

1

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

用户积分:3753 分
登录次数:277 次
注册时间:2007/6/4
最后登录:2018/5/4
seekin 发表于：2011/4/27 9:20:30   | 只看该作者 查看该作者主题 报纸 
科汛在线考试系统(NET)
做考试题库 就用#科汛在线考试系统!

值得学习下
 
矢量标志下载 www.logotu.com
做考试题库 就用#科汛在线考试系统!
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
kelly99 当前离线

178

主题

0

广播

0

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

用户积分:188 分
登录次数:9 次
注册时间:2011/5/12
最后登录:2013/6/26
kelly99 发表于：2011/5/12 20:04:50   | 只看该作者 查看该作者主题 地板 
科汛在线考试系统(NET)
做考试题库 就用#科汛在线考试系统!

过来学习一下的
 
铅笔裤[/url]哈伦裤[/url]小腿粗怎么减[/url]如何瘦肚子[/url] 库包包[/url]
做官网 就用科汛智能建站系统!
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
d2wl 当前离线

333

主题

0

广播

0

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

用户积分:2143 分
登录次数:255 次
注册时间:2007/6/17
最后登录:2013/2/27
d2wl 发表于：2011/5/12 22:33:50   | 只看该作者 查看该作者主题 7楼 
做线上考试培训 就选#科汛网校

支持，同时也请楼主帮我看看这个代码是哪里出错了

http://bbs.kesion.com/forumthread-203385.html

谢谢
 
[URL]http://www.d2wl.com[/URL]
wap在线模拟器[/url][img]http://www.d2wl.com/Blog-d2wl/logo.asp[/img]
有课程 找生源 就上科汛课堂街
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
firely 当前离线

4

主题

0

广播

0

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

用户积分:6 分
登录次数:1 次
注册时间:2011/5/19
最后登录:2011/5/19
firely 发表于：2011/5/19 12:42:48   | 只看该作者 查看该作者主题 8楼 
科汛在线商城系统(NET)
做官网 就用科汛智能建站系统!
:handshake
 
新加坡剑桥学院[/url]
新加坡博伟国际教育学院[/url]
新加坡东亚管理学院[/url]
新加坡ERC学院[/url]
做考试题库 就用#科汛在线考试系统!
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
cooplam 当前离线

27

主题

0

广播

0

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

用户积分:38 分
登录次数:7 次
注册时间:2011/4/16
最后登录:2011/6/3
cooplam 发表于：2011/5/23 21:12:22   | 只看该作者 查看该作者主题 9楼 
科汛在线考试系统(NET)
做官网 就用科汛智能建站系统!

好东西，值得分享
 
<a href=http://www.zuoxuanroujianfei.info/ target=_blank>左旋肉碱</a><a href=http://www.iolay.net/ target=_blank>什么减肥药最有效果</a> http://www.haigo5.com http://www.jileshou.com
一分钟快速开通线上知识店铺
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
52liudehua 当前离线

22

主题

0

广播

0

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

用户积分:21 分
登录次数:7 次
注册时间:2011/6/3
最后登录:2011/6/14
52liudehua 发表于：2011/6/8 16:43:17   | 只看该作者 查看该作者主题 10楼 
科汛智能建站系统
有课程 找生源 就上科汛课堂街

加油牛人，挺一下
 
苏州广告公司 http://www.800512.com/
一分钟快速开通线上知识店铺
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
＜上一主题 | 下一主题 ＞
<< 返回列表
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.29688秒 powered by KesionCMS 9.0