<%
dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0;data source="+server.mappath("db.mdb"))
conn.open()
dim dt as datatable=conn.getoledbschematable(oledbschemaguid.tables,new object() {nothing, nothing, nothing, "table"})
dim i,j as integer
for i=0 to dt.rows.count-1
for j=0 to dt.columns.count-1
response.write("i="+i.tostring()+"j="+j.tostring()+dt.rows(i)(j)+"<br>"+chr(10)+chr(13))
next
next
conn.close()
%>
<%
dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0;data source="+server.mappath("db.mdb"))
dim cmd as new oledbcommand("select [name] from msysobjects where [type]=1",conn)
conn.open()
dim dr as oledbdatareader=cmd.executereader()
while(dr.read())
response.write(dr.item(0).tostring()+"<br>")
end while
dr.close()
conn.close()
%>
上面这种方法需要设置数据库中msysobjects表的权限
<%
dim conn as new sqlconnection("server=localhost;database=db;uid=sa;pwd=sa")
dim cmd as new sqlcommand("select name from sysobjects where type='u'",conn)
conn.open()
dim dr as sqldatareader=cmd.executereader()
while(dr.read())
response.write(dr.item(0).tostring()+"<br>")
end while
dr.close()
conn.close()
%>