5、POPASP快速入门第五课 数据库操作（二）

admin

index.asp

1. <%
   
2. ' 本类由系统自动生成，仅供测试用途
   
3. Class IndexAction
   
4.     public Sub index()
   
5.                 dim rs
   
6.                 '通过数据模型从数据库中取出一条记录
   
7.                 'set rs = M_("post").db.where(5).field("id,title").find()               
   
8.                 'set rs = M_("post").db.field("id,title,add_time").select()
   
9.                 'var_export rs
   
10.                
    
11.                 set rs = M_("post").db.page( array(null,10) ).field("id,title,add_time").select()
    
12.                 'set rs = M_("post").db.page(null,10).field("id,title,add_time").select() 'null,10 中的null指当前页，可以不加array
    
13.                 'set rs = M_("post").db.top(10).field("id,title,add_time").select() '取前10条记录
    
14.                
    
15.                 that.assign "list",array(rs) '这里如果加array是获取当前页记录，就是上边填的10；如果不加array，直接写 that.assign "list",rs 就是获取全部记录了。
    
16.     end Sub
    
17.        
    
18.         public sub post  
    
19.                 dim id
    
20.                
    
21.                 'that.get是request.querystring的一种简写
    
22.                 id = that.get("id")
    
23.                
    
24.                 set rs = M_("post").db.field("id,title,add_time,content").where(id).find() '.field("id,title,add_time,content") 这句可以去掉的，如果你本来就想调用指定表的全部字段，或是字段并身就不多的话。去掉就调用所有字段。
    
25.                
    
26.                 that.assign "row",rs
    
27.                
    
28.                 var_export M_("post")
    
29.         end sub
    
30. End Class
    
31. %>

复制代码

IndexAction.class.asp

1. <%
   
2. ' 本类由系统自动生成，仅供测试用途
   
3. Class IndexAction
   
4.     public Sub index()
   
5.                 dim rs
   
6.                 '通过数据模型从数据库中取出一条记录
   
7.                 'set rs = M_("post").db.where(5).field("id,title").find()               
   
8.                 'set rs = M_("post").db.field("id,title,add_time").select()
   
9.                 'var_export rs
   
10.                
    
11.                 set rs = M_("post").db.page( array(null,10) ).field("id,title,add_time").select()
    
12.                 'set rs = M_("post").db.page(null,10).field("id,title,add_time").select() 'null,10 中的null指当前页，可以不加array
    
13.                 'set rs = M_("post").db.top(10).field("id,title,add_time").select() '取前10条记录
    
14.                
    
15.                 that.assign "list",array(rs)
    
16.     end Sub
    
17.         
    
18.         public sub post
    
19.                 dim id
    
20.                
    
21.                 'that.get是request.querystring的一种简写
    
22.                 id = that.get("id")
    
23.                
    
24.                 set rs = M_("post").db.field("id,title,add_time,content").where(id).find()
    
25.                
    
26.                 that.assign "row",rs
    
27.                
    
28.                 var_export M_("post")
    
29.         end sub
    
30. End Class
    
31. %>

复制代码