北京自驾租车:高手帮忙修改一个小程序

来源:百度文库 编辑:神马品牌网 时间:2024/05/01 01:31:09
<%
id=Trim(Request.QueryString("id"))
set rs=server.createobject("adodb.recordset")
rs.open "select * from tvname where quyu="&id&" order by cdbl(paixu)",conn,1,1
if rs.recordcount=0 then
response.write "该地区没有电视台"
else
Response.Write("<table width=200 border=0cellspacing=0ellpadding=0 background= bgcolor=#000000 align=center><td>")
i=0
while not rs.eof
i=i+1
Response.Write "<td width=200 align=center><a href=play2.asp?id="&rs("id")&" target=""main"">"&rs("name")&"</a></td>"
if i=1 and not rs.eof then
Response.Write("</td>")
i=0
end if
if rs.eof then
Response.Write("</td>")
end if
rs.movenext
wend
Response.Write("</table>")
end if
rs.close
set rs=nothing
%>

上面代码运行时是一行,纵向全部显示,怎么修改让他横向,一行4个,全部显示呢,拜托大鸟
本人是小小鸟,帮忙给完整程序,谢谢

用do while 循环语句循环<tr></tr>

用for i=1 to 4 语句循环<td></td>

就可以了!