Question

怎么用ASP循环输出表格

用do while和if语句做出
首先有一个表单来接收输入的数字
在一个无背景的大表格中，根据输入的数字，在同一行输出相应个数的，大小相等的有背景的小表格。
每行最多X个小表格，超过X就自动换行。

Answer 1

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

<%for i = 0 to 5 %>
<table>
<tr><td><% =i %></td></tr>

</table>

<% next%>

Answer 2

<form id="form1" name="form1" method="post" action="">
<p>请输入数字：<input type="text" name="num" id="num" value="<%=request.Form("num")%>" /></p>
<p>请输入表格每行单元格个数：<input name="td" type="text" id="td" value="<%=request.Form("td")%>" /></p>
<p>
<input type="submit" name="button" id="button" value="提交" />
<input name="table" type="hidden" id="table" value="yes" />
</p>
</form>
<%
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("<table width=""100%"" border=""1"">")
do while tr>0
response.Write("<tr>")
td_tmp=td
do while td_tmp>0
if num>0 then
response.Write("<td bgcolor=""#0066CC""> </td>")
else
response.Write("<td> </td>")
end if
num=num-1
td_tmp=td_tmp-1
loop
response.Write("</tr>")
tr=tr-1
if num<=0 then
exit do
end if
loop
response.Write("</table>")
else
response.Write("<p>请输入要生成的数字</p>")
end if
else
response.Write("<p>单元格个数必须大于0</p>")
end if
else
response.Write("<p>单元格个数必须输入数字</p>")
end if
end if
%>

Answer 3

<table>
<tr>
<%do while i<request("数字")+1%>
<td bgcolor="#000"></td>
<%
if i mod x=0 then
response.write"</tr>"
loop
%>
</tr>
</table>
其实像循环表格的方法最好用层来做，因为层会自动换行。

Answer 4

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

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

<table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<%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 "<br><br><p align=center><font color=red>还没有任何记录！</font></p>"
else
count=0
i=0
do while not (rs.eof or rs.bof) and count<rs.PageSize%>
<td height="25" bgcolor="#F7FBEF">    <a href="Javascript:Show(<%=Rs("ID")%>)"><%=Rs("Name")%></a></td>
<%If (i+1) mod 5=0 then Response.Write("</tr><tr>")
rs.movenext
count=count+1
i=i+1
loop
end if%>
</table>