sBody = "<table border=1>"&chr(13)&"<tr>"
for i = 1 to max
sBody = sBody & "<td>"&i&"</td>"
if i mod lineBreak = 0 and i <> max then
sBody = sBody & "</tr>"&chr(13)&"<tr>"
end if
next
sBody = sBody & "</tr>"&chr(13)&"</table>"
<%
response.write "<table border=1>"&chr(13)&"<tr>"
for i = 1 to 500
response.write "<td>"&i&"</td>"
if i mod 3 = 0 then
response.write "</tr>"&chr(13)&"<tr>"
end if
next
response.write "<tr>"&chr(13)&"</table>"
%>
rowStr="<tr><td colspan="&Number&">输出数字</td></tr>"
for i=1 to Max
rowStr=rowStr&"<tr>"
for j=0 to Number-1
if i+j<=Max then
rowStr=rowStr&"<td>"&(i+j)&"</td>"
else
rowStr=rowStr&"<td> </td>"
end if
next
i=i+j-1
rowStr=rowStr&"</tr>"
next
response.write rowStr
%>
</table>
<SCRIPT LANGUAGE="VBScript">
document.write "<table border=1><tr>"
for i = 1 to 500
document.write "<td>"&i&"</td>"
if i mod 3 = 0 then
document.write "</tr><tr>"
end if
next
document.write "</table>"
</SCRIPT>