|
<%set rs=server.createobject("adodb.recordset")
sql="select * from SW_article where channelid=21 order by articleid desc" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "暂无内容" else '分页的实现 listnum=15 Rs.pagesize=listnum page=Request("page") if (page-Rs.pagecount) > 0 then page=Rs.pagecount elseif page = "" or page < 1 then page = 1 end if Rs.absolutepage=page '编号的实现 j=rs.recordcount j=j-(page-1)*listnum i=0 nn=request("page") if nn="" then n=0 else nn=nn-1 n=listnum*nn end if%> <%do while not rs.eof and i<listnum n=n+1%> 内容 <%rs.movenext
i=i+1 j=j-1 loop %> 分页 <form method=Post action="news.asp" style="font-size:12px; color:#ccc;"> <%filename="news.asp"%> <%=Rs.recordcount%> 条文章 <%=listnum%> 条文章/页 共 <%=Rs.pagecount%> 页 <% if page=1 then %> <%else%> <a href=<%=filename%>><B>|<<</B></a> <a href=<%=filename%>?page=<%=page-1%>><B><<</B></a> <a href=<%=filename%>?page=<%=page-1%>><b>[<%=page-1%>]</b></a> <%end if%> <% if Rs.pagecount=1 then %> <%else%> <b>[<%=page%>]</b> <%end if%> <% if Rs.pagecount-page <> 0 then %> <a href=<%=filename%>?page=<%=page+1%>><b>[<%=page+1%>]</b></a> <a href=<%=filename%>?page=<%=page+1%>><B>>></B></a> <a href=<%=filename%>?page=<%=Rs.pagecount%>><B>>>|</B></a> <%end if%> <input type='text' name='page' size=4 maxlength=10 value="<%=page%>"> <input type='submit' value='转到' name='cndok'> <%end if rs.close set rs=nothing %> </form> |