摘要：
0 ThenCheckTable=1 '存在elseCheckTable=0 '不存在end ifEnd FunctionFunction ChkTable(mytable)on error resume nextdim rsset rs = server.CreateObject("adodb.recordset")rs.open "select top 1 * from "&mytable,conn,1,1if not err.number=0 Then'response.write err.numberErr.Cle 阅读全文
摘要：
0 Then CheckTable=1 '存在else CheckTable=0 '不存在end ifEnd FunctionFunction 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 ... 阅读全文