'Lo siguiente es agregar una función de usuario de SQLServer2000 a ASP, y para crear una base de datos, darle permisos a DBO' ********************************************* Conexión '************************************ Esta función ha pasado la prueba **********************************************************' Si tiene alguna pregunta, comuníquese conmigo. En el futuro, se lanzarán algunos programas de operación de gestión para SQLServer.
'Parámetros: strloginname: nombre de inicio de sesión agregado, strpwd: contraseña de nombre de inicio de sesión, strdbname: crea nuevo nombre de base de datos' Descripción de las variables locales en la función: strserver: el nombre de la máquina donde el servidor está ubicado (local) struid: administrador sql, 'strsapwd: contraseña del administrador sql. Las tres variables anteriores deben establecerse de acuerdo con su situación.
'Esta función llama principalmente al procedimiento almacenado del sistema para implementarlo
'Nota: Esta función no tiene tolerancia a fallas. Si se produce un error, puede estar seguro de que existe un problema con su configuración SQLServer, o que la cuenta de inicio de sesión o la base de datos ya existe.
SubaddusertomsSQL (strloginname, strpwd, strdbname) 'Definir variables del servidor e información de inicio de sesión del administrador del sistema, modifíquelo de acuerdo con la situación específica
Dimstrserver, struid, strsapwdstrserver = "(local)" struid = "sa" strsapwd = "" Dimconn 'Conexión de la base de datos
Cadena de conexión de base de datos Dimstrdsn '
Cadena de comando dimstrcmd '
Strdsn = "controlador = {sqlserver}; server =" & strserver & "; uid =" & struid & "; pwd =" & strsapwd & "; database = maestro" 'Cree una conexión a la base de datos maestro setconn = server.createObject ("adodb.connection") conn.openstrdsnn
'Crear una nueva base de datos strcmd = "creatatabase" & strdbnameconn.execute (strcmd)' Cree una nueva cuenta de inicio de sesión strcmd = "sp_addlogin '" & strloginname & "," & strpwd & "" "," & strdbname & "" conn.execute (strcmd) conn.cleCleCleCle
'Cree una conexión a la nueva base de datos y asigne la nueva cuenta de inicio de sesión para acceder a la nueva base de datos strdsn = "controlador = {sqlserver}; server =" & strserver & "; uid =" & struid & ";
pwd = "& sarpwd &"; database = "& strdbnamestrcmd =" sp_grantdbaccess '"& strloginname &"' "conn.openstrdsnconn.execute (strcmd)
'Make the new login account the owner of the new database StrCmd="sp_addrolemember'db_owner','"&StrLoginName&"'"Conn.execute(StrCmd)' Close release connection Conn.CloseSetConn=NothingResponse.Write"User"&StrLoginName&"Successfully established!, and a database "&StrDBName&" has been established for él "Endsub