Question

求高手帮帮忙！asp换行问题！有三个循环语句，怎样让其读出的数据库内容换行？读出一条换一行！

<%
'选项开始
sql="select * from xiangmu order by id asc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
l=rs.recordcount
if rs.bof and rs.eof then
response.write "<tr><td>抱歉，目前还没有评价信息</td></tr>"
end if
Do while not rs.eof
For b = 1 to l
%>
<tr onMouseOver="this.bgColor='#F0F7FF'" onMouseOut="this.bgColor='#FAFAFA'">
<td colspan="4">
<table width="98%" cellpadding="0" cellspacing="5" align="center">
<tr>
<td width="25%"><%=b%>.<%=rs("xm")%></td>
<%
sql4="select * from Info where xm = '"&rs("xm")&"' order by id asc"
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,1,1
k=rs4.recordcount
if rs4.bof and rs4.eof then
response.write "<tr><td>抱歉，目前还没有评价信息</td></tr>"
end if
Do while not rs4.eof
%>

<td width="30%"> <%For m = 1 to k %><%=m%>.<%=rs4("Topic")%>

</td>

<td>

<%for n=1 to rs4("TCount")%>
<input type="radio" name="Option<%=m%>" value="<%=rs4("Option"&n)%>" title="请评价“第<%=m%>题”~!" /> <%=rs4("Option"&n)%>
<%next%>
</td>

<%rs4.movenext
next
Loop
rs4.close
set rs4=nothing
%>
</tr>
</table>
</td>
</tr>
<%
rs.movenext
Next
Loop
'选项结束
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
就是让循环语句读出的内容换行！加<br>好像不行！
<td width="30%"> <%For m = 1 to k %><%=m%>.<%=rs4("Topic")%>
就像这句循环语句怎么让它读出的内容换行啊？

Answer 1

你把 <%For m = 1 to k %><%=m%>.<%=rs4("Topic")%>改为
<%For m = 1 to k %>
<%=m%>.<%=rs4("Topic")%><br>
这样就可以换行了，因为你写成了固定格式的HTML语句，那么由ASP生成的HTML将在原位置
而如果你先将其换行，那么，ASP执行时，也就将换行换过来了

我不知道你是要源代码中的代码换行还是页面效果换行，所以在你代码后面又加了个<br>，这是换行的意思，属HTML语句

Answer 2

将这段：
<td width="30%"> <%For m = 1 to k %><%=m%>.<%=rs4("Topic")%>

</td>

<td>

<%for n=1 to rs4("TCount")%>
<input type="radio" name="Option<%=m%>" value="<%=rs4("Option"&n)%>" title="请评价“第<%=m%>题”~!" /> <%=rs4("Option"&n)%>
<%next%>
</td>

<%rs4.movenext
next
Loop
rs4.close
set rs4=nothing
%>
</tr>
</table>
</td>
</tr>
<%
rs.movenext
Next
Loop
'选项结束
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
更改为如下试试：
<td width="30%"> <%For m = 1 to k %><%=m%>.<%=rs4("Topic")%>

</td>

<td>

<%for n=1 to rs4("TCount")%>
<input type="radio" name="Option<%=m%>" value="<%=rs4("Option"&n)%>" title="请评价“第<%=m%>题”~!" /> <%=rs4("Option"&n)%>
</td>

<%rs4.movenext
Loop
rs4.close
set rs4=nothing
%>
<%next%>
</tr>
</table>
</td>
</tr>
<%
rs.movenext
Next
Loop
'选项结束
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
祝福你，朋友！

Answer 3

在你的每一个输出语句结尾引号外面加个& "<br>"
不知道你的数据库构造，不过指针下移rs.movenext 也需要换行的话就再输出一个换行：
response.write "<br>"