UC知道ASP分页显示 谁能给我改下
来源：百度知道 编辑：UC知道 时间：2024/09/24 07:25:52
谁能给我改成分页显示啊 谢谢了 能显示就可以 我实在搞不明白了
<%
Dim rspl,sqlpl
Set rspl=server.createobject("adodb.recordset")
sqlpl="select * from "&GuTablePrefix&"_Pl where NewID="&ID&" order by ArticleID desc"
rspl.open sqlpl,conn,1,1
if rspl.bof and rspl.eof then
response.write "<font class=style3>没有相关信息</font>"
else
do while not rspl.eof
%>
<TABLE cellSpacing=1 cellPadding=1 width="100%" border=0>
<TBODY>
<TR>
<TD> <img src="newinc/line.gif"> </td>
<TD width="80%" height=20>
<A href="readone.asp?ID=<%=rspl("ArticleID")%>&NewAsSortID=<%=rspl("NewAsSortID")%>&NewID=<%=rspl("NewID")%>" title="<%=rspl("ArticleTitle")%> <%=rspl("ArticleDate")%>" target=_blank>
<%
Dim rspl,sqlpl
Set rspl=server.createobject("adodb.recordset")
sqlpl="select * from "&GuTablePrefix&"_Pl where NewID="&ID&" order by ArticleID desc"
rspl.open sqlpl,conn,1,1
if rspl.bof and rspl.eof then
response.write "<font class=style3>没有相关信息</font>"
else
do while not rspl.eof
%>
<TABLE cellSpacing=1 cellPadding=1 width="100%" border=0>
<TBODY>
<TR>
<TD> <img src="newinc/line.gif"> </td>
<TD width="80%" height=20>
<A href="readone.asp?ID=<%=rspl("ArticleID")%>&NewAsSortID=<%=rspl("NewAsSortID")%>&NewID=<%=rspl("NewID")%>" title="<%=rspl("ArticleTitle")%> <%=rspl("ArticleDate")%>" target=_blank>
<%
Dim rspl,sqlpl
Set rs=server.createobject("adodb.recordset")
sqlpl="select * from "&GuTablePrefix&"_Pl where NewID="&ID&" order by ArticleID desc"
rs.open sqlpl,conn,1,3
n=rs.RecordCount
rs.pagesize=10'定义每页显示的总数
m=cint(rs.pagecount)
if page="" then
page=1
elseif page<1 then
page=1
end if
if cint(page)>m then
page=m
end if
page=cint(page)
if not rs.eof then
rs.absolutepage=page
end if
if rs.bof and rs.eof then
response.write "<font class=style3>没有相关信息</font>"
else
%><style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.st_page{font-size:14px; color:#FFFFFF; border:1px solid #CCCCCC;TEXT-ALIGN: center;width:20px;}
.st_page_o{font-s