导读:
<%
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
<%
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