asp动态生成表格的问题
<%
Response.Write("<table border=0 cellpadding=0 cellspacing=1 bgcolor=#FF0000><tr>")
for i=1 to 51
Response.Write("<td bgcolor=#FFFFFF>"&i&"</td>")
if i mod 10 = 0 then
Response.Write("</tr><tr>")
end if
next
Response.Write("</tr></table>")
%>
怎么解决

1	2	3	4	5	6	7	8	9	10
11	12	13	14	15	16	17	18	19	20
21	22	23	24	25	26	27	28	29	30
31	32	33	34	35	36	37	38	39	40
41	42	43	44	45	46	47	48	49	50
51

最后没有空白的格子，怎么办？

[此贴子已经被作者于2006-3-27 17:17:54编辑过]

<%
Response.Write("<table border=0 cellpadding=0 cellspacing=1 bgcolor=#FF0000><tr>")
n=51
a=(n\10+1)*10
for i=1 to a
if i<=n then
Response.Write("<td bgcolor=#FFFFFF>"&i&"</td>")
else
Response.Write("<td bgcolor=#FFFFFF>"&" "&"</td>")
end if
if i mod 10 = 0 then
Response.Write("</tr><tr>")
end if
next
Response.Write("</tr></table>")
%>

谢谢版主！
问题又来了，最后多出的一行空行怎么解决。
看是看不见，但是表格的底下边线变宽了。

1	2	3	4	5	6	7	8	9	10
11	12	13	14	15	16	17	18	19	20
21	22	23	24	25	26	27	28	29	30
31	32	33	34	35	36	37	38	39	40
41	42	43	44	45	46	47	48	49	50
51

[此贴子已经被作者于2006-3-28 13:32:52编辑过]

<%
Response.Write("<table border=0 cellpadding=0 cellspacing=1 bgcolor=#FF0000><tr>")
n=51
a=(n\10+1)*10
for i=1 to a
if i<=n then
Response.Write("<td bgcolor=#FFFFFF>"&i&"</td>")
else
Response.Write("<td bgcolor=#FFFFFF>"&" "&"</td>")
end if
if i mod 10 = 0 then
if i<=n then
Response.Write("</tr><tr>")
end if
end if
next
Response.Write("</tr></table>")
%>

十分感谢