UC知道asp友情连接的代码谁帮我修改一下
来源：百度知道 编辑：UC知道 时间：2024/06/17 13:33:20
代码如下，现在是一直排下去了，谁帮我修改一下，改成6个一行，自动换行啊，谢谢啦！
--------------------------------------------
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="4"class="bluewb">
<%
set rs = server.CreateObject("adodb.recordset")
sql = "select top 12 linkimg,linkurl from links where linktype=3 order by linkid desc"
'response.Write sql
rs.open sql,conn,1,1
if not rs.eof then
%>
<tr>
<%
i=1
do while not rs.eof
linkurl=trim(rs("linkurl"))
linkimg=trim(rs("linkimg"))
if instr(linkimg,"/")>1 then linkimg="/"&linkimg
%>
<td class="lanwb" align="left"><a target=link href="http://<%=linkurl%>"> <img src=<%=linkimg%> width=50 height=18 border=1>
--------------------------------------------
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="4"class="bluewb">
<%
set rs = server.CreateObject("adodb.recordset")
sql = "select top 12 linkimg,linkurl from links where linktype=3 order by linkid desc"
'response.Write sql
rs.open sql,conn,1,1
if not rs.eof then
%>
<tr>
<%
i=1
do while not rs.eof
linkurl=trim(rs("linkurl"))
linkimg=trim(rs("linkimg"))
if instr(linkimg,"/")>1 then linkimg="/"&linkimg
%>
<td class="lanwb" align="left"><a target=link href="http://<%=linkurl%>"> <img src=<%=linkimg%> width=50 height=18 border=1>
加个判断 if i mod 6=0,
如果i能被6整除就换行 response.write"</tr><tr>"。
<%
i=1
do while not rs.eof
linkurl=trim(rs("linkurl"))
linkimg=trim(rs("linkimg"))
if instr(linkimg,"/")>1 then linkimg="/"&linkimg
%>
<td class="lanwb" align="left"><a target=link href="http://<%=linkurl%>"> <img src=<%=linkimg%> width=50 height=18 border=1> </a> </td> <%
rs.movenext
i=i+1
loop
%>
上面这一段改为
<%
i=0
do while not rs.eof
linkurl=trim(rs("linkurl"))
linkimg=trim(rs("linkimg"))
if instr(linkimg,"/")>1 then linkimg="/"&linkimg
%>
<td class="lanwb" align="left"><a target=link href="http://<%=linkurl%>"> <img src=<%=linkimg%> width=50 he