< % 
'功能：顯示數據庫中表名、字段名、字段內容 
'原創：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 
% >