% dim sql,rst sql = "select * from zuopin where 1=1 " if Request.QueryString("type") <> "" Then sql = sql&" and type = '"&Request.QueryString("type")&"' " End if orderstr=" order by id desc" sql=sql&orderstr set rst=server.CreateObject("ADODB.RecordSet") //注:必须用open方法打开,conn.execute的不行 rst.open sql,conn,1,1 dim myPagination set myPagination =new pagination myPagination.pageSize =12 mypagination.pageListCount =10 myPagination.setValue(rst) set rst =myPagination.rst %>
|
![]() |
|
||||||||||||||||||||||||||||||||||||||||||||||||
| 首 页 | 关于我们 | 新闻动态 | 成功案例 | 素材下载 | 联系我们 |
| 在线服务(QQ): 青岛市国彩通信工程技术服务有限公司 Copyright(c) 2003-2008 qdguocai.Com. All Rights Reserved . 服务范围:青岛网站建设、网页设计、平面设计、flash动画、软件开发销售、海缆工程技术咨询 业务合作:guocai_seanetwork@163.com |