十来年前用过,记不太清了。大概这样 Connstr="DRIVER=Microsoft Access Driver (*.mdb);DBQ="+server.mappath(“/xxx/xxx.mdb”) Set Conn=Server.CreateObject("ADODB.Connection") conn.Open connstr Set shm = conn.OpenSchema(20) shm.MoveFirst Do While Not shm.EOF If shm("TABLE_TYPE") = "TABLE" Then Response.Write shm("table_name") End If shm.MoveNext Loop