¸ßÊÖ°ïÎÒ¿´¿´·ÖÒ³´íÔÚÄÄÀÔÚÏßµÈ

ÏôʮһÀÉ

<!--#include file="head.asp"--> <table width="100%" height="100%" border=0 cellpadding=0 cellspacing=0 align=center> <tr><td colspan=2> <table width="100%" height=100% border=0 cellpadding=0 cellspacing=0 align=center> <tr><td align=center background="pic/zxq.jpg" width=140> &nbsp; </td></tr> </table></td><td valign=top> <table width="540" border="0" align="center" valign="top" cellspacing=0 cellpadding=0 class=1 style=word-break:break-all> <%Dim ipagecount Dim ipagecurrent Dim strorderBy Dim irecordsshown if request.querystring("page")="" then ipagecurrent=1 else ipagecurrent=cint(request.querystring("page")) end if Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM zp ORDER BY id asc" rs.pagesize = 8 rs.cachesize = 8 MaxPage=8 rs.open sql,conn,1,1 ipagecount = rs.pagecount If ipagecurrent > ipagecount Then ipagecurrent = ipagecount If ipagecurrent < 1 Then ipagecurrent = 1 if ipagecount=0 then response.write "<tr><td align='center'>ÔÝʱûÓÐ</td></tr>" else rs.absolutepage = ipagecurrent irecordsshown = 0 do while irecordsshown<MaxPage and NOT rs.EOF%> <tr><%for i=1 to 4%> <td width='25%' height="155"><table border='0' align="center" cellpadding='0' cellspacing='0' style='width: 99'><tr> <td align='center' bgcolor='#EEEEEE' style='height: 99'> <%if rs.eof then%> ÔÝʱûÓÐ <%else%> <%=rs("title")%><br><%=rs("word")%><%irecordsshown = irecordsshown +1 end if%> </td></tr></table></td> <%rs.movenext next%> </tr> <%loop%> <tr> <td height='20' align='center' colspan='4'>ÿҳÏÔʾ <%=MaxPage%> ÕÅͼƬ µÚ<font color="#FF0000"><%=ipagecurrent%></font>/<%=ipagecount%>Ò³ <%if ipagecurrent=1 then else Response.Write"<a href='?page=1' class='red'>Ê×Ò³</a> | " Response.Write"<a href='?page="&ipagecurrent-1&"' class='red'>ÉÏÒ»Ò³</a> | " end if if ipagecount>ipagecurrent then Response.Write"<a href='?page="&ipagecurrent+1&"' class='red'>ÏÂÒ»Ò³</a> " Response.Write"| <a href='?page="&ipagecount&"' class='red'>Ä©Ò³</a> " end if%> </td></tr> <%end if rs.Close set rs=nothing%> </td></tr></table> <!--#include file="foot.asp"--> ============================================================== ³ö´íÌáʾ£º ´íÎóÀàÐÍ£º ADODB.Recordset (0x800A0BCD) BOF »ò EOF ÖÐÓÐÒ»¸öÊÇ¡°Õ桱£¬»òÕßµ±Ç°µÄ¼Ç¼Òѱ»É¾³ý£¬ËùÐèµÄ²Ù×÷ÒªÇóÒ»¸öµ±Ç°µÄ¼Ç¼¡£ /zuopin/index.asp, µÚ 43 ÐÐ

¦á¤ÚÓêäΨã

if rs.eof then
¸ÄΪ
if rs.eof or rs.bof then
¿´¿´

»ð¼ýͲ¦î$¨|

»¹ÊÇÒ»ÑùµÄ´íÎó

Â̲è

ÄãµÄµÚ43ÐÐÊÇÄÇÒ»Ðа¡

µØ¹Ï

лл2Â¥µÄ°ïæ

ÎÒÒѾ­½â¾öÎÊÌâÁË

°Ñ
&lt;%rs.movenext
next%&gt;

¸Ä³É£º

&lt;%
rs.movenext
if rs.eof then exit for
next
%&gt;

¾Í¿ÉÒÔÁË

¡î¶¬³æ²Ý¡î

¹â¿´Â¥Ö÷µÄÂß¼­¾ÍºÜ»ìÂÒ

&lt;%if rs.eof then%&gt;
ÔÝʱûÓÐ
&lt;%else%&gt;
&lt;%=rs("title")%&gt;&lt;br&gt;&lt;%=rs("word")%&gt;&lt;%irecordsshown = irecordsshown +1
end if%&gt;
&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&lt;/td&gt;
&lt;%rs.movenext

Èç¹ûrs.eof ÁË£¬Ò²¾ÍÊÇÊä³öÔÝʱûÓÐÁË£¬rs.eof´ú±í²éѯÒѾ­µ½Á˽á⣬ÏÂÃæÔÙÀ´Ò»¸örs.movenext¿Ï¶¨»á³ö´íµÄ¡£

ÄãÔÚdo whileÖÐÓÖÓÃÁËfor...nextÑ­»·£¬²»ÖªµÀʲôÒâ˼¡£×ÜÖ®Âß¼­»ìÂÒ

timmy

@,@..ÍÛ~~` ×ß´íµØ·½À²~``