高考问答我给妈妈洗脚400字感动:一个循环程序该怎么写，请进来看！
来源：百度文库 编辑：高考问答 时间：2024/04/28 03:23:14
<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select name from variables order by name"
rs.open sql,conn,3,2
%>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<%
while not rs.eof
%>
<tr>
<%for i=0 to rs.fields.count-1%>
<td><%=rs(i)%></td>
<%next%>
</tr>
<%
rs.movenext
wend
%>
</table>
<!--#include file="conclose.asp"-->
这样只能弄一个单元格，一行一行的写下去，但我想让它一行显示5－6个数据，也就是5-6个单元格，如果我按<td><%=rs(0)%></td><td><%=rs(1)%></td>……的方式排下来根本不现实，况且以后数据还要不断的添加中，所以我想只能用循环，但实在不知道该如何去循环这样的句子
<!--#include file="conn.asp"-->
<%
dim vara,varb
set rs=server.CreateObject("adodb.recordset")
sql="select name from variables order by name"
rs.open sql,conn,3,2
vara=5 '表示一行显示5个单元格
varb=0 '用来统计显示多少行
if (rs.recordcount mod vara)=0 then '如果查出来的总记录数除以5的余数为0
varb=rs.recordcount/vara '则显示的行数就是总记录数除以5的值
else
varb=int(rs.recordcount/vara)+1 '否则就是除以5后再加 1
end if
%>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<%
for i=1 to varb '表示循环的行数
if rs.eof then '这个是用来判断是否循环到记录末尾了，如果是就退出循环
exit for
end if
%>
<tr>
<%
for z=1 to vara '表示循环5次，即是一行显示5个单元格
if rs.eof then
exit for
end if
%>
<td><%=rs("name")%></td>
<%
rs.movenext
next
%>
</tr>
<%
next
rs.close
set rs=nothing
%>
</table>