环太平洋1电影免费观看:友情连接自动换行

来源:百度文库 编辑:神马品牌网 时间:2024/04/27 21:01:48
这是个友情联接前台显示代码,现在有个问题,他就是加友情连接他只会一直在一排增加,不会自动换行。搞的网页很难看。
有没有高手会帮我搞下,我希望他第一排有10个友情连接时他自动换行,以此类推。。。不好意思,没分了。

<body>
response.Write "<table style='BORDER-COLLAPSE: collapse' borderColor=#ffffff border=1 width=1000 border=0 cellpadding=0 cellspacing=0 bgcolor=#37A3ED><tr><td align=right> </td></tr><tr align=center><td><table border=0 cellspacing=4 cellpadding=0><tr align=center>"
set rs=server.CreateObject("adodb.recordset")
sql="select * from [G_link] where G_config=1"
rs.open sql,conn,1,1
Allrecord=rs.recordcount
i=0
do while i<10 or not rs.eof
response.Write "<td width=100><a href="&rs("G_linkurl")&" target=_blank><img src=linkimg/"&rs("G_linkpic")&" alt="&rs("G_linkname")&" width=88 height=31 border=0></a></td>"
i=i+1
rs.movenext
loop
rs.close
set rs=nothing
if Allrecord<10 then
for m=1 to (10 - (Allrecord mod 10))
response.Write "<td><TABLE style='BORDER-COLLAPSE: collapse' borderColor=#ffffff height=50 cellSpacing=0 cellPadding=0 width=88 border=1><TBODY><TR><TD width='100%'><P style='LINE-HEIGHT: 150%' align=center><FONT color=#ffffff>合作推广站</FONT></P></TD></TR></TBODY></TABLE></td>"
next
end if
response.Write "</TR></TBODY></TABLE></td></tr></table></td></tr></table>"
%>
</body>

可以用<br>,表示回车,比如你想显示:
1
2
3
旧可以把代码写成: 1<br>2<br>3<br>