ASP建立ACCESS空数据库
用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