落伍者站长论坛 » 新人交流投稿(入伍区) » 站长知道(解答积分) » 急，ASP分页问题，在线等！

lipeng510 发表于 2008-5-9 17:27

急，ASP分页问题，在线等！

大家看看我这个为什么记录不循环呢，循环的全是第一条记录，其余的记录不循环！


<% set rs=server.createobject("adodb.recordset")
sql="select * from Tx_Guest order by Guest_Id desc"
rs.open sql,conn,3
lysh=rs("Guest_Flag")
lybm=rs("Guest_Pass")
lyimg=rs("Guest_Face")
lymz=rs("Guest_Add")
lydh=rs("Guest_Tel")
lyyx=rs("Guest_Email")
lybt=rs("Guest_Title")
lysj=rs("Guest_Date")
lynr=rs("Guest_Content")
lyglsj=rs("Guest_AdminDate")
lyglnr=rs("Guest_AdminContent")
rs.pagesize=2
if request("page")<>"" then
  epage=cint(request("page"))
   if epage<1 then epage=1
   if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage
%>
<%
for i=0 to rs.pagesize-1
if rs.bof or rs.eof then exit for
%>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0" class="zgbk">
        <tr>
<td width="193" height="188" rowspan="2" align="center" valign="middle" class="sbk"><table width="100%" border="0" cellspacing="0" cellpadding="0">
   <tr>
     <td height="163" align="center" valign="middle"><table width="93" height="90" border="0" cellpadding="0" cellspacing="0">
       <tr>
         <td align="center" valign="top"><img src="<%=lyimg%>" /></td>
       </tr>
     </table>
       <table width="160" border="0" cellspacing="0" cellpadding="0">
         <tr>
           <td align="center" valign="middle"><b><%=lymz%></b><br />
                   电话：<%
                   if lysh=1 and lybm=0 then response.write(lydh) Else  response.write("电话正在审核中！")
                   %><br />
                   E-MAIL：<%
                   if lysh=1 and lybm=0 then response.write(lyyx) Else  response.write("邮箱正在审核中！")
                   %></td>
         </tr>
       </table></td>
   </tr>
</table>
   <br /></td>
          <td width="607" height="42" align="left" valign="middle" class="sbk1">&nbsp;&nbsp;标题：<b><%=lybt%></b><br />
          &nbsp;&nbsp;时间：<%=lysj%></td>
        </tr>
        <tr>
          <td height="123" align="left" valign="top" class="sbk2"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td align="left" valign="top">
                          <%
                   if lysh=1 and lybm=0 then response.write(lynr) Else  response.write("内容正在审核中！")
                   %>
                          </td>
            </tr>
          </table>                  
            <%
                   if lysh=1 and lybm=0 and lyglnr<>"" then response.write("<table width='90%' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td bgcolor='#FFFFFF' class='sbk3'><table width='98%' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td align='left' valign='top'><font color='#5581D2'>管理员回复：</font><br /><font class='glsj'>"&lyglsj&"</font><p><font class='glhf'>"&lyglnr&"</font></p></td></tr></table></td></tr></table>") Else  response.write("")
                   %></td>
        </tr>
      </table>

<%
rs.movenext()
next
%>
<p align="center">
<a href="">首页</a>&nbsp;
<a href="ly.asp?page=<%=epage-1%>">前一页</a>&nbsp;
<a href="ly.asp?page=<%=epage+1%>">后一页</a>&nbsp;
<a href="ly.asp?page=<%=rs.pagecount%>">末页</a>
</p>
<p align="center">现在是第<%=epage%>页一共有<%=rs.pagecount%>页</p>

       
        <%
Rs.close
Set Rs=Nothing
%>

ebook 发表于 2008-5-9 23:17

看得晕:cool:

联盟大全 发表于 2008-5-9 23:49

把错误也贴出来啊  ]]

这么长     看着很难受的

jesses 发表于 2008-5-12 22:53

rs.open sql,conn,1,1

查看完整版本: 急，ASP分页问题，在线等！