悠悠博客 关注Ajax技术与web开发

<%

rem x=0 表示不存在，x=1 表示存在

strConn="DBQ="+server.mappath("zw.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set objConn=server.createobject("Adodb.connection")
objConn.open strConn
set rsSchema=objConn.openSchema(20)
rsSchema.movefirst

tablename="gd111"
x=0
Do Until rsSchema.EOF
  if rsSchema("TABLE_TYPE")="TABLE" then

   if  rsSchema("TABLE_NAME")=tablename then
       x=1
       exit do
   end if
  end if


  rsSchema.movenext
Loop

if x=0 then response.write"没有找到！！！"

if x=1 then response.write"找到了"


set objConn=nothing
%>