Posted on 2008-04-27 10:53
lxasp 阅读(558)
评论(1) 编辑 收藏 引用 所属分类:
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
%>