|
<%
************使用ADODB.Connect对象创建************************
DimoConn
DimsDatabaseName
sDatabaseName="CodeCreateDB"
SetoConn=Server.CreateObject("ADODB.Connection")
oConn.Open"Provider=SQLOLEDB;DataSource=(local);UserID=sa;Password=;"
oConn.Execute"CREATEDATABASE"&sDatabaseName
%>
方法二：
<%@Language=VBScript%>
<%
*******************使用SQLDMOObject对象库*******************
DimoSQLServer
DimoDatabase
DimoDBFileData
DimoLogFile
DimsDatabaseName
DimsDatapath
数据库名字
sDatabaseName="CodeCreateDBTest"
数据文件保存路径
sDatapath="D:\"
创建SqlServer对象并进行链接,(local)处为Server名字
SetoSQLServer=Server.CreateObject("SQLDMO.SQLServer")
oSQLServer.LoginSecure=True使用集成验证integratedsecurity
oSQLServer.Connect"(local)"
oSQLServer.Connect"(local)","sa",""使用标准验证standardsecurity
创建Database对象
SetoDatabase=Server.CreateObject("SQLDMO.Database")
oDatabase.Name=sDatabaseName
创建db文件对象
SetoDBFileData=Server.CreateObject("SQLDMO.DBFile")
WithoDBFileData
.Name=sDatabaseName&"_data"
.PhysicalName=sDatapath&"\"&sDatabaseName&"_data.mdf"
.PrimaryFile=True
.FileGrowthType=SQLDMOGrowth_MB
.FileGrowth=1
EndWith
创建日志文件对象
SetoLogFile=Server.CreateObject("SQLDMO.LogFile")
WithoLogFile
.Name=sDatabaseName&"_log"
.PhysicalName=sDatapath&"\"&sDatabaseName&"_log.ldf"
EndWith
把DB文件对象和日志文件对象添加到DataBase数据库对象
oDatabase.FileGroups("PRIMARY").DBFiles.AddoDBFileData
oDatabase.TransactionLog.LogFiles.AddoLogFile
把数据库添加到Sqlserver(createthedatabase)
oSQLServer.Databases.AddoDatabase
关闭连接
oSQLServer.Close
释放对象
SetoLogFile=Nothing
SetoDBFileData=Nothing
SetoDatabase=Nothing
SetoSQLServer=Nothing
%> | 
