有问题大家解决，希望大家支持我，我的主页是：http://websamba.com/22644492 ,希望大家多多访问我的主页，帮我宣传宣传，我很乐于和大家交个朋友，谢谢!我的邮箱是lxj19840308@163.com,本站提供免费留言本申请及下载，希望大家支持，谢谢！我在一大网络公司工作，有问题可以问我，如果我知道的，一定和大家分享！ <% dim ipage,adCmdTable,p,i p=20 set rs=server.createobject("adodb.recordset") rs.open "select * from zf where id<>"&id&" order by id desc",conn,1,3,adCmdTable dim page page=request("page") if page=0 then ipage=1 else ipage=page end if if not rs.eof then rs.PageSize =p rs.AbsolutePage= ipage for i=1 to rs.PageSize If rs.eof Then Exit For %> <tr> <td align="center" bgcolor="#EEF3F9"> <p align="left">&nbsp; <a href="index.asp?id=<%=rs("id")%>">标题:<%=rs("zftitle")%></a><font color="#ADADAD">(第<%=rs("zfnum")%>期)</font></td> </tr>

<% 'rs.movenext 'loop 'set sql=nothing %> <% rs.movenext next end if %> <tr> <td align="center" bgcolor="#E8EFF7" colspan="4"> <p align="center">共<font color="#FF0000"><%=xxcount(0)-1%></font>条信息 　每页最多<font color="#FF0000"><%=p%></font>&nbsp; <%if ipage=1 then%> <font color="#FF0000"> <%=ipage%></font>/<%=rs.PageCount%>页 <%else%> <font color="#FF0000"> <%=ipage%></font>/<%=rs.PageCount%>页 <a target="_self" href="?page=<%=ipage-1%>&id=<%=id%>">上一页</a> <%end if%> <%if cint(ipage)=cint(rs.pagecount) or rs.PageCount=0 then%> <%else%> <a target="_self" href="?page=<%=ipage+1%>&id=<%=id%>">下一页</a> <%end if%> 第<%for i=1 to rs.pagecount%> <a target="_self" href="?page=<%=i%>&id=<%=id%>">[<%=i%>]</a> <%next%>页</p>