<!--转贴--> <% 　　************使用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 　　%>