asp循環行數輸出函數

2020-07-27 12:58:36

字體：大中小

來源：轉載

供稿：網友

經過大鳥哥的指導已做全面的修改，本人能力有限只能做到下面這步了：

ASP/Visual Basic代碼

復制代碼代碼如下:

<%          
Const p=6 '每頁2條          
set rs = server.createobject("adodb.recordset")          
sql = "Select * from show order by id Desc"         
rs.Open sql,conn,1          

i=0         
do while not rs.eof          
%>  <td align="center" height="98">         
    <a href="show.asp?id=<%=rs("id")%>">         
    <img src="<%=rs("pic")%>" width="150" height="98" alt="<%=rs("name")%>" /></a>         
  </td>      
<%      
If (i+1) Mod 3 =0 Then     
 Response.Write "</tr>"     
 If i<(p-1) Then Response.Write "<tr>"     
End If     
i=i+1      
if i>p then exit do      
rs.movenext      
Loop     
If i Mod 3 <>0 Then       
 For m=3-(i Mod 3) To 1 Step -1      
  response.write"<td> </td>"     
 Next     
 response.write"</tr>"     
End If       
If i = 3 Then     
 response.write" <td> </td><td> </td><td> </td></tr>"     
End if      
rs.close      
set rs=nothing      
%>    

之前的代碼未更改

復制代碼代碼如下:

<%      
Const p=6 '每頁2條      
set rs = server.createobject("adodb.recordset")      
sql = "Select * from show order by id Desc"     
rs.Open sql,conn,1      

i=1     
do while not rs.eof      
%>  <td align="center" height="98">     
    <a href="show.asp?id=<%=rs("id")%>">     
    <img src="<%=rs("pic")%>" width="150" height="98" alt="<%=rs("name")%>" /></a>     
  </td>     
<%      
if i mod 3 = 0 then      
Response.Write("</tr><tr>")      
end if      
i=i+1      
if i>p then exit do      
rs.movenext      
Loop      
rs.close      
set rs=nothing     
%> 