Question

我想改变ASP的输出方式为行，现在是四列换一行

我想把它生成的文件，改成行，现在是四列换一行，我想改成一列一行，要怎么改呢？代码如下：
//------------------中间部分开始-------------------
text.WriteLine("<table border=""0"" cellspacing=""1"" width=""100%"">")

set rst=server.createobject("adodb.recordset")
sql="select * from "&movielist&" where typeid='"&typeid&"' or typeid='"&typeid&"' and is_yuan=1 order by articleid desc"
rst.open sql,conn,1,1
if rst.eof and rst.bof then
response.write"该栏目还没有影片"
else
k=0

do while not rst.eof
k=k+1

f_id = rst("articleid")
f_id = replace ( f_id,"10","cg")
f_id = replace ( f_id,"12","ln")
f_id = replace ( f_id,"15","qv")
f_id = replace ( f_id,"0","ad")
f_id = replace ( f_id,"1","be")
f_id = replace ( f_id,"2","fi")
f_id = replace ( f_id,"3","hj")
f_id = replace ( f_id,"4","ko")
f_id = replace ( f_id,"5","mp")
f_id = replace ( f_id,"6","rt")
f_id = replace ( f_id,"7","su")
f_id = replace ( f_id,"8","wy")
f_id = replace ( f_id,"9","xz")

y=year(rst("dateandtime1"))
md=month(rst("dateandtime1"))&day(rst("dateandtime1"))
dim tit
if DateDiff("d",rst("dateandtime1"),Now())<1 then
tit="<img src=""img/new.gif"" border=""0"">"
else
if DateDiff("d",rst("dateandtime1"),Now())<2 then
tit="昨日更新"
else
tit=" "
end if
end if

text.WriteLine("<tr><td width=""100%"" height=""1"" colspan=""3"" background=""img/xian01.gif""></td></tr>")
text.WriteLine("<tr><td width=""11%"" height=""26""><img border=""0"" src=""img/sanjiao01.gif"" width=""18"" height=""18""></td>")
text.WriteLine("<td width=""66%"" height=""26""><a target=""_blank"" href=""/"&y&"/"&md&"/"&f_id&"/"" class=""a02"">"&left(rst("title"),8)&"</a></font><font color=red>"&tit&"</font></td>")
text.WriteLine("</tr>")

if k>=14 then exit do
rst.movenext
loop
end if
rst.close
text.WriteLine("</table>")
//------------------中间部分结束-------------------

Answer 1

你这里贴的代码不对,根本无法达到你的要求;
程序代码已在QQ里给你解决了