求助,ASP友情连接代码问题?

来源:百度知道 编辑:UC知道 时间:2024/05/30 02:19:11
<%
set rscd = Server.CreateObject("ADODB.Recordset")
sqlInfo ="Select * From Dat_Link Where LinkClass =1 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
%>
以上代码显示的就是图片上的样子,怎么让他能正常显示,谢谢,谁可以给我改一下
<%
set rscd = Server.CreateObject("ADODB.Recordset")
sqlInfo ="Select * From Dat_Link Where LinkClass =1 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=&

改成:
<td>
<%
set rscd = Server.CreateObject("ADODB.Recordset")
sqlInfo ="Select * From Dat_Link Where LinkClass =1 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
%>
<A href="<%=rscd("Url")%>" target="_blank"><%=rscd("Homepage")%></A> |
<%
rscd.movenext
loop
end if
rscd.close
set rscd=nothing
%>
</td>

你的表格行不够宽,所以每个单元格都自动换行了。

<td><A href="<%=rscd("Url")%>" target="_blank"><%=rscd("Homepage")%></A> | </td>
-------------------------------------------------------
修改为:
<A href="<%=rscd("Url")%>" target="_blank"><%=rscd(&qu