设为首页收藏本站
开启辅助访问 切换到窄版

5ucms论坛

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
5ucms论坛»论坛 › 建站程序与开发 › PopAspCms › 7、POPASP快速入门第七课 模板文件的循环语句
返回列表 发新帖
查看: 7390|回复: 1
打印 上一主题 下一主题

[2.x] 7、POPASP快速入门第七课 模板文件的循环语句

[复制链接]
admin

670

主题

785

帖子

8373

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
8373
跳转到指定楼层
楼主
发表于 2019-4-1 15:30:06 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
index.asp
  1. <!--#include file="../popasp_2.0/popasp.asp"-->
  2. <%

  4. '项目部署时不要手工去创建home文件夹，系统会自动创建该文件夹
  5. const APP_PATH = "./home"

  7. '项目部署的时候使用POP_MVC.start方法，项目部署完之后使用POP_MVC.run方法
  8. POP_MVC.run
  9. %>
  10. <%
  11. Call A_("Index/index")
  12. dim key,item
  13. %>
  14. <html>
  15. <head>
  16. <title>变量类型转化</title>
  17. </head>
  18. <body>
  19.         <ul>
  20.                 <% for each key in V_("list") : set item = V_("list")(key) %>
  21.                         <li><a href="post.asp?id=<%=item("id")%>"><%=item("title")%></a></li>
  22.                 <% next %>
  23.         </ul>
  24. </body>
复制代码


arr.asp
  1. <!--#include file="../popasp_2.0/popasp.asp"-->
  2. <%

  4. '项目部署时不要手工去创建home文件夹，系统会自动创建该文件夹
  5. const APP_PATH = "./home"

  7. '项目部署的时候使用POP_MVC.start方法，项目部署完之后使用POP_MVC.run方法
  8. POP_MVC.run
  9. %>
  10. <%
  11. Call A_("Index/arr")
  12. dim key,item
  13. %>
  14. <html>
  15. <head>
  16. <title>变量类型转化</title>
  17. </head>
  18. <body>
  19.         <ul>
  20.                 <% for each item in V_("a") %>
  21.                         <li><%=item%></li>
  22.                 <% next %>

  24. <hr>               
  25.        
  26.                 <% for each key in V_("b") : item = V_("b")(key) %>
  27.                         <li><span><%=key%></span>:<span><%=item%></span></li>
  28.                 <% next %>
  29.         </ul>
  30. </body>
  31. </html>
复制代码


IndexAction.class.asp
  1. <%
  2. ' 本类由系统自动生成，仅供测试用途
  3. Class IndexAction
  4.     public Sub index()
  5.                 dim rs
  6.                
  7.                 '在这里获取到的rs为Recordset对象
  8.                 set rs = M_("post").db.page( "null,10" ).field("id,title").select()
  9.                
  10.                 '能过that.assign分配Recordset对象类型的变量时，会转化为Dictionary类型
  11.                 that.assign "list",rs
  12.                
  13.                 var_export typename( V_("list") )
  14.     end Sub
  15.        
  16.         public sub post
  17.                 dim rs
  18.                
  19.                 '在这里获取到的rs为Recordset对象
  20.                 set rs = M_("post").db.fieldRev("content").find()
  21.                
  22.                 that.assign "row",rs
  23.                
  24.                 var_export M_("post")
  25.         end sub
  26.        
  27.         public sub arr
  28.                 dim a,b
  29.                
  30.                 a = POP_MVC.Arr.Range(5,15) '定义5-15的一维数组
  31.                
  32.                 that.assign "a",a
  33.                 var_export typename( V_("a") )
  34.                
  35.                 '将数组转化成Dictionary对象之后，键值为0,1,2...，也就是原数组的下标
  36.                 that.assign "b",POP_MVC.Arr.toDict( a )
  37.                
  38.                
  39.         end sub
  40. End Class
  41. %>
复制代码

回复

使用道具 举报

admin

670

主题

785

帖子

8373

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
8373
沙发
 楼主| 发表于 2019-4-1 15:47:55 | 只看该作者
POP_MVC.Arr.toDict(xxx)  把xxx从数组对象 转换为 Dictionary类型数据
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|5ucms.com

GMT+8, 2025-10-31 16:57 , Processed in 0.031250 second(s), 29 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表