|
index.asp 此节学习分页功能,就是常见的页码1 2 3 4的显示
- <!--#include file="./popasp_inc.asp"-->
- <%
- Call A_("Index/index")
- dim key,item
- %>
- <html>
- <head>
- <title>数据模型(二)</title>
- </head>
- <body>
- <ul>
- <% for each key in V_("list") : set item = V_("list")(key)%>
-
- <li><a href="post.asp?id=<%=item("id")%>"><%=item("title")%></a><span><%=item("add_time")%></span></li>
-
- <% next %>
- </ul>
- <%=V_("page")%>
- </body>
- </html>
复制代码
IndexAction.class.asp
- <%
- ' 本类由系统自动生成,仅供测试用途
- Class IndexAction
- public Sub index()
- dim rs , range
- '通过数据模型从数据库中取出一条记录
- 'set rs = M_("post").db.where(5).field("id,title").find()
- 'var_export rs
-
- set rs = M_("post").db.page( array(null,10) ).field("id,title,add_time").select()
- that.assign "page",P_("PAGE")(rs).show() '分页类P_("PAGE") 函数 这条必须在下方的list之前显示,不然会错乱哟
- that.assign "list",array(rs)
- end Sub
-
- public sub post
- dim id
-
- 'that.get是request.querystring的一种简写
- id = that.get("id")
-
- set rs = M_("post").db.field("id,title,add_time,content").where(id).find()
-
- that.assign "row",rs
-
- var_export M_("post")
- end sub
- End Class
- %>
复制代码 post部分和上节一致,略 |
|