<%
sConn = "Provider=SQLOLEDB;Data source=127.0.0.1;Initial Catalog=DB;User ID=sa;Password=sa;"
sTable = "table_name"
Set conn = CreateObject("ADODB.Connection")
conn.Open sConn
Set oCat = CreateObject("ADOX.Catalog")
Set oCat.ActiveConnection = conn
Set colTables = oCat.Tables
b = False
For Each t In colTables
    If t.Name = sTable Then
        b = True
        Exit For
    End If
Next
conn.Close
Set conn = Nothing
Set oCat = Nothing
Set colTables = Nothing

If b Then
    Response.Write "存在" & sTable
Else
    Response.Write "不存在" & sTable
End If

%>