Asp常用通用函数之测试数据库是否存在

 '函数名：TestDBOK
  '作 用：测试数据库是否存在
  '参 数：TestConnStr ---- 数据库链接字串
  '返回值：测试成功返回 True 否则 False
  '示 例：TestDBOK("testConnString")
  '**************************************************
  Public Function TestDBOK(ByVal TestConnStr)
   TestDBOK=False
   DIM fu_Conn
   Set fu_Conn=server.createobject("ADODB.Connection")
   On Error GoTo 0
   On Error Resume Next
   fu_Conn.open TestConnStr
   If Err.Number = 0 Then
   TestDBOK=True
   End If
   On Error GoTo 0
   Set fu_Conn = Nothing
  End Function