<%
'输出新闻循环内容
Dim Page,Result,Nav,i,SqlWhere
Set Page = new Cls_Page
Set Page.Conn = Easp.db.Conn
With Page
.PageSize = 20
.PageParm = "p"
.Database = "ac"
.Pkey="id"
.Field="id,news_title,content,createTime"
.Table="news"
.Condition= "news_type=0"
.OrderBy="createTime desc"
.RecordCount = 0
.NumericJump = 2
.Template = "{$FirstPage} {$PreviousPage} {$NumericPage} {$NextPage} {$LastPage}"
.FirstPage = "第一页"
.PreviousPage = "上一页"
.NextPage = "下一页"
.LastPage = "最后一页"
.NumericPage = " {$PageNum} "
End With
Result = Page.ResultSet()
nav = Page.Nav()
If IsNull(Result) Then
Easp.WE("- No Records
")
Else
For i=0 To Ubound(Result,2)
idData = Result(0,i)
news_title = Result(1,i)
content = Result(2,i)
createTime = Result(3,i)
Easp.W("- "&formatdatetime(createTime,2)&""&news_title&"
")
Next
end if
%>
<%
'输出分页信息
if Easp.Has(Result) then
Easp.W("
"&nav&"
")
end if
%>