SQL Server
系统表：select * from sysobjects where xtype='S'
用户表：select * from sysobjects where xtype='U'
Access
Access 就要复杂多了，代码如下，请注意其中粗体为大写。
<%
dim conn, rs
set conn = server.CreateObject("ADODB.Connection")
conn.Open = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("db1.mdb")
set rs = conn.OpenSchema(20)
do while not rs.eof
if rs("Table_TYPE") = "ACCESS TABLE" then
response.Write("ACCESS表：" & rs("Table_Name") & "<br>")
elseif rs("Table_TYPE") = "SYSTEM TABLE" then
response.Write("系统表：" & rs("Table_Name") & "<br>")
elseif rs("Table_Type") = "TABLE" then
response.Write("用户表：" & rs("Table_Name") & "<br>")
end if
rs.MoveNext
loop
rs.Close
set rs = nothing
conn.Close
set conn = nothing
%>
