dreamweaver中分页

Question

如一个页面中有多条内容要显示，需要分成若干页，怎样才能让其显示如第1页，2。3。4，上一页，下一页这样，请各位前辈不吝赐教

Answer 1

<span style="line-height:200%;">
<%
set rs=server.createobject("adodb.recordset")
sqltxt="select * from news where lm='122' and sh=1 order by ontop desc,id desc"
rs.open sqltxt,conn,1,1
if rs.recordcount=0 then
response.write "<div align='center'><br><br>暂无内容</div>"
else
p=cint(request("page"))
rs.pagesize=22

if p>rs.pagecount then
p=rs.pagecount
end if
if p<=0 then
p=1
end if
x=0
rs.move (p-1)*rs.pagesize
do while rs.eof=false and x<rs.pagesize
title=mid(rs("title"),1,50)
if len(title)<50 then
else
title=title&"..."
end if
lm2=rs("lm2")
if lm2=0 then
set rs2=server.createobject("adodb.recordset")
sqltxt="select * from lm where id="&rs("lm")
rs2.open sqltxt,conn,1,1
response.write "·["&rs2("lm")&"]"
else
set rs2=server.createobject("adodb.recordset")
sqltxt="select * from lm where id="&rs("lm2")
rs2.open sqltxt,conn,1,1
response.write "·["&rs2("lm2")&"]"
end if
response.write "　<a href=news_content.asp?id="&rs("id")&" target=_blank>"&title&"</a> (点击:"&rs("hit")&"　"&rs("time")&")<br>"
rs.movenext
x=x+1
loop
%>
</span>
<table width="531" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="531" height="36" align="center" valign="top"><span style="line-height:150%;">
<%
for i=1 to rs.pagecount
if p<>i then
%>
<a href="information.asp?page=<%=i%>&lm=<%=request("lm")%>&lm2=<%=request("lm2")%>"><%=i%></a>
<%
else
%>
<%=i%>
<%
end if
next
%>

</span><span style="line-height:150%;">共有<%=rs.recordcount%>条记录|分<%=rs.pagecount%>页显示|当前是<%=p%>页|每页显示<%=rs.pagesize%>条记录</span></td>
</tr>
<%end if%>
</table>

Answer 2

可以用分页插件，下载地址为： http://www.ty502.com/faq_1468.html