【下载文档:  asp获取数据库中表名和字段名的代码.txt 】

---

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 response.write " " End If rs.MoveNext Loop Set rs=Nothing Set conn=nothing % > 只要改变一下数据库名，然后运行一下这个程序，就可以看到结果了。