'O seguinte é adicionar uma função do usuário do SQLSERVER2000 ao ASP e criar um banco de dados, fornecer permissões para dbo' *************************************** conexão '************************************ Esta função passou no teste No futuro, alguns programas de operação de gerenciamento para o SQLServer serão lançados.
'Parâmetros: strLoginName: adicionado nome de login, strpwd: nome de login senha, strdbname: crie um novo nome do banco de dados' Descrição das variáveis locais na função: strserver: o nome da máquina em que o servidor está localizado (local) struid: sql administrador, 'strSapwd: senha do administrador SQL. As três variáveis acima devem ser definidas de acordo com sua situação
'Esta função chama principalmente o procedimento armazenado do sistema para implementá -lo
'Nota: esta função não possui tolerância a falhas. Se ocorrer um erro, você pode ter certeza de que há um problema com sua configuração SQLServer, ou que a conta de login ou o banco de dados já existe.
SubaddUsertomsSql (StrLoginName, strpwd, strdbname) 'Definir variáveis do servidor e informações de login do administrador do sistema, modifique -o de acordo com a situação específica
DIMSTRSERVER, STRUID, STRSAPWDSTRSERVER = "(LOCAL)" STRUID = "SA" StrSAPWD = "" Dimconn 'Conexão do banco de dados
String de conexão de banco de dados DiMstrdsn
String de comando DIMSTRCMD '
Strdsn = "driver = {sqlserver}; server =" & strServer & "; uid =" & struid & "; pwd =" & strsapwd & "; database = master" 'Crie uma conexão com o banco de dados Master SetConn = server.createBject ("adodb.connection").
'Crie um novo banco de dados strcmd = "CreatedAtAbase" & strdbnameconn.execute (strcmd)' Crie uma nova conta de login strcmd = "sp_addlogin '" e strginname & "', ','" e strpwd & "'," & strdbname & "".Exect (strpwd &", "" & strdbname & "".Encut,
'Crie uma conexão com o novo banco de dados e atribua a nova conta de login para acessar o novo banco de dados strdsn = "driver = {sqlserver}; server =" & strserver & "; uid =" & struid & ";
pwd = "& sarpwd &"; database = "& strdbnamestcmd =" sp_grantdbaccess '"& strloginname &"' "Conn.openstrdsNConn.execute (strcmd)
'Faça da nova conta de login o proprietário do novo banco de dados strcmd = "sp_addrolember'db_owner', '" & strloginname & "' 'conn.execute (strcmd)' feche a conexão de liberação e" housting sTensty e "strcmd) e" strloginName "estabelecida" e "strcmed e" estabelecidos e "estabelecidos!