ASP中判断SQLSERVER表或者数据库是否存在

1.判定数据库 system_parameter

<%
 '---该页面只能在服务器上执行，data source 使用local; 不需要使用IP;
 dim connstr
  cOnnstr= "PROVIDER=SQLOLEDB;DATA  SOURCE=local;UID=sa;PWD=sa"
  sql="select 1 from master..sysdatabases where name='system_parameter'"

  set rs=server.createobject("adodb.recordset")
  rs.open sql,connstr,1,1

 if not rs.eof then
%>
 .............  >>> DataBase system_parameter 已存在!...............OK!

<%
 rs.close

 ' 判定表factory 是否存在
  '---存在system_parameter,判定是否存在表factory/ipinfo/userinfo?
  sql="select 1 from system_parameter..sysObjects Where Name ='factory' " 
  rs.open sql,connstr,1,1
  if not rs.eof then
%>
 ...................  (1)table: factory 已存在!...............OK!
 
<% 
    
  else
%>
 ...................  (1)table: factory 不存在,是否创建？（Y/N）
 
<%
  end if
 else
%>
 .............  >>> Database system_parameter 不存在，是否新建立？(Y/N)
<%
 end if

 rs.close
 
%>