asp获取数据库中所有表名和字段名

今天冒出来一个想法，在仅知道数据库名的情况下，用asp得到数据库中的所有表名、所有表的字段名、以及所有字段中的内容。经过一段时间查询资料和修改，终于做出来了，现在与大家分享。

<
%'功能：显示数据库中表名、字段名、字段内容'set rs=server.CreateObject("adodb.recordset")db="db1.mdb"set conn=server.CreateObject("adodb.connection")connstr="Provider=Microsoft.Jet.OLEDB.4.0
Data Source=" &
 Server.MapPath(db)conn.open connstrSet rs=Conn.OpenSchema(20) Do Until rs.EOF If rs(3)="TABLE" Thenresponse.write "表名:"&
rs(2)&
"<
br />
"Set rs1=server.CreateObject("adodb.recordset")sql="select * from "&
rs(2)Set rs1=conn.execute(sql)response.write "字段名:"For i=0 To rs1.fields.count-1response.write rs1.fields(i).name&
"    " Nextresponse.write "<
br />
"Do While Not rs1.eofresponse.write "        "For i=0 To rs1.fields.count-1t=rs1.fields(i).nameresponse.write rs1(t)&
"    "Nextresponse.write " "rs1.movenextLoopresponse.write " "End Ifrs.MoveNext Loop Set rs=NothingSet conn=nothing%>

只要改变一下数据库名，然后运行一下这个程序，就可以看到结果了。