<% dim i,intPage,page,pre,last,filepath set rs=server.CreateObject("adodb.recordset") sql="select top 12 id,title,convert(varchar(10),datetime,20) as datetime from one_table order by id desc" rs.open sql,conn,1,1 do while not rs.eof
rs.PageSize = 12 rs.CursorLocation = 3 rs.Open sql,conn,0,2,1 pre = true last = true page = trim(Request.QueryString("page"))
if len(page) = 0 then intpage = 1 pre = false else if cint(page) = < 1 then intpage = 1 pre = false else if cint(page) >= rs.PageCount then intpage = rs.PageCount last = false else intpage = cint(page) end if end if end if if not rs.eof then rs.AbsolutePage = intpage end if
%>
<% for i=1 to rs.PageSize if rs.EOF or rs.BOF then exit for %> <tr> <td width="356" class="newscon"> <a target="_blank" href="show.asp?id= <%=trim(rs("id"))%>"> <%if len(trim(rs("title")))>20 then response.Write left(trim(rs("title")),20) response.Write "..." else response.Write trim(rs("title")) end if %> </a> </td>
<% dim i,intPage,page,pre,last,filepath set rs=server.CreateObject("adodb.recordset") sql="select top 12 id,title,convert(varchar(10),datetime,20) as datetime from one_table order by id desc" rs.open sql,conn,1,1 do while not rs.eof
rs.PageSize = 12 rs.CursorLocation = 3 rs.Open sql,conn,0,2,1 pre = true last = true page = trim(Request.QueryString("page"))
if len(page) = 0 then intpage = 1 pre = false else if cint(page) = < 1 then intpage = 1 pre = false else if cint(page) >= rs.PageCount then intpage = rs.PageCount last = false else intpage = cint(page) end if end if end if if not rs.eof then rs.AbsolutePage = intpage end if
%>
<% for i=1 to rs.PageSize if rs.EOF or rs.BOF then exit for %> <tr> <td width="356" class="newscon"> <a target="_blank" href="show.asp?id= <%=trim(rs("id"))%>"> <%if len(trim(rs("title")))>20 then response.Write left(trim(rs("title")),20) response.Write "..." else response.Write trim(rs("title")) end if %> </a> </td>
