ASP高手请进，

来源：百度知道编辑：UC知道时间：2024/05/19 22:12:17

请问怎么样才可以将以下代码改成显示6条新闻 1行 15个字呢?
<%
sub xinwen()
dim q
Set rs_xinwen = Server.CreateObject("ADODB.Recordset")
sql_xinwen="select top 36 web,webabout,url from xinwen where yanz=1 order by jrsj desc "
rs_xinwen.open sql_xinwen,conn,1,1
while not rs_xinwen.eof
response.write " "
for q=0 to 10
if rs_xinwen.eof then
exit for
end if
response.write "<a target=""_blank"" title="""&rs_xinwen("web")&"-"&rs_xinwen("webabout")&""" href="""&rs_xinwen("url")&""">"&rs_xinwen("web")&"</a> ｜ "
rs_xinwen.movenext

<%
sub xinwen()
dim q
Set rs_xinwen = Server.CreateObject("ADODB.Recordset")
sql_xinwen="select top 6 * from xinwen where yanz=1 order by jrsj desc "
rs_xinwen.open sql_xinwen,conn,1,1
while not rs_xinwen.eof
response.write " "
for q=0 to 10
if rs_xinwen.eof then
exit for
end if
response.write "<a target=""_blank"" title="""&rs_xinwen("web")&"-"&rs_xinwen("webabout")&""" href="""&rs_xinwen("url")&""">"&left(rs_xinwen("web"),15)&"</a> ｜ "
rs_xinwen.movenext
next
response.write "<br>"
wend
rs_xinwen.close
set rs_xinwen=nothing
end sub
%>

ASP高手请进 asp高手请进 Asp的高手请进!!!!!! 【求助】ASP高手请进》》》》》 ASP编程高手请进！ asP高手请进 asp错误，高手请进 Asp高手请进！！ asp问题,高手请进 asp问题,高手请进....