UC知道如何改成分页的代码
来源：百度知道 编辑：UC知道 时间：2024/05/29 17:48:14
<tr >
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql ="Select * From content where fenlei='国际国内新闻' Order By id DESC"
RS.open sql,Conn,2,2
do while not rs.eof
%>
<TD width="13" height=25> </TD>
<TD width="355" vAlign=top><a href="read.asp?id=<%=RS("id")%>" class="style17"><li><%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 %></li>
</a> </TD>
<td width="124" valign="top"><table width="100%" border="0" cellpadding="0" cell
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql ="Select * From content where fenlei='国际国内新闻' Order By id DESC"
RS.open sql,Conn,2,2
do while not rs.eof
%>
<TD width="13" height=25> </TD>
<TD width="355" vAlign=top><a href="read.asp?id=<%=RS("id")%>" class="style17"><li><%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 %></li>
</a> </TD>
<td width="124" valign="top"><table width="100%" border="0" cellpadding="0" cell
<%
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%>
<tr >
<TD width="13" height=25> </TD>
<TD width="355" vAlign=top><a href="read.asp?id=<%=RS("id")%>" class="style17"><li><%if len(rs.Fields.Item("biaoti").Value)>18then
response.Write left(rs.Fields.Item("biaoti").Value,18)&"......"
else
response.Write rs.Fiel