|  | 
 
| 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
 
 post部分和上节一致,略复制代码<%
' 本类由系统自动生成,仅供测试用途
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
%>
 | 
 |