1<html>
2<head>
3<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
4<title>查看数据库中表、视图等</title>
5<!-- #INCLUDE FILE="ADOVBS.INC" -->
6</head>
7<body>
Dim Conn
Dim RS
Set Conn = Server.CreateObject("ADODB.Connection")
Dim connstr
connstr = "DBQ="+server.mappath("webdb.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
'connstr = "DSN=Sql;UID=sa;PWD=;DATABASE=master"
Conn.CursorLocation = adUseClient
Conn.Open connstr
Set RS = Conn.OpenSchema(adSchemaTables)
1<div align="center"><center>
2<table border="1">
3<tr>
4<td>库名</td>
5<td>表名</td>
6<td>所有者</td>
7<td>类型</td>
8<td>描述</td>
9</tr>
Do Until RS.EOF
1<tr>
2<td>```
3 = RS("TABLE_CATALOG")
4```</td>
5<td>```
6 = RS("TABLE_NAME")
7```</td>
8<td>```
9 = RS("TABLE_SCHEMA")
10```</td>
11<td>```
12 = RS("TABLE_TYPE")
13```</td>
14<td>```
15 = RS("DESCRIPTION")
16```</td>
17</tr>
RS.MoveNext
Loop
1</table>
2</center></div>
3<p>在ACCESS、Microsoft SQL SERVER、IIS4、PWS4中均可运行。<br/>
4还有一个更直观的办法哟，就是直接用SQL语句<br/>
5Access: select * from MSysObjects;<br/>
6SQL Server: select * from dbo.sysobjects<br/>
7Oracle: select * from tab;<br/>
8不过如果你不加限制条件的话，就会一股脑儿把存储结构呀，模块呀什么的全都查出来了<br/>
9露茜 1999年1月17日</p>
10</body>
11</html>