Function isTable(tbName,dbTp)
    dim isTbSql
    if dbTp="1" then
        isTbSql="select count(*) as num from sysobjects where id=object_id('"&tbName&"')"
        dim rs:set rs=conn.execute(isTbSql)
        if rs("num")>0 then
            isTable="1"
        else
            isTable="0"
        end if
        rs.close
        set rs=nothing
    else
        on error resume next
        dim rs2:set rs2=conn.execute(tbName)
        if err.number=0 then
            isTable="1"
        else
            isTable="0"
        end if
        rs2.close
        set rs2=nothing
    end if
End Function

Function isCol(tbName,colName,dbTy)
  dim isColSql
  if dbTy="1" then
    isColSql="select count(*) as num from syscolumns where id=object_id('"&tbName&"') and name='"&colName&"'"
    dim rs:set rs=conn.execute(isColSql)
    if rs("num")>0 then
      isCol="1"
     else
       isCol="0"
     end if
     rs.close
     set rs=nothing
  else
    isColSql="select "&colName&" from "&tbName
    on error resume next
    dim rs1:set rs1=conn.execute(isColSql)
    if err.number=0 then
      isCol="1"
    else
      iscol="0"
    end if
    rs1.close
    set rs1=nothing
  end if
End Function

Function addTable(byVal tbName,byVal pkCol)
    Dim TSql
    if isTable(tbName,dbType)="0" then
    TSql="Create Table ["&TbName&"]("&pkCol&" int IDENTITY (1,1) CONSTRAINT PrimaryKey PRIMARY KEY);"
    conn.Execute(TSql)
    response.Write("表创建成功")
    else
    response.Write("要创建的表存在")
    end if
End Function

Function addCol(tbName,colName,colType)
  if isTable(tbName,dbType)="1" and isCol(tbName,colName,dbType)="0" then
    Dim TSql
    TSql="Alter Table ["&tbName&"] Add "&colName&" "&colType
    conn.Execute(TSql)
    response.Write("列："&colName&" 创建成功")
  else
    response.Write("列："&colName&" 没有创建，可能表不存在或字段重复")
  end if
End Function

Function delCol(tbName,colName)
  if isTable(tbName,dbType)="1" and isCol(tbName,colName,dbType)="1" then
    Dim TSql
    TSql="Alter Table ["&tbName&"] Drop column "&colName
    conn.Execute(TSql)
    response.Write("列： "&colName&" 删除成功")
  else
    response.Write("表或者列不存在")
  end if
End Function

dim connStr
const dbType="1"
if dbType="0" then
  connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../test.mdb")
else
  connStr="Provider=Sqloledb;User Id=sa;Password=12345a;Initial Catalog=test;Data Source=(local)"
end if
dim conn:set conn=server.CreateObject("adodb.connection")
conn.open connStr
'下面的就是例子
addTable "myTb1","mId"
'addCol "myTb1","mCol_1","nvarchar(50)"
'delCol "myTb1","mCol_1"
'response.Write(isCol("myTb1","mCol_1","0"))
conn.close
set conn=nothing