<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath ="資料庫路徑"
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
A=array(empty,empty,empty,"TABLE")
Set rs = conn.OpenSchema(20,A)
do while not rs.eof
response.write rs("TABLE_NAME")+""
rs.movenext
loop
%>

---