请问如何取得表里的所有字段名？

[beyondme]

[华南虎哥]

略解如下：
dim fieldnamelist,i,recount
RS......
recount=RS.fields.count
redim fieldnamelist(recount-1)
for i=0 to recount-1
fieldnamelist(i)=RS.Fields(i).Name
next

[bluewater]

<%
'声明
const adcmdtext=1
const recordsaffected=20
'以CONNECTION 对象OPEN 方法参数的方式来设置连接信息
set conn=server.createobject("adodb.connection")
'DSN为数据源名称，UID为用户ID，PWD为用户密码，DATABASE为数据库名称
conn.open "dsn=temp;uid=sa;pwd=;database=pubs"
'运行SQL命令
commandtext="select * from tablename"
set rs=conn.execute(commandtext,recordsaffected,adcmdtext)
'以下为显示字段名称
for i=0 to rs.fields.count-1
response.write rs(i).name
set conn=nothing
%>

[TopHead]

for i=0 to rst.Fields.count
strtmp=rst.Fields(i).Name '每个字段的名称
next