从数据库中输出数据，一行循环四列，然后换行的表格怎么写代码

<table cellspacing="0" cellpadding="0" border="0" align="center">

<tr>

<% set rs=server.CreateObject("adodb.recordset")

Sql=""

Rs.Open Sql,Conn,1,1

if not rs.eof and not rs.bof then

定义变量i' dim i=1

do while not rs.eof and not Page.eof

%>

<td><td>

<%

rs.movenext

给4取余数'if i mod 4=0 then

闭合行 ' response.Write("</tr><tr>")

else

i=i+1

loop

end if

end if

%>

</tr>

简单说就是定义变量i，循环中i自增1，如果到了4就闭合这行，另起一行循环，你是一下子一定成功的

因为你这是一个独立的应用，我个人意见，最好的办法就是直接将HTML代码写入字段中，写入和读取程序只负责原样的写入并原样的读出及显示。这样可以获得最高的灵活性和独立性。后期想怎么修改这段代码都行，例如换成Flash、图片等。

补充回答：

在数据库的对应字段中写入你所要显示效果的相应HTML代码，如登录会员（注册登录会员），对应的HTML为：<p>登录会员<br/>（注册登录会员）<br/></p>，将这段代码写入对应的数据库字段中，即可实现换行效果。

---