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)&"<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-1

　　response.write rs1.fields(i).name&" "

　　Next

　　response.write "<br />"

　　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

　　response.write " "

　　End If

　　rs.MoveNext

　　Loop

　　Set rs=Nothing

　　Set conn=nothing

　　% >