用asp建立資料庫

建立|資料|資料庫 在網上看到很多這方面的代碼，但是有些是不能用，有些是垃圾代碼太多，我簡單的修改了一下現在與大家共用一下。
<%
Option Explicit
dim databasename '定義資料庫名稱
databasename="database.mdb" '資料庫名稱
dim databasepath '定義資料庫存放路徑
databasepath="D:\office\jd\21\database\" '資料庫絕對路徑
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 '建立資料庫

%>

本來用asp建立資料庫是沒有什麼用處的，不過，這樣不是顯得自己的東西更好一點。