<%
Option Explicit
dim databasename '界说数据库称号
databasename="cnbruce.mdb" '数据库称号
dim databasepath '界说数据库寄存途径
databasepath="e:\cnbruce\database\" '数据库相对途径
dim databasever '界说数据库版本 2000 或 97
databasever = "2000"
Function Createdfile(FilePath,FileName,Ver)
Dim cnbruce,dbver
select case ver
case "97"
dbver = "3.51"
case "2000"
dbver = "4.0"
end select
if dbver <> "" then
Set cnbruce = Server.CreateObject("ADOX.Catalog")
call cnbruce.Create("Provider=Microsoft.Jet.OLEDB." & dbver & ";Data Source=" & filepath & filename)
end if