asp循环行数输出函数

2008-07-25 23:54:43 作者：

一直以来都很头疼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循环行数输出函数

您可能感兴趣的文章: