asp循环行数输出函数-巨人网络通讯

经过大鸟哥的指导已做全面的修改，本人能力有限只能做到下面这步了：

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     
%> 

您可能感兴趣的文章:

详细讲解ASP脚本循环语句
asp经常被忽视的一种死循环
asp下循环一行多少个
asp.net for循环语句
asp.net使用for循环实现Datalist的分列显示功能
asp.net下无法循环绑定投票的标题和选项的解决方法
asp.net中for和do循环语句用法分享
asp中用for循环的一个小技巧
asp中for循环的使用方法
asp循环语句总结

全 部 栏 目

全部栏目