记录每行显示数个的计算

朋友问，就简单写一个放这里。
<table align=center width=300>
<form action="" method="post">
<tr><td>每行<input type="text" name="r" size=3>个，共<input type="text" name="all" size=3>个。<input type="submit" name="submit" value="产生"></td></tr>
</form>
</table>
<table border=1 width=90% align=center>
<tr>
<%
if request.form("submit")<>"" then
all=int(request.form("all"))
r=int(request.form("r"))
for i=1 to all
if i>=(r-1) and i mod r=0 then
str=str&"<td>"&i&"</td></tr><tr>"
else
str=str&"<td>"&i&"</td>"
end if
next
n=r-(all mod r)
for m=1 to n
str=str&"<td>"&n&"</td>"
next
else
str="<td> </td>"
end if
response.write str
%>
</tr>
</table>

补充：asp教程,高级应用