<%set db=server.CreateObject("ADOX.Catalog")set tbl=server.CreateObject("ADOX.Table")set fld =server.CreateObject("ADOX.Column")dbname="db.mdb"DB.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath(dbname)tbl.ParentCatalog =dbtbl.Name = "Test"DB.Tables.Append tblfld.Type = 130fld.DefinedSize=20fld.Name = "示例字段"tbl.Columns.Append fldresponse.write "数据库已创建!"set db=nothing%>

评论