<% Option Explicit %>
<%
Dim oConn
Dim filePath
Dim tablename
Dim oRsSchema
%>
<!-- #include file="inc\conn.asp" -->
<%
set oRsSchema=oConn.openSchema(20)
oRsSchema.movefirst
Do Until oRsSchema.EOF
if oRsSchema("TABLE_TYPE")="TABLE" then
tablename=oRsSchema("TABLE_NAME")
Select Case tablename
Case "notSearchTableName" 'notSearchTableName为实际不打算参与搜索的表名
Case "……" '……省略了不打算参与搜索的表名
Case "Empty"
Case Else
response.write tablename & "<br>"