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

'函数名：TestTbOK
  '作 用：测试数据库中的表是否存在
  '参 数：ObjConnName ---- 数据库链接定义
  '参 数：TestDbname ---- 被测试表的名称
  '返回值：测试成功返回 True 否则 False
  '示 例：TestTbOK(TestConn,"tbname")
  '**************************************************
  Public Function TestTbOK(ByVal ObjConnName,ByVal TestDbname)
   TestTbOK=False
   DIM fu_Rs
   Set fu_Rs=server.createobject("ADODB.Recordset")
   On Error GoTo 0
   On Error Resume Next
   fu_Rs.open "SELECT * FROM "&TestDbname,ObjConnName,1,1
   fu_Rs.Close
   If Err.Number = 0 Then
   TestTbOK=True
   End If
   On Error GoTo 0
   Set fu_Rs = Nothing
  End Function