日期:2014-05-18 浏览次数:20671 次
<%
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
%>