领星动网开发代码园地

http://www.cnitblog.com/lxasp/
IT博客 首页 新随笔 联系 聚合 管理
  21 Posts :: 0 Stories :: 27 Comments :: 0 Trackbacks
列表分页代码┅领星ASP开发平台(ACP框架┄ASP开发框架)
<!--#include file="acp/acp.asp"-->
<!--#INCLUDE FILE="acp/clsList.asp"-->
<!--#include file="config.asp"-->
<%

Response.Write ShowList()

ca.removeall

Function ShowList()
    Dim ls,t

    use.ls ls
    Set ls.Cache=ca
    If ls.Open("./tpl/default/list.htm") Then
        
        ls.PSize=20
        
        ls.SetRS(conn,"SELECT COUNT(*) FROM AE_Demo1")="SELECT ab_id, ab_title, ab_date FROM AE_Demo1 ORDER BY ab_date DESC"
        
        t=ls.Text
        
        If ls.HasErr Then
            zerr ls.GetErr
        End If
        
        t=Replace(t,"{=dirSKIN}","./tpl/default/")
        t=Replace(t,"{=info_runtimer}",GetTimer)
        t=Replace(t,"{=info_sqlcount}",sqlcount)
        t=Replace(t,"{=title}", GPV_site_name )
        
        
        ShowList=t
        
    Else
        
        Pause "打开模板失败"
        
    End If
    
End Function


%>
posted on 2008-04-27 10:53 lxasp 阅读(222) 评论(1)  编辑 收藏 引用 所属分类: ASP

Feedback

# re: 列表分页代码┅领星ASP开发平台(ACP框架┄ASP开发框架) 2009-09-05 21:04 ugg boots
ding  回复  更多评论
  


每天10分钟，轻松学英语
专题：iPad  jQuery  Chrome OS
博客园首页  IT新闻  程序员微博  招聘频道  学英语
标题  
姓名  
主页
验证码 *
内容(提交失败后,可以通过“恢复上次提交”恢复刚刚提交的内容)
 
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      
[使用Ctrl+Enter键可以直接提交]
Windows 7专题

相关链接: