Home > News

News
    <% '输出新闻循环内容 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=1" .OrderBy="createTime desc" .RecordCount = 0 .NumericJump = 2 .Template = "{$FirstPage} {$PreviousPage} {$NumericPage} {$NextPage} {$LastPage}" .FirstPage = "First" .PreviousPage = "Previous" .NextPage = "Next" .LastPage = "Last" .NumericPage = " {$PageNum} " End With Result = Page.ResultSet() nav = Page.Nav() If IsNull(Result) Then Easp.W("
  • 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 %>
<% set Easp = nothing %>