如何改成分页的代码

2025-03-09 08:26:32

推荐回答（1个）

回答1：

<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql ="Select * From content where fenlei='国际国内新闻' Order By id DESC"
RS.open sql,Conn,2,2
rs.pagesize=14'一页显示的行数，具体一页多少行，改14即可
zongye=rs.pagecount
page=int(request("page"))
if page<=0 then
page=1
end if
if request("page")=" " then
page=1
end if
rs.absolutepage=page
%>
<% for i=1 to rs.pagesize
if rs.eof then
exit for
end if%>

" class="style17">

<%if len(rs.Fields.Item("biaoti").Value)>18then
response.Write left(rs.Fields.Item("biaoti").Value,18)&"......"
else
response.Write rs.Fields.Item("biaoti").Value
end if %>

<%=year(rs("shijian"))%>-<%=month(rs("shijian"))%>-<%=day(rs("shijian"))%>

<%
rs.movenext
next
rs.close
conn.close
%>

<% if page=1 and not page=zongze then %>
第一页 | 上一页 |
下一页
| 最后页
<%elseif page<>1 and not page=zongye then %>
第一页
| 上一页
| 下一页
| 最后页
<%elseif page=zongye then%>
第一页
| 上一页
| 下一页 | 最后页
<%end if%>