set cn = server.createobject("ADODB.Connection") set strCnn = server.createobject("ADODB.Recordset") set rstSchema = server.createobject("ADODB.Recordset")
set rstSchema=cn.openSchema(20) rstSchema.movefirst Do Until rstSchema.EOF if rstSchema("TABLE_TYPE")="TABLE" then response.write rstSchema("TABLE_NAME") & " " end if rstSchema.movenext Loop cn.close
'set rstSchema = nothing 'set cn = nothing %>
SQL -->系统表sysobjects
access---》用ADOX的 例子:
<%
Dim cn ,strCnn
set cn = server.createobject("ADODB.Connection") set strCnn = server.createobject("ADODB.Recordset")