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

Question

<%Set rs = Server.CreateObject ("ADODB.Recordset")sql = "Select * from text"rs.Open sql,conn,1,1Do Until rs.EOF%><%rs.MoveNextLoopend ifrs.close Set rs = Nothingconn.close set conn=Nothing%>数据库里的text值是不相同的,我想得到的是5个值为一行的,不是要一个值占一行的5个列!!楼下的那位看明白了再答!

Answer 1

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

<tr>
<td><%=..%></td>
<td><%=..%></td>
<td><%=..%></td>
<td><%=..%></td>
<td><%=..%></td>
</tr>

<%
'用这种法有多少条记录就会生成多少行
rs.MoveNext 
Loop 
end if 
rs.close 
Set rs = Nothing 
conn.close 
set conn=Nothing 
%>

 

Answer 2

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