请教下该怎么在这得到一个5列,无数行的表格,表格里的值都是<%=rs("text")%>？

Question

<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from text"
rs.Open sql,conn,1,1
Do Until rs.EOF
%>


<%rs.MoveNext
Loop
end if
rs.close 
Set rs = Nothing
conn.close 
set conn=Nothing
%>
数据库里的text值是不相同的,我想得到的是5个值为一行的,不是要一个值占一行的5个列!!楼下的那位看明白了再答!

Answer 1

<%&nbsp;Set rs = Server.CreateObject ("ADODB.Recordset")&nbsp;sql = "Select * from text"&nbsp;rs.Open sql,conn,1,1&nbsp;Do Until rs.EOF&nbsp;%>&nbsp;<tr><td><%=..%></td><td><%=..%></td><td><%=..%></td><td><%=..%></td><td><%=..%></td></tr><%'用这种法有多少条记录就会生成多少行rs.MoveNext&nbsp;Loop&nbsp;end if&nbsp;rs.close&nbsp;Set rs = Nothing&nbsp;conn.close&nbsp;set conn=Nothing&nbsp;%>&nbsp;

Answer 2

<%&nbsp;Set rs = Server.CreateObject ("ADODB.Recordset")&nbsp;sql ="Select * from text"&nbsp;rs.Open sql,conn,1,1&nbsp;%>&nbsp;<table><tr>&nbsp;<%i=1Do while not rs.EOF&nbsp;%><td><%=rs("text")%></td>&nbsp;<%if i mod 5=0 then%></tr><tr><%end if%><%i=i+1rs.MoveNext&nbsp;Loop&nbsp;%></tr>&nbsp;</table><%rs.close&nbsp;Set rs = Nothing&nbsp;conn.close&nbsp;set conn=Nothing&nbsp;%>