Question

请问ASP如何竖排改横排？谢谢！

<table width="145" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="145"><table width="145" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="145">
<%

'title="球机系列"
'n_name="超高速球机"
sql="select * from test where f_id=0 order by partent_id"
set rsa=conn.execute(sql)
if not(rsa.eof and rsa.bof) then
do while not rsa.eof
dim tmp_name,menu_id,menu_pic
set rsav=conn.execute("select top 1 id,name from test where f_id="&rsa("id")&" order by partent_id")
rsid=rsav("id")
rsname=rsav("name")
rsav.close
set rsav=nothing
menu_id=rsa("id")
if title=rsa("name") then
menu=true
else
menu=false
end if
%>
<%
if menu=true then

%>
<%
dim title1,ms,pics,menus
title1=trim(request.QueryString("name"))
sqls="select * from test where f_id ="&rsa("id")&" order by partent_id"

set rsas=conn.execute(sqls)
if not(rsas.eof and rsas.bof) then
do while not rsas.eof
if clng(sortid)=rsas("id") then
ms=" class='16s'"
ur="sortid="&rsas("id")&"&n_name="&server.URLEncode(rsas("name"))&"&name="&title&"&"
else
ms=" class='15s'"
end if

ab="<a href=pro_list.asp?sortid="&rsas("id")&"&n_name="&server.URLEncode(rsas("name"))&"&name="&title&ms&">"

%>
<table width="100%" height="18" border="0" align="center" cellpadding="0" cellspacing="0" id="ignore" onMouseover="changeto('#ECECEC')" onMouseout="changeback('#FFFFFF')">
<tr>
<td width="84%" align="left" valign="middle"><%=ab%><%=trim(rsas("name"))%>
</td>
</tr>
</table>
<%
rsas.movenext
loop
end if
rsas.close
set rsas=nothing

%>
<%
end if
%>
<%
rsa.movenext
loop
end if
rsa.close
set rsa=nothing
%>
</td>
</tr>
</table></td>
</tr>
</table>

Answer 1

多些个tr 和td就行，table代码看不懂，太乱了，自己改一下