<%
'功能：显示数据库中表名、字段名、字段内容
set rs=server.CreateObject("adodb.recordset")
db="1.mdb"'更改为自己的数据库路径和文件名
set conn=server.CreateObject("adodb.connection")
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
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 "字段名:<Br>"
For i=0 To rs1.fields.count-1
response.write rs1.fields(i).name&"<Br>"
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)&"<Br>"
Next
response.write "<hr>"
rs1.movenext
Loop
response.write " "
End If
rs.MoveNext
Loop
Set rs=Nothing
Set conn=nothing
%>