杭州交通信息网捷豹fpace怎么样:ASP中的一个循环语句(VB)，我不会大家帮帮忙
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/04 12:39:49
我想实现的是循环一个表格，一行有四个格，也就是说一行满四个格的时候，到下一行自在写入四个格，一共20行，我应该怎么写？？？？？
<%
do while not rs.EOF
%>
<td width="140" height="30" bgcolor="#FFE1EE"><a href="<%=rs("url")%>"><%=rs("name")%></a></td>
<%
rs.MoveNext
loop
%>
但是我其实不想循环一行表格，我想循环一个表格，每个表格都是从数据库读取出来的字段
<%
do while not rs.EOF
%>
<td width="140" height="30" bgcolor="#FFE1EE"><a href="<%=rs("url")%>"><%=rs("name")%></a></td>
<%
rs.MoveNext
loop
%>
但是我其实不想循环一行表格，我想循环一个表格，每个表格都是从数据库读取出来的字段
<%
Dim iCount
iCount = 0
do while not rs.EOF
if iCount mod 4 = 0 then
%>
<table>
<%
end if
%>
<td width="140" height="30" bgcolor="#FFE1EE"><a href="<%=rs("url")%>"><%=rs("name")%></a></td>
<%
if iCount > 0 and iCount mod 4 = 3 then
%>
</table>
<%
end if
rs.MoveNext
iCount = iCount + 1
loop
%>
<tabel>
<%
dim i as integer
i=1
do while i<=20
response.write(<td></td><td></td><td></td><td></td><tr>)
loop
%>
</table>