Dos métodos para que ASP cree una base de datos de SQL Server

<%
************Crear usando ADODB.Connect objeto************************
tenue oconn
DimsNombre de la base de datos
sDatabaseName = "CódigoCreateDB"
Establecer oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Proveedor=SQLOLEDB;Fuente de datos=(local);ID de usuario=sa;Contraseña=;"
oConn.Execute "CREAR BASE DE DATOS" y sDatabaseName
%>

Método 2:

<%@ Idioma=VBScript %>
<%
********************** Uso de la biblioteca de objetos SQLDMO Object**********************
Atenuar oSQLServer
Dim oDatabase
Atenuar oDBFileData
Dim oLogFile
DimsNombre de la base de datos

Nombre de la base de datos

DimsDatapath

sDatabaseName = "CódigoCreateDBTest"
Ruta para guardar archivos de datos
sDatapath = "D:"

crea un objeto de servidor Sql y lo vincula, (local) es el nombre del servidor
Establecer oSQLServer = Server.CreateObject("SQLDMO.SQLServer")
oSQLServer.LoginSecure = True usa seguridad integrada
oSQLServer.Connect "(local)"
oSQLServer.Connect "(local)", "sa", ""

Crear un objeto de base de datos

Establecer oDatabase = Server.CreateObject("SQLDMO.Database")
oDatabase.Name = sDatabaseName

crea un objeto de archivo db
Establecer oDBFileData = Server.CreateObject("SQLDMO.DBFile")
Con oDBFileData
.Name = sDatabaseName & "_data"
.PhysicalName = sDatapath & "" & sDatabaseName & "_data.mdf"
.PrimaryFile = Verdadero
.FileGrowthType = SQLDMOGrowth_MB
.FileGrowth = 1
Terminar con

crea un objeto de archivo de registro
Establecer oLogFile = Server.CreateObject("SQLDMO.LogFile")
Con oLogFile
.Name = sDatabaseName & "_log"
.PhysicalName = sDatapath & "" & sDatabaseName & "_log.ldf"
End With

agrega el objeto de archivo DB y el objeto de archivo de registro al objeto de base de datos DataBase.
oDatabase.FileGroups("PRIMARIO").DBFiles.Agregar oDBFileData
oDatabase.TransactionLog.LogFiles.Add oLogFile

agrega la base de datos al servidor Sql (crea la base de datos)
oSQLServer.Databases.Agregar oDatabaseCerrar

conexión
oSQLServer.Closelibera

el objeto
Establecer oLogFile = Nada
Establecer oDBFileData = Nada
Establecer oDatabase = Nada
Establecer oSQLServer = Nada
%>