<% 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创建数据库是没有什么用处的

本文固定链接: http://blog.duoday.com/2006/130.html | 奇风's Blog