asp获取数据库中表名和字段名的代码

今天脑海中闪现了一个奇妙的想法，那就是在仅知道数据库名称的情况下，借助ASP技术获取数据库中所有的表名、各表的字段名以及这些字段中的所有内容。经过一番资料查询和不懈努力，我终于实现了这个想法，现在与大家分享我的成果。

以下是实现这一功能的代码：

```asp

<%

'功能：显示数据库中的表名、字段名、字段内容

'原创：wangsdong

'原创文章，转载请注明出处，谢谢！

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 connstr

Set rs = Conn.OpenSchema(20)

Do Until rs.EOF

If rs(3) = "TABLE" Then

Response.Write "表名:" & rs(2) & "
"

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 - 1

Response.Write rs1.Fields(i).Name & " "

Next

Response.Write "
"

Do While Not rs1.EOF

Response.Write ""

For i = 0 To rs1.Fields.Count - 1

t = rs1.Fields(i).Name

Response.Write rs1(t) & " "

Next

Response.Write ""

rs1.MoveNext

Loop

End If

rs.MoveNext

Loop

Set rs = Nothing

Set conn = Nothing

%>

```

只需修改数据库名称，然后运行这段代码，就可以轻松查看数据库中的所有表名、各表的字段名以及字段内容。这是一种便捷的数据展示方式，对于数据库管理和维护非常有帮助。代码通俗易懂，易于修改和扩展，希望能给大家带来一些启示和帮助。请注意转载时保留原创信息。