高考问答tvb台庆1995:ASP换行问题
来源：百度文库 编辑：高考问答 时间：2024/05/09 14:07:34
<%
set rs2 = Server.CreateObject("adodb.Recordset")
sql = "select classcode, classname from product_class where parentcode='"& rs("classcode") &"' order by sortnum asc"
rs2.open sql,cn,0,1,1
do while not rs2.EOF
if i mod 5 = 1 then Response.Write "<tr>"
%>
<td style="padding-top:3px;"><a href="<%=menu%>.asp?classcode=<%=rs2("classcode")%>" class="a02"><%=rs2("classname")%></a></td>
<%
i=1
i = i + 1
if i mod 5 = 1 then Response.Write "</tr>"
rs2.MoveNext
loop
rs2.Close
set rs2 = nothing
%></table>
这是偶程序的一段代码，定义的5个一换行，但是不换，还是一直加下去。请问各位大侠，能给指出是哪里的问题吗？
rs2.open sql,cn,0,1,1
dim i
i=1
do while not rs2.EOF
if i mod 5 = 1 then Response.Write "<tr>"
i = i + 1
%>
<td style="padding-top:3px;"><a href="<%=menu%>.asp?classcode=<%=rs2("classcode")%>" class="a02"><%=rs2("classname")%></a></td>
<%
if i mod 5 = 1 then Response.Write "</tr>"
rs2.MoveNext
loop
rs2.Close
set rs2 = nothing
<script language="vbscript">
dim n,i
document.write("<table width='300px' border='1'>")
document.write("<tr>")
for n=1 to 50
document.write("<td width='50pt'>"&n&"</td>")
i=i+1
if (i mod 5=0) then
document.write("</tr></tr>")
end if
next
document.write("<tr>")
document.write("<table>")
</script>
参照这个换行，自己修改！！
<table width="96%" border="0" cellspacing="0" cellpadding="0">
<%
set rs2 = Server.CreateObject("adodb.Recordset")
sql = "select classcode, classname from product_class where parentcode='"& rs("classcode") &"' order by sortnum asc"
rs2.open sql,cn,0,1,1
dim i = 1
do while not rs2.EOF
if i mod 5 = 0 then Response.Write "<tr>"
%>
<td style="padding-top:3px;"><a href="<%=menu%>.asp?classcode=<%=rs2("classcode")%>" class="a02"><%=rs2("classname")%></a></td>
<%
if i mod 5 = 0 then Response.Write "</tr>"
i = i + 1
rs2.MoveNext
loop
rs2.Close
set rs2 = nothing
%></table>
这样试试 应该没问题
用两个for来实现吧