<%sub Col_show(tablename)%>
<table border="1" cellspacing="0" cellpadding="3" style='border-collapse:collapse;' bordercolor="#006699">
<%
tablename=trim(tablename)
const adSchemaColumns=4
set rs=Conn.openSchema(adSchemaColumns,Array(empty, empty,tablename,empty))
rs.movefirst
%>
<tr>
<%for i=0 to rs.fields.count-1%>
<td><%=rs.fields(i).name%></td>
<%next%>
</tr>
<%do while not rs.eof%>

<tr>
<%for i=0 to rs.fields.count-1%>
<td>
<%=rs(i)%>
</td>
<%next%>
</tr>

<%rs.movenext
loop
rs.close
set rs=nothing%>
</table>
<%end sub%>

大家帮忙测试一下.

<!--#include file=conn.asp-->

<%

Set rs=Server.CreateObject("ADODB.Recordset")
Sql="select * from TABLENAME"
rs.open sql,Conn,1,1
j=rs.Fields.count
For i=0 to (j-1)
Response.Write("第" & i+1 & "个字段名：" & rs.Fields(i).Name & "<br><br>")
Next
%>

以上代码在我这里测试通过

谢谢版主..呵呵,

转帖------------对数据库字段的一些操作


　　最近，在ASP论坛上看到很多网友问怎么获取数据库表名，字段名以及如何对字段进行删除，增添的操作故写此文。
本人对SQLServer比较熟一些，故以SQLServer为列：
<%
SET Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Server=IP地址;Provider=sqloledb;Database=库名称;UID=用户名;PWD=密码;"
%>
读SqlServer库中的表名:
<%
Set rs=Conn.OpenSchema(20)
While not rs.EOF
Response.Write("所在数据库名:" & rs(0) & "<br>")
Response.Write("所有者:" & rs(1) & "<br>")
Response.Write("表 名:" & rs(2) & "<br>")
Response.Write("表的类型:" & rs(3) & "<br>")
rs.MoveNext
Wend
%>

　　这样，我们知道表名了，现在我们再来看看怎么对表的字段进行操作。
假设：其中数据库中有表：[Things],表中字段为：id,thingsName,thingsType
获取该表的所有字段名：
<%
Dim i,j，Sql
Set rs=Server.CreateObject(“ADODB.Recordset”)
Sql="select * from [Things] where 1<>1"
rs.open sql,Conn,1,1
j=rs.Fields.count
For i=0 to (j-1)
Response.Write("第" & i+1 & "个字段名：" & rs.Fields(i).Name & "<br><br>")
Next
%>

　　好了，现在我们明白了怎么获取字段名了。
如果大家想对获取的字段值进行一些操作，这也是可以的：
比如我们想要删除表[Things]中字段thingsType ，就可
以这样写：
<%
Sql="ALTER TABLE [Things] DROP COLUMN thingsType"
Conn.execute Sql
%>
又比如我们想要添加一个字段thingsCOLOR,它的类型为varchar型，长度为20,且默认值为Red，写法如下：
<%
Sql="ALTER TABLE [Things] ADD thingsCOLOR VARCHAR(20) DEFAULT 'Red'"
Conn.execute Sql
%>
　　

　　以上对字段的基本操作都是用SQL语言实现，在ASP中，通过SQL语言，我们只要有足够的权限就可以完成
更多的数据库操作，比如用CREATE建表，用DROP删除表等等

　　

我发现了ACCESS的库不能用SQL语句对字段进行操作.SQL库可以..

创建的不可以，查询的应该可以
你没有看到我的那个查询和这个文章中的一样吗？

查询可以..