asp讀取資料庫欄位

今天冒出來一個想法，在僅知道資料庫名的情況下，用asp得到資料庫中的所有表名、所有表的欄位名、以及所有欄位中的內容。經過一段時間查詢資料和修改，終於做出來了，現在與大家分享。
< %
'功能：顯示資料庫中表名、欄位名、欄位內容
'原創：wangsdong
'來源：www.111cn.net
'原創文章，轉載請保留此資訊，謝謝
% >
只要改變一下資料庫名，然後運行一下這個程式，就可以看到結果了。

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