Question

ASP如何将代码改成横排显示

sql="select top "&indexpage(0)&" * from [GAB_HR] where pass=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
GCMS("<table border=0 width='100%' cellspacing='0' cellpadding='0'>")
GC("<tr><td style='border-top:1px dotted #007100;height:24'> <img src=img/djtitle.gif align=absmiddle border=0> [")
call myclass("GAB_HRclass","hr",rs("class"))
GCMS("] <a href='showhr.asp?id="&rs("id")&"' target='gab520'><font color='"&rs("color")&"' TITLE='歌曲名称："&rs("title")&"<br>演唱歌手："&rs("singer")&"<br>发布会员："&rs("user")&"<br>文件大小："&rs("size")&"<br>发布日期："&rs("date")&"<br>点击次数："&rs("click")&"次'>"&GAB_Kill_Word(rs("title"),30)&"</font></a>")
if rs("date")=date() then
GCMS(" <img src=img/new.gif border=0>")
end if
GCMS("</td><td width=60 style='border-top:1px dotted #007100;'>"&rs("date")&"</td></tr></table>")
rs.movenext
loop
现在是
1
2
3
4
改成
12
34
56

do while not rs.eof
GCMS("<table border=0 width='100%' cellspacing='0' cellpadding='0'>")
GC("<tr><td style='border-top:1px dotted #007100;height:24'> <img src=img/djtitle.gif align=absmiddle border=0> [")
call myclass("GAB_HRclass","hr",rs("class"))
GCMS("] <a href='showhr.asp?id="&rs("id")&"' target='gab520'><font color='"&rs("color")&"' TITLE='歌曲名称："&rs("title")&"<br>演唱歌手："&rs("singer")&"<br>发布会员："&rs("user")&"<br>文件大小："&rs("size")&"<br>发布日期："&rs("date")&"<br>点击次数："&rs("click")&"次'>"&GAB_Kill_Word(rs("title"),30)&"</font></a>")
if rs("date")=date() then
GCMS(" <img src=img/new.gif border=0>")
end if
GCMS("</td><td width=60 style='border-top:1px dotted #007100;'>"&rs("date")&"</td></tr></table>")
rs.movenext
loop

代码让这些内容横排显示2个在换行显示

Answer 1

GCMS("<table border=0 width='100%' cellspacing='0' cellpadding='0'><tr>")
sql="select top "&indexpage(0)&" * from [GAB_HR] where pass=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
GC("<td style='border-top:1px dotted #007100;height:24'> <img src=img/djtitle.gif align=absmiddle border=0> [")
call myclass("GAB_HRclass","hr",rs("class"))
GCMS("] <a href='showhr.asp?id="&rs("id")&"' target='gab520'><font color='"&rs("color")&"' TITLE='歌曲名称："&rs("title")&"<br>演唱歌坦悉手："&rs("singer")&"<br>发布会员："&rs("user")&"<br>文件大小："&rs("size")&"<br>发布日期："&rs("date")&"<br>点击次数："&rs("click")&"次'>"&GAB_Kill_Word(rs("title"),30)&"</font></a>")
if rs("date")=date() then
GCMS(" <img src=img/new.gif border=0>")
end if
GCMS("</td><td width=60 style='border-top:1px dotted #007100;'>"&rs("date")&"</td>"核信和)
rs.movenext
loop
GCMS("改盯 </tr></table>")

Answer 2

GCMS("] <a href='showhr.asp?id="&rs("id")&"' target='gab520'><font color='"&rs("color")&"' TITLE='歌曲名称："&rs("title")&"<br>演唱歌手："&rs("singer")&"<br>发布会员："&rs("user")&"<br>文件大小："&rs("size")&"<br>发布日期："&rs("date")&"<br>点击次数：局卖"&rs("click")&"次'>"&GAB_Kill_Word(rs("title"),30)&"</font></a>")

改成

GCMS("] <a href='showhr.asp?id="&rs("id")&"' target='gab520'><font color='"&rs("color")&"' TITLE='歌曲名称："&rs("title")&" 演唱歌手："&rs("singer")&" 发布会员："&rs("user")&" 文件大小迟念："&rs("size")&" 发布日期："&rs("date")&" 点击次数："&rs(码腊困"click")&"次'>"&GAB_Kill_Word(rs("title"),30)&"</font></a>")

我的是什么样子的，告诉我