UC知道表格循环问题！急！送全分！
来源：百度知道 编辑：UC知道 时间：2024/05/29 03:51:42
下面代码输入的都是在一行里，请问如何让他每5个自动换行，请修改后付全部代码，因为我自己试着用表格循环没有成功，希望高手赐教：
<table width="600" align="center" border="0"><tr>
<%
sql="select myuser.userid,frends.userid,username,frends,vip,websiteurl from myuser,frends where myuser.userid=frends.frends and frends.userid='"&ZhaiUser&"'"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,3
if not rs.Eof then
while not rs.Eof
Response.Write("<td width='116' height='90'><div align='center'>")
response.Write("<a href='../aaa/index.asp?zhaiuser="&rs("frends")&"' target='_blank'>")
if Rs("username")<>"" then response.Write("<img src='../aaa/pic/"&rs("username")&"' alt='"&rs("websiteurl")&&
<table width="600" align="center" border="0"><tr>
<%
sql="select myuser.userid,frends.userid,username,frends,vip,websiteurl from myuser,frends where myuser.userid=frends.frends and frends.userid='"&ZhaiUser&"'"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,3
if not rs.Eof then
while not rs.Eof
Response.Write("<td width='116' height='90'><div align='center'>")
response.Write("<a href='../aaa/index.asp?zhaiuser="&rs("frends")&"' target='_blank'>")
if Rs("username")<>"" then response.Write("<img src='../aaa/pic/"&rs("username")&"' alt='"&rs("websiteurl")&&
<table width="600" align="center" border="0"><tr>
<%
sql="select myuser.userid,frends.userid,username,frends,vip,websiteurl from myuser,frends where myuser.userid=frends.frends and frends.userid='"&ZhaiUser&"'"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,3
if not rs.Eof then
for i=1 to rs.recordcount
Response.Write("<td width='116' height='90'><div align='center'>")
response.Write("<a href='../aaa/index.asp?zhaiuser="&rs("frends")&"' target='_blank'>")
if Rs("username")<>"" then response.Write("<img src='../aaa/pic/"&rs("username")&"' alt='"&rs("websiteurl")&"' style='border:2px solid #cccccc' width='48' height='48' borde