UC知道ASP代码友情连接自动换行问题
来源：百度知道 编辑：UC知道 时间：2024/09/27 05:54:58
以下是现有的代码只能在一行显示，搞的网页很乱.
怎样才能让他自动换行显示,请高手给改改.
<tr>
<%
set rscd = Server.CreateObject("ADODB.Recordset")
sqlInfo ="Select * From Dat_Link Where LinkClass =2 And State =1 Order By LinkKey asc"
rscd.Open sqlInfo,Conn,1,1
if not rscd.eof then
rscd.movefirst
do while not rscd.eof
%>
<td ><A href="<%=rscd("Url")%>" target="_blank"><%=rscd("Homepage")%></A> | </td>
<%
rscd.movenext
loop
end if
rscd.close
set rscd=nothing
%>
</tr>
怎样才能让他自动换行显示,请高手给改改.
<tr>
<%
set rscd = Server.CreateObject("ADODB.Recordset")
sqlInfo ="Select * From Dat_Link Where LinkClass =2 And State =1 Order By LinkKey asc"
rscd.Open sqlInfo,Conn,1,1
if not rscd.eof then
rscd.movefirst
do while not rscd.eof
%>
<td ><A href="<%=rscd("Url")%>" target="_blank"><%=rscd("Homepage")%></A> | </td>
<%
rscd.movenext
loop
end if
rscd.close
set rscd=nothing
%>
</tr>
<tr>
<%
const tr = 3 '定义一行3个
set rscd = Server.CreateObject("ADODB.Recordset")
sqlInfo ="Select * From Dat_Link Where LinkClass =2 And State =1 Order By LinkKey asc"
rscd.Open sqlInfo,Conn,1,1
if not rscd.eof then
i = 1
do while not rscd.eof
%>
<td ><A href="<%=rscd("Url")%>" target="_blank"><%=rscd("Homepage")%></A> | </td>
<%
rscd.movenext
i = i + 1
if i mod tr = 0 then response.write "</tr><tr>"
loop
end if
rscd.close
set rscd=nothing
%>
</tr>
都不明白，你一行要显示多少个，你可以用<br>来换行三