现代艺术学院

<% Set rs = Server.CreateObject("ADODB.RecordSet") StrSql = "SELECT * FROM NewsF ORDER BY IDF DESC" rs.Open StrSql,Conn,1,1 if not (rs.bof and rs.eof) then rs.PageSize = 10 PageNO = Request.QueryString("PageNO") if PageNO + 1 > rs.PageCount then PageNO = rs.PageCount if PageNO = "" then PageNO = 1 if PageNO < 1 then PageNO = 1 rs.AbsolutePage = PageNO %>

<% for i=1 to rs.PageSize %> <% if i mod 2 =0 then %> <% else Response.Write("") %> <% end if %>

" target="_blank"> <% if len(rs("TitleF")) > 26 then TitleF = Left(rs("TitleF"),26)+"......" Response.Write(TitleF) else Response.Write(rs("TitleF")) end if %>

<%'= Year(rs("TimeF")) %> <%'= Month(rs("TimeF")) %> <%'= Day(rs("TimeF")) %>

<% rs.MoveNext if rs.eof then exit for next %>

返回首页>>

第一页

最后一页

<% end if rs.Close Set rs = Nothing Set Conn = Nothing %>