<table border=1 width="200">
<%
col=4 '列数
i=1
Do While i<=100
If i Mod col=1 Then
response.write "<tr>"
End If
response.write "<td align=center>"&i&"</td>"
If i Mod col=0 Then
response.write "</tr>"
End If
i=i+1
loop
%>
</table>
<table border=1 width="200">
<%
col=4 '列数
i=1
Do While i<=100
If i Mod col=1 Then
response.write "<tr>"
End If
response.write "<td align=center>"&i&"</td>"
If i Mod col=0 Then
response.write "</tr>"
End If
i=i+1
loop
%>
</table>
转载于:https://www.cnblogs.com/uuxanet/p/3282898.html