<%
dim i
for i=1 to 312
response.write i
next
%>
这样输出是一行，怎样能把它分成二行或三行

加个<br>
至于加在哪,自己想下吧?

<%
dim i
for i=1 to 312
response.write i
if i = 156 then '分2行
response.write "<br>"
end if
next
%>

如果分3行就把312/3 原理就这样

应该让楼主自己好好想想，而不是单纯的给答案！

只提供思路

<%
Dim i,Size

Size = 100

For i = 1 To Size
Response.Write("数据"& i)

If i = (Size / 2) Then '通过计算来分为2行！
Response.Write("<br />")
End If
Next
%>