高手帮帮忙,asp问题

来源:百度知道 编辑:UC知道 时间:2024/09/23 05:23:26
sub ShowKehu(KehuNum)
dim sqlKehu,rsKehu,i
if KehuNum>0 and KehuNum<=50 then
sqlKehu="select top " & KehuNum
else
sqlKehu="select top 50"
end if
sqlKehu=sqlKehu & " * from kehu order by ID Desc"
Set rsKehu= Server.CreateObject("ADODB.Recordset")
rsKehu.open sqlKehu,conn,1,1
if rsKehu.bof and rsKehu.eof then
KehuCount=0
response.write "<p>  没有客户信息</p>"
else
KehuCount=rsKehu.recordcount

do while not rsKehu.eof
response.Write " <a href='http://" & rsKehu("url") &" ', 'newwindow', 'height=450, width=400, toolbar=no, menubar=no, scrollbars=auto, resizable=no, location=no, status=no')"" title='" & rsKehu("url") & "'><font color='#FF0000'>" &rsKehu("title") & "<

response.Write " <a href='http://" & rsKehu("url") &" ', 'newwindow', 'height=450, width=400, toolbar=no, menubar=no, scrollbars=auto, resizable=no, location=no, status=no')"" title='" & rsKehu("url") & "'><font color='#FF0000'>" &rsKehu("title") & "</font></a>"

最后改成 </a><br>"

就是加个换行.就可以了..