6、POPASP快速入门第六课数据集分页 - 5ucms论坛

<%
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>

复制代码

<%
' 本类由系统自动生成，仅供测试用途
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
%>

复制代码