<% set conn = Server.CreateObject("adodb.connection")
conn.open "pubs","sa"
set rs=conn.execute("select * from authors")
for i=0 to rs.Fields.Count-1 %>
<% =rs(i).name %>
</ul>
<% next
conn.close %>
你改一些库名什么的就可以了。
Set rs=server.CreateObject ("Adodb.Recordset")
strsql="select * from table"
rs.Open strsql,conn,1,1
for i=0 to rs.fields.count-1
Response.Write rs(i).name
next