ASP 显示数据库中表名、字段名、字段内容（只知道数据库文件路径和文件名）

<script type="text/javascript"><!--google_ad_client = "pub-4490194096475053";/* 内容页,300x250,第一屏 */google_ad_slot = "3685991503";google_ad_width = 300;google_ad_height = 250;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

<%
'功能：显示数据库中表名、字段名、字段内容

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
%>
说明一下，如果你的数据库数据过多，运行时候会导致浏览器假死。