请问怎么用ASP代码新建一个空的ACCESS数据库

复制内容到剪贴板

代码:

<%
Dim sDataName,oFso, oCat
sDataName = "data/mdb.mdb"
Set oFso = Server.CreateObject("Scripting.FileSystemObject")
    If Not oFso.FileExists(Server.MapPath(sDataName)) Then    '检查数据库是否存在
        '创建数据库文件
        Set oCat = Server.CreateObject("ADOX.Catalog")
            oCat.Create "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.MapPath(sDataName)
        Set oCat = Nothing
        Response.Write "创建成功!"
    Else
        Response.Write "已经存在!"
    End If
Set oFso = Nothing
%>

谢谢帮忙