ASP判斷數據庫中表是否存在

<!--#include file="../conn.asp" -->
<%
Function CheckTable (myTable)
'列出數據庫中的所有表
dim rs,getTableName
set rs=conn.openSchema(20)
rs.movefirst
do Until rs.EOF
if rs("TABLE_TYPE")="TABLE" then
'response.write rs("TABLE_NAME") & ","
getTableName=getTableName+rs("TABLE_NAME")&","
end if
rs.movenext
loop
rs.close
set rs=nothing

'判斷數據庫中是否存在此表（下面兩行代碼使待比較表和指定表前后都加上豆號，以精確比較）
dim getTableName2,myTable2
getTableName2=","&getTableName '此字符串后面已經有豆號
myTable2=","&myTable&","
If instr(getTableName2,myTable2)<>0 Then
CheckTable=1 '存在
else
CheckTable=0 '不存在
end if
End Function

Function ChkTable(mytable)
on error resume next
dim rs
set rs = server.CreateObject("adodb.recordset")
rs.open "select top 1 * from "&mytable,conn,1,1
if not err.number=0 Then
'response.write err.number
Err.Clear '清除該錯誤
ChkTable= 0 '"不存在"
else
ChkTable=1 '"存在"
end If
rs.close
Set rs=Nothing 
End Function
%>

<%
'下面是測試代碼
If ChkTable("Yao_User")=1 then ' Yao_User 是自己連的數據庫中的表
Response.Write("Yes")
Else
Response.Write("No")
End If
%>