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
%>