«Следующее - добавить пользовательскую функцию SQLServer2000 в ASP и создать базу данных, дать ей разрешения DBO '******************************** Примечание: метод проверки SQLServer не следует выбрать только в качестве Windows,' ***************************************************************** Соединение '************************************* В будущем будут запущены некоторые программы управления для SQLServer.
«Параметры: strloginname: добавлено имя входа в систему, strpwd: имя входа в систему, пароль, strdbname: Создать новое имя базы данных ' Вышеуказанные три переменные должны быть установлены в соответствии с вашей ситуацией
«Эта функция в основном вызывает хранимую систему процедуру для ее реализации
«Примечание: эта функция не имеет допуска ошибок. Если возникает ошибка, вы можете быть уверены, что существует проблема с вашей настройкой SQLServer, или что учетная запись входа или база данных уже существует .'calladdusertomsSQL («TestLogin», «iAmHere», «db_test»)
SubaddusertomsSql (strloginName, strpwd, strdbname) 'определить переменные сервера и информацию о входе в систему системного администратора, измените его в соответствии с конкретной ситуацией
DimStrserver, Struid, strsapWdStrServer = "(local)" struid = "sa" strsApwd = "" Dimconn Batabase Connection
Строка подключения к базе данных DimStrdsn
DimStrcmd 'Командная строка
Strdsn = "driver = {sqlserver}; server =" & strserver & "; uid =" & struid & "; pwd =" & strsapwd & "; database = Master" 'Соединение соединения с базой Master setConn = server.createObject ("adodb.conection") conn.openstrdsn
'Создать новую базу данных strcmd = "createdatabase" & strdbnameconn.execute (strcmd)' создать новую учетную запись входа в систему strcmd = "sp_addlogin '" & strloginname & ",'" & strpwd & "',' & strdbname &" 'conn.execut
'Создайте соединение с новой базой данных и назначьте новую учетную запись входа для доступа к новой базе данных strdsn = "driver = {sqlserver}; server =" & strserver & "; uid =" & struid & ";
pwd = "& sarpwd &"; database = "& strdbnamestrcmd =" sp_grantdbaccess '"& strloginname &"' "conn.openstrdsnconn.execute (strcmd)
'Сделайте новую учетную запись входа владельцем новой базы данных strcmd = "sp_addrolemember'db_owner', '" & strloginname & "'" conn.execute (strcmd) '' contance connection conn.colosetconn = nothoutresponse.write "user" & strloginnam