=====================================================================================
«Спасибо за использование программы практической функции, разработанной ASP001 Studio
'Http://www.asp001.net
'=========================================================================================================================
QQ: 1974229
E-mail: [email protected]
'Для получения дополнительных программ скачать, пожалуйста, перейдите по адресу http://www.asp001.net
'======================================================================================
'Введение функции: Start/Stop Указание веб -сайта с помощью ASP
«Эта функция использует ADSI и требует разрешения пользователя группы администраторов
'Имя функции: adminwebsite (компьютер, веб -сайт, доухат)
Разработка программы: ASP001 Studio Chuqi
'Использование: adminwebsite (имя компьютера, номер сайта, запуск/остановка)
Пример: запустите сайт с номером 1 на компьютере 127.0.0.1
'AdminWebsite "127.0.0.1", "1", 1
Пример: остановите сайт с номером сайта 1 на компьютере 127.0.0.1
'AdminWebsite "127.0.0.1", "1", 0
'======================================================================================
FunctionAdminWebsite (компьютер, веб -сайт, доухат)
OnerRorResumenext
Setobjserver = getObject ("iis: //" & computer & "/w3svc/" & websiteNum)
Iferr.number <> 0then
Response.writeNow & ". Код ошибки:" & hex (err) & "-" & "не может открыть указанный сайт <br>"
Эндиф
ifdowhat = 1then
'Используйте начало сайта
objserver.start
Iferr.number <> 0then
Response.write "не может запустить указанный веб -сайт <br>"
еще
Response.write "Указанный веб -сайт был запущен <br>"
Эндиф
elseifdowhat = 0then
'Остановить сайт, используя остановку
objserver.stop
Iferr.number <> 0then
Response.write "не может перестать указать веб -сайт <br>"
еще
Response.write "Указание веб -сайта прекратилось <br>"
Эндиф
эндиф
Конечная функция