'Das Folgende ist, um ASP eine SQLServer2000 -Benutzerfunktion hinzuzufügen und eine Datenbank zu erstellen, um sie an DBO' *************************** zu berechtigen: Die Verifizierungsmethode von SQLServer sollte nicht nur als Windows ausgewählt werden, '************************** connection'************************************ This function has passed the test******************************************************' If you have any questions, please communicate with me. In Zukunft werden einige Management -Betriebsprogramme für SQLServer gestartet.
'Parameter: StrlogInname: Anmeldename hinzugefügt, Strpwd: Anmeldename Kennwort, Strdbname: Erstellen Sie einen neuen Datenbanknamen' Beschreibung lokaler Variablen in der Funktion: StrServer: Der Maschinenname, bei dem sich der Server befindet (lokal) Struid: SQL Administrator, 'Strsapwd: SQL -Administrator -Passwort. Die obigen drei Variablen sollten nach Ihrer Situation festgelegt werden
'Diese Funktion ruft hauptsächlich das von System gespeicherte Verfahren auf, um es zu implementieren
'Hinweis: Diese Funktion hat keine Fehlertoleranz. Wenn ein Fehler auftritt, können Sie sicher sein, dass Ihr SQLServer -Setup ein Problem gibt oder dass das Login -Konto oder die Datenbank bereits vorhanden ist.
SubaddusertomSSQL (StrlogInname, Strpwd, Strdbname) 'Definieren von Servervariablen und Systemadministratoranmeldeinformationen, ändern Sie sie gemäß der spezifischen Situation
DimstrServer, Struid, strsapwdstrServer = "(lokal)" struid = "sa" strsapwd = "Dimconn 'Datenbankverbindung
DIMstrdsn 'Datenbankverbindungszeichenfolge
DIMSTRCMD 'Befehlszeichenfolge
Strdsn = "driver = {sqlserver}; server =" & strServer & "; uid =" & struid & ";
'Erstellen Sie eine neue Datenbank strcmd = "erstellteatabase" & strdbnameconn.execute (STRCMD)' Erstellen Sie ein neues Login -Account Strcmd = "sp_addlogin
'Erstellen Sie eine Verbindung zur neuen Datenbank und weisen Sie das neue Anmeldekonto zu, um auf die neue Datenbank strdsn = "triver = {SQLServer}; Server =" & StrServer & "; uid =" & struid & "zugreifen zu können.
pwd = "& sarpwd &" database = "& strdbnamestrcmd =" sp_grantdbaccess '"& stloginname &"' "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 him"EndSub