日期:2014-05-18 浏览次数:20560 次
<% DBName = "[color=#FF0000]F:wwwroot/db.mdb[/color]" if Request.Form("SubmitCreate")<>"" then '创建数据库 Set mycat = Server.CreateObject( "ADOX.Catalog" ) mycat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBName if err.number=0 then Response.Write("<script>alert('数据库创建成功')</script>") end if end if %>