<%
strConn="DBQ="+server.mappath("tmp_bbsdata.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set objConn=server.createobject("Adodb.connection")
objConn.open strConn
set rsSchema=objConn.openSchema(20)
rsSchema.movefirst
Do Until rsSchema.EOF
if rsSchema("TABLE_TYPE")="TABLE" then
response.write rsSchema("TABLE_NAME") & "<br>"
end if
rsSchema.movenext
Loop
set objConn=nothing
%>
****************本人资料********************* * qq:38809972 email:38809972@163.com * * 所在城市:成都 * * 所有文章如需转载请注明出处,谢谢! ** *