用asp创建mdb数据库

导读：
　　<%
Option Explicit
dim databasename '定义数据库名称
databasename=database.mdb '数据库名称
dim databasepath '定义数据库存放路径
databasepath=Dofficejd21database '数据库绝对路径
dim databasever '定义数据库版本 2000 或者 97
databasever = 2000
Function Createdfile(FilePath,FileName,Ver)
Dim Ca,dbver
select case ver
case 97
dbver = 3.51
case 2000
dbver = 4.0
end select
if dbver then
Set Ca = Server.CreateObject(ADOX.Catalog)
call Ca.Create(Provider=Microsoft.Jet.OLEDB. &dbver &;Data Source= &filepath &filename)
end if
End Function
Createdfile databasepath,databasename,databasever '创建数据库
% >　　Option Explicit
　　dim databasename '定义数据库名称
　　databasename=database.mdb '数据库名称
　　dim databasepath '定义数据库存放路径
　　databasepath=Dofficejd21database '数据库绝对路径
　　dim databasever '定义数据库版本 2000 或者 97
　　databasever = 2000
　　Function Createdfile(FilePath,FileName,Ver)
　　Dim Ca,dbver
　　select case ver
　　case 97
　　dbver = 3.51
　　case 2000
　　dbver = 4.0
　　end select
　　if dbver then
　　Set Ca = Server.CreateObject(ADOX.Catalog)
　　call Ca.Create(Provider=Microsoft.Jet.OLEDB. &dbver &;Data Source= &filepath &filename)
　　end if
　　End Function
　　Createdfile databasepath,databasename,databasever '创建数据库
　　% >

本文转自
http://hi.baidu.com/1__1/blog/item/3c8109d18090f1d6572c84a0.html