'Ce qui suit est d'ajouter une fonction utilisateur SQLServer2000 à ASP et de créer une base de données, donnez-lui des autorisations à DBO' ********************************** Remarque: La méthode de vérification de SqlServer ne devrait pas être sélectionnée comme Windows unique Tester ******************************************************** 'Si vous avez des questions, veuillez communiquer avec moi. À l'avenir, certains programmes d'opération de gestion pour SQLServer seront lancés.
'Paramètres: strloginname: nom de connexion ajouté, strpwd: nom de connexion mot de passe, strdbname: créer un nouveau nom de base de données' Description des variables locales dans la fonction: strServer: le nom de la machine où le serveur est situé (local) Strid: SQL Administrator, "StrSAPWD: SQL Mot de passe administrateur. Les trois variables ci-dessus doivent être définies en fonction de votre situation
'Cette fonction appelle principalement la procédure stockée du système pour l'implémenter
«Remarque: cette fonction n'a pas de tolérance aux défauts. Si une erreur se produit, vous pouvez être sûr qu'il y a un problème avec votre configuration SQLServer, ou que le compte de connexion ou la base de données existe déjà.
SubAdDuersertomSQL (strloginname, strpwd, strdbname) 'Définir les variables du serveur et les informations de connexion de l'administrateur système, les modifier en fonction de la situation spécifique
DimStrServer, struid, strSapWdStRrserver = "(local)" struid = "sa" strSapwd = "" DimConn 'Database Connection
Chaîne de connexion de la base de données dimstrdsn '
Chaîne de commande dimstrcmd '
StrdSn = "Driver = {sqlServer}; server =" & strServer & "; uid =" & struid & "; pwd =" & strSapwd & "; database = maître" 'créer une connexion à la base de données setConn = server.createObject ("adodb.connection")
'Créer une nouvelle base de données strcmd = "CreateDatabase" & strdbnameconn.execcute (strcmd)' Créer un nouveau compte de connexion strcmd = "sp_addlogin '" & strloginname & "', '" & strpwd & "', '& strloginame &" "" "" "" & strpwd) Connect.close Connect.Close & "" "CONN.Execute (strcmd) Connect.Close.
'Créez une connexion à la nouvelle base de données et attribuez le nouveau compte de connexion pour accéder à la nouvelle base de données strdSn = "Driver = {sqlServer}; server =" & strserver & "; uid =" & struid & ";
pwd = "& sarpwd &"; database = "& strdbnamestrcmd =" sp_grantdbaccess '"& strloginname &"' "conn.openstrdsnconn.excute (strcmd)
'Faire le nouveau compte de connexion le propriétaire de la nouvelle base de données strcmd = "sp_addrolemember'db_owner', '" & strloginname & "'" conn.execute (strcmd) 'Close Release Connection Conn.closeSetConn = NothingResponse.write "User" & StrloginName & "a été établi avec" A et a été établie avec une "Database" & Strdbname "pour" pour lui "et une database" & strdbname "pour" pour lui "et a été établi avec une date, et une date de la date" & Strdbname "pour" Autoft.