上一篇 | 这是最后一篇日志下一篇
技术 订阅所有技术的日志

ACTcms自由标签二次循环修改

作者:admin 日期:2008-08-29

字体大小: 小 中 大

ACT网站管理系统 Version 2.0

修改ACT_inc文件夹下的ACT.Code.asp文件

第234行的ReplaceAllLabel函数修改为：

ASP/Visual Basic代码
  1. Function ReplaceAllLabel(Content)   
  2.  Dim D:Set D=New ACTFreeLabel   
  3.  Content=D.ReplaceReeLabel(Content) '替换自定义函数标签   
  4.  If Instr(Content,"{ACTSQL_")<>0 Then  
  5.     Content=D.ReplaceReeLabel(Content)   
  6.     End If    
  7.  Set D=nothing   
  8.  ReplaceAllLabel =Content   
  9. End Function  

修改后的代码实现标自由标签二次替换，从而达到二次循环的效果，这样做会降低系统效率。

范例：

目标，列出所有ParentID='1' 的目录

标签循环体名称：{ACTSQL_二级循环体()}

查询语句：select top 10 ClassName from Class_Act where ParentID='{$Param(0' order by orderID desc

标签内容：

XML/HTML代码
  1. [loop=10] <li>{$Field(ClassName,Text,0,...,0,)}</li> [/loop]  

标签主体名称：{ACTSQL_全栏目列表()}

查询语句：select top 10 ID,ClassName from Class_Act where ParentID='1' order by orderID desc

标签内容：

XML/HTML代码
  1. [loop=10]   
  2. <b>{$Field(ClassName,Text,0,...,0,)}</b>  
  3. <ul>  
  4. {ACTSQL_二级循环体({$Field(id,Text,0,...,0,)})}   
  5. </ul>  
  6. [/loop]  

模板调用{ACTSQL_全栏目列表()}  而此标签中掉用了{ACTSQL_二级循环体()}  实现二次循环

 




文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: ACTCMS cms ASP 标签 二次循环
评论: 1 | 引用: 0 | 查看次数: -
小桑[2008-09-26 10:22 AM | del]
技术的..闪人...
发表评论
昵　称:
密　码: 游客发言不需要密码.
内　容:
验证码: 验证码
选　项:
虽然发表评论不用注册，但是为了保护您的发言权，建议您注册帐号.