Const adSchemaTables = 20'asp中没有定义adodb.connection openschema参数一的枚举变量值，要自己定义
set conn=server.CreateObject("adodb.connection")
conn.Open "provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("acc.mdb")
set rs=conn.OpenSchema(adSchemaTables)
Do While Not rs.EOF
 response.Write "表名称："&rs.Fields("TABLE_NAME").Value&" | 表类型："& rs.Fields("TABLE_TYPE").Value&"<br/>"
 rs.movenext
Loop
rs.close()
conn.close()