友情链接读取时，横向显示。（请帮我修改！）

来源：百度知道 编辑：UC知道 时间：2024/05/26 23:54:16
'处理友情链接LOGO
Tempstr=Replace(Tempstr,"{$LogoIndex}",Template.html(6))
Tempstr=Replace(Tempstr,"{$LogoTitle}",Template.strings(1))
dim LogoStr,LogoRs,LogoListStr
LogoListStr=""
LogoListStr=LogoListStr&"<table cellpadding=""1"" cellspacing=""2""

align=""center"">"& vbcrlf
LogoStr="select * from ci_link where link_checked=true Order By link_orderid Asc"
Set LogoRs=CI.Execute(LogoStr)
if LogoRs.eof and LogoRs.bof then
LogoListStr=LogoListStr&"<tr><td>暂无友情</td></tr>"
else
do while not LogoRs.eof
LogoListStr=LogoListStr&"<tr><td>"& vbcrlf
LogoListStr=LogoListStr&"<a href=" &LogoRs("link_url")& " target=""_blank"" title="

&LogoRs("link_name")& " "

Tempstr=Replace(Tempstr,"{$LogoIndex}",Template.html(6))
Tempstr=Replace(Tempstr,"{$LogoTitle}",Template.strings(1))
dim LogoStr,LogoRs,LogoListStr
LogoListStr=""
LogoListStr=LogoListStr&"<table cellpadding=""1"" cellspacing=""2"" align=""center"">"& vbcrlf
LogoStr="select * from ci_link where link_checked=true Order By link_orderid Asc"
Set LogoRs=CI.Execute(LogoStr)
if LogoRs.eof and LogoRs.bof then
LogoListStr=LogoListStr&"<tr><td>暂无友情</td></tr>"
else
dim n
n=8 '这里假设一行八个链接
dim i
i=1
do while not LogoRs.eof
if i mod n = 1 then LogoListStr=LogoListStr&"<tr>"& vbcrlf
LogoListStr=LogoListStr&"<td>"& vbcrlf
LogoListStr=LogoListStr&"<a href=" &LogoRs("link_url")& " target=""_blank&q