三行四列显示 两例

  <%
  dim z,ss
 z=0
for ss=1 to 8
 z=ss
response.Write("<td>"&z&"</td>")
if ss mod 4=0 and ss <> 8  then
response.Write("</tr><tr>")
end if
next
%>
</tr>
   
</table>
<br />
又一个三行四列显示
<table width="23%" border="1">
<% for q=1 to 4%>
  <tr>
  <%for e=1 to 3%>
    <td>ssss</td>
 <%next%>
  </tr>
  <%next%>
</table>