求教一个rs输出的写法? 谢谢

[dusttosky]

由于存储过程返回的列是动态的,所以我想用下面的方式去输出结果,但是不知道是如何在页面规范的输出带表格的结果:
要求: Response.Wrirte rs.Fields(i).Name 横行循环得到所有字段名字.
Response.Wrirte rs.Fields(i).value竖行循环得到所有字段值. 并且上下对应. 求高手给个写法, 谢谢啊!!

显示效果类似(带表格):
班级   年纪   姓名1   姓名2   姓名3 ......
1班    18     张怡    李高    赵六  ......


For i = 0 To rs.Fields.Count-1
    Response.Wrirte rs.Fields(i).Name
    Response.Wrirte rs.Fields(i).value
Next

[kingmeta]

不太明白你的意思，不过你可以试试这样行不行。

Response.Wrirte ("<table>")
For i = 0 To rs.Fields.Count	
    Response.Wrirte ("<td>")
    Response.Wrirte rs.Fields(i).Name
    Response.Wrirte ("</td>")
Next
For i = 0 To rs.Fields.Count	
    Response.Wrirte ("<td>")
    Response.Wrirte rs.Fields(i).value
    Response.Wrirte ("</td>")
Next
Response.Wrirte ("</table>")

[kingmeta]

上面的错了。等下重写给你。

[kingmeta]

Response.Wrirte ("<table>")
Response.Wrirte ("<tr>")
For i = 0 To rs.Fields.Count	
    Response.Wrirte ("<tr>")
    Response.Wrirte rs.Fields(i).Name
    Response.Wrirte ("</tr>")
Next
Response.Wrirte ("</tr><tr>")
For i = 0 To rs.Fields.Count	
    Response.Wrirte ("<tr>")
    Response.Wrirte rs.Fields(i).value
    Response.Wrirte ("</tr>")
Next
Response.Wrirte ("</tr>")
Response.Wrirte ("</table>")

[kingexpand]

<%
Response.Write ("<table>")
Response.Write ("<tr>")
For i = 0 To 10	
    Response.Write ("<td>")
    Response.Write "标题"
    Response.Write ("</td>")
Next
Response.Write ("</tr><tr>")
For i = 0 To 10
    Response.Write ("<td>")
    Response.Write "内容"
    Response.Write ("</td>")
Next
Response.Write ("</tr>")
Response.Write ("</table>")
%>

[dusttosky]

首先谢谢你的答复. 还存在一个问题, 我说明白点就是这里的结果有3个循环,
第一个, 所有字段横向循环
第二个,所有字段对应的值对应第一个循环
第三个,这个rs的值是有多行数据的,这里要全部显示出来

显示效果类似(带表格):   你的写法可以现实这个效果,但是下面这个呢?
班级   年纪   姓名1   姓名2   姓名3 ......
1班    18     张怡    李高    赵六  ......


班级   年纪   姓名1   姓名2   姓名3 ......
1班    18     张怡    李高    赵六  ......
2班    20     张5     江梅    五六  ......
1班    22     张8    江梅    五六  ......
.
.
.
.

[dusttosky]

谢谢!


<%
Response.Write ("<table>")
Response.Write ("<tr>")
For i = 0 To rs.Fields.Count-1
Response.Write ("<td>")
Response.Write rs.Fields(i).Name
Response.Write ("</td>")
Next
Response.Write ("</tr><tr>")

while not rs.eof
For i = 0 To rs.Fields.Count-1
Response.Write ("<td>")
Response.Write rs.Fields(i).value
Response.Write ("</td>")
Next
Response.Write ("</tr>")
rs.MoveNext()
Wend
Response.Write ("</table>")
%>