复制代码代码如下所示：
< %
函数：在数据库中显示表名、字段名、字段内容
原：wangsdong
原创文章，转载请保留此信息，谢谢。

集= server.createobject（ADODB。记录集）
DB =db1 .mdb
设置conn = server.createobject（数据连接）
connstr =商=微软。飞机。OLEDB数据源。4；=server.mappath（dB）
conn.open connstr

集= conn.openschema（20）
直到rs.eof做

如果RS（3）= 表，则
response.write表的名称：RS（2）
集RS1 = server.createobject（ADODB。记录集）
SQL选择*（RS）（2）
集RS1 = conn.execute（SQL）
response.write字段名称：
我rs1.fields.count-1 = 0
response.write rs1.fields（我）叫。
下一个
response.write

而不是rs1.eof
response.write
我rs1.fields.count-1 = 0
T = rs1.fields（我的名字）。
response.write RS1（T）
下一个
response.write
rs1.movenext
环
response.write
最后如果

移到下一项
环

设置=无
设置conn =没有
%>

只要更改数据库名称并运行程序，就可以看到结果。