不用ADOX也可以判断access表是否存在

没有ADOX你也能做到！！

Dim cn，strCnn，rstSchema

set cn = server . createobject(" ADODB。connection ")
set str CNN = server . createobject(" ADODB。recordset ")
set rst schema = server . createobject(" ADODB。记录集”)

strCnn = "Provider=Microsoft。Jet . OLEDB.4.0”
str CNN = str CNN & " Data Source = F:\ asptest \ tree。MDB”
str CNN = str CNN & " Persist Security Info = False "

cn。打开strCnn

set rstSchema = cn . open schema(20)
rst schema . move first
Do直到rst schema。EOF
if rst schema(" TABLE _ TYPE ")= " TABLE " then
response . write rst schema(" TABLE _ NAME ")& "
"
end if
rst schema . movenext
Loop
cn . close

' ' set rst schema = nothing
' ' set = nothing
% >

SQL ->系统表sysobjects

访问-“以ADOX为例:

Dim cn，strCnn

set cn = server . createobject(" ADODB。connection ")
set str CNN = server . createobject(" ADODB。记录集”)

str CNN = " Provider = Microsoft。Jet . OLEDB.4.0数据源=F:\asptest\tree。MDB持久安全信息=False "

cn。Open strCnn
Set tb = Server。CreateObject(“ADOX。table ")
设置cat = Server。CreateObject(“ADOX。catalog ")
设置cat。ActiveConnection = cn

对于每一只猫来说。表
响应。接下来写一个. Name & "
"

cn.close
% >