方法一:
<%
************ 使用adodb.connect对象创建 ************************
dim oconn
dim sdatabasename
sdatabasename = "codecreatedb"
set oconn = server.createobject("adodb.connection")
oconn.open "provider=sqloledb;data source=(local);user id=sa;password=;"
oconn.execute "create database " & sdatabasename
%>
方法二:
<%@ language=vbscript %>
<%
******************* 使用 sqldmo object 对象库 *******************
dim osqlserver
dim odatabase
dim odbfiledata
dim ologfile
dim sdatabasename
dim sdatapath
数据库名字
sdatabasename = "codecreatedbtest"
数据文件保存路径
sdatapath = "d:\"
创建sql server对象并进行链接,(local)处为server名字
set osqlserver = server.createobject("sqldmo.sqlserver")
osqlserver.loginsecure = true 使用集成验证integrated security
osqlserver.connect "(local)"
osqlserver.connect "(local)", "sa", "" 使用标准验证 standard security
创建database对象
set odatabase = server.createobject("sqldmo.database")
odatabase.name = sdatabasename
创建db文件对象
set odbfiledata = server.createobject("sqldmo.dbfile")
with odbfiledata
.name = sdatabasename & "_data"
.physicalname = sdatapath & "\" & sdatabasename & "_data.mdf"
.primaryfile = true
.filegrowthtype = sqldmogrowth_mb
.filegrowth = 1
end with
创建日志文件对象
set ologfile = server.createobject("sqldmo.logfile")
with ologfile
.name = sdatabasename & "_log"
.physicalname = sdatapath & "\" & sdatabasename & "_log.ldf"
end with
把db文件对象和日志文件对象添加到database数据库对象
odatabase.filegroups("primary").dbfiles.add odbfiledata
odatabase.transactionlog.logfiles.add ologfile
把数据库添加到sql server(create the database)
osqlserver.databases.add odatabase
关闭连接
osqlserver.close
释放对象
set ologfile = nothing
set odbfiledata = nothing
set odatabase = nothing
set osqlserver = nothing
%>
