怎样把已经从数据库里边的字段名读出之后，通过表格的方式显示出来?
<%
FOR I=0 TO RstObj.Fields.Count -1
Response.write rstObj.Fields(i).Name
next
%>
上边可以把字段名都显示出来。
但是我想把每个字段在我相对应的表格中显示，但怎么也不行，请高手指教一二。
问题点数：0、回复次数：6Top
1 楼net_lover（【孟子E章】）回复于 2003-02-04 00:39:42 得分 0
<table border>
<%
FOR I=0 TO RstObj.Fields.Count -1
Response.write "<tr><td>" & rstObj.Fields(i).Name & "</td></tr>"
next
%>
</table>Top
2 楼huntercx（神秘猎人）回复于 2003-02-04 01:09:47 得分 0
由 net_lover(孟子E章) 的程序已经改写如下了
<tr bgcolor=#0066cc>
<%
For I=0 TO RSToBJ.Fields.Count -1
Response.write "<td height=20 align=center><font color=#ffffff>" & rstObj.Fields(i).Name & "</font></td>"
next
%>
</tr>Top
3 楼fatcat_xp（肉肉猫）回复于 2003-02-04 09:56:51 得分 0
看看我的。。 。
<%\
set conn=Server.CreateObject("ADODB.Connection")
conn.ConnectionString="Provider=MicroSoft.Jet.OLEDB.4.0;"&"Data Source=f:\asp\db1.mdb"
conn.Open
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "select * from com",conn
numfields = rs.fields.count '定义变量存放 字段个数
response.write("<table border=1>")
response.write ("<tr>")
for i= 0 to numfields-1 '此几段 用于打印表头
response.write ("<td><th>")
response.write rs.fields(i).name
response.write ("</th></td>")
next
response.write ("</tr>")
do while not rs.EOF '次开始 逐个打印各个记录
response.write ("<tr>")
for i= 0 to numfields-1
response.write ("<td><th>")
response.write rs(i)
response.write ("</th></td>")
next
rs.movenext '此句一定要有 因为要跳转到下一记录
response.write ("</tr>")
loop
response.write("</table>")
rs.close
conn.close
set conn=nothing
%>
上面的 希望能对你有帮助 哦 呵呵 如果 有幸 被用的话 建议把注释 去掉
还有 对应的 DATA SOURCE 要改 或者 表的 名字。。select * from 。。那句。 最后 祝你成功， 还有 羊年 快乐 。洋洋得意！！1Top
4 楼fatcat_xp（肉肉猫）回复于 2003-02-04 09:58:00 得分 0
哦 第一行 <% \ 不小心 多打了 个 \ 自己注意了。 。Top
5 楼huntercx（神秘猎人）回复于 2003-02-04 21:18:08 得分 0
多谢大家对我的支持与帮助，兄弟万分感谢。Top
6 楼gwzwx（一蓑烟雨）回复于 2003-05-29 10:31:23 得分 0
给分了怎么还不结呀？？？Top
