<table width="100%" border="1" cellspacing="0" cellpadding="1">
<%if rs.eof then
response.write"<tr><td>没有内容</td></tr>"
else%>
<tr>
<%for i=1 to 30
if rs.eof then exit for
response.Write("<td width=120>")
response.Write rs("name")
response.Write("</td>")
if i mod 4=0 then
response.Write("</tr><tr>")
end if
rs.movenext
next
end if%>
</tr>
</table>
<%if rs.eof then
response.write"<tr><td>没有内容</td></tr>"
else%>
<tr>
<%for i=1 to 30
if rs.eof then exit for
response.Write("<td width=120>")
response.Write rs("name")
response.Write("</td>")
if i mod 4=0 then
response.Write("</tr><tr>")
end if
rs.movenext
next
end if%>
</tr>
</table>
主要用到mod函数：
描述
两个数值相除并返回其余数。
语法
result = number1 Mod number2
Mod 运算符的语法有以下部分：
部分 描述 result 任意数值变量。 number1 任意数值表达式。 number2 任意数值表达式。
说明
模数或余数。运算符执行 number1 除以 number2 操作（浮点数四舍五入为整数）并只返回余数作为 result。例如，在下面的表达式中， A（为 result）等于 5。
A = 19 Mod 6.7如果任一表达式为 Null，则 result 也为 Null。任一表达式为 Empty 时按 0 来处理。