<%
Dim oConn,oRS,sConn
Const adUseClient = 3
Const adSchemaTables = 20
Set oConn = Server.CreateObject("ADODB.Connection")
sConn = "DBQ="+server.mappath("chinawuyishan.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
oConn.CursorLocation = adUseClient
oConn.Open connstr
Set oRS = oConn.OpenSchema(adSchemaTables)
%>
<table border="1">
<tr>
<td>库名</td>
<td>表名</td>
<td>所有者</td>
<td>类型</td>
<td>描述</td>
</tr>
<%
Do Until oRS.EOF
%>
<tr>
<td><% = oRS("TABLE_CATALOG") %></td>
<td><% = oRS("TABLE_NAME") %></td>
<td><% = oRS("TABLE_SCHEMA") %></td>
<td><% = oRS("TABLE_TYPE") %></td>
<td><% = oRS("DESCRIPTION") %></td>
</tr>
<%
oRS.MoveNext
Loop
%>
</table>
<%
oConn.Close
Set oConn = Nothing
%>