<% ‘code by netpatch dim dbfile,sql db=”netpatch.asp” dbfile=server.MapPath(db) set ydb=server.CreateObject(“ADOX.Catalog”) ydb.Create “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & dbfile set ydb=nothing if err.number=0 then Response.Write dbfile & ” 创建成功<br> ” else Response.Write “创建失败