怎么用ASP循环输出表格

1、asp循环一般分for循环和while循环，
2、想要输出几个表格直接使用中间变量赋值下，通过for循环输出，
例如：输出5个表格

<%for i = 0 to 5 %>

<% =i %>

<% next%>

请输入数字：" />

请输入表格每行单元格个数：" />

<%
if request.Form("table")="yes" then
if IsNumeric(request.Form("td")) then
td=int(request.Form("td"))
if td>0 then
if IsNumeric(request.Form("num")) then
num=int(request.Form("num"))
tr=int(num/td)+1
response.Write("")
do while tr>0
response.Write("")
td_tmp=td
do while td_tmp>0
if num>0 then
response.Write("")
else
response.Write("")
end if
num=num-1
td_tmp=td_tmp-1
loop
response.Write("")
tr=tr-1
if num<=0 then
exit do
end if
loop
response.Write("")
else
response.Write("

请输入要生成的数字

")
end if
else
response.Write("

单元格个数必须大于0

")
end if
else
response.Write("

单元格个数必须输入数字

")
end if
end if
%>

<%do while i

<%
if i mod x=0 then
response.write""
loop
%>


其实像循环表格的方法最好用层来做，因为层会自动换行。

主要控制语句：<%If (i+1) mod 5=0 then Response.Write("")

下面是全部代码，数据库源需要自己更改，个别变量需要调整：

<%page=request("page")
PageSize =80
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql= "SELECT * FROM dbo.Famous ORDER BY ID ASC"
Rs.open Sql,conn,1,1
rs.PageSize = PageSize
totalfilm=rs.recordcount
pgnum=rs.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then rs.AbsolutePage=page
if rs.eof or rs.bof then
response.write "

还没有任何记录！

"
else
count=0
i=0
do while not (rs.eof or rs.bof) and count

<%If (i+1) mod 5=0 then Response.Write("")
rs.movenext
count=count+1
i=i+1
loop
end if%>

)"><%=Rs("Name")%>