欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

使用ASP启动/停止指定WEB站点

程序员文章站 2023-10-20 12:57:40
============================================================= '    ...
=============================================================
'       感谢您使用asp001工作室开发的实用函数程序
'               http://www.asp001.net
'=============================================================     'asp001工作室为您提供订制程序开发、企业互联网拓展服务
'qq:1974229
'e-mail:shenyangchuqi@tom.com
'更多程序下载请到http://www.asp001.net
'=============================================================     
'函数介绍:使用asp启动/停止指定web站点
'本函数使用adsi,需要administrators组用户权限
'函数名称:adminwebsite(computer,websitenum,dowhat)
'程序开发:asp001工作室 chuqi
'用法:adminwebsite(计算机名称,站点编号,启动/停止)
'例:启动127.0.0.1计算机上站点编号为1的站点
'adminwebsite "127.0.0.1","1",1
'例:停止127.0.0.1计算机上站点编号为1的站点
'adminwebsite "127.0.0.1","1",0
'=============================================================



function adminwebsite(computer,websitenum,dowhat)
on error resume next
set objserver = getobject("iis://" & computer & "/w3svc/" & websitenum)
if err.number <> 0 then
response.write now & ". 错误码: " & hex(err)& " - " & "无法开启指定站点<br>"
end if 
if dowhat=1 then
'使用start启动站点
objserver.start
if err.number <> 0 then
response.write "无法启动指定web站点<br>"
else
response.write "已经启动指定web站点<br>"
end if
elseif dowhat=0 then
'使用stop停止站点
objserver.stop
if err.number <> 0 then
response.write "无法停止指定web站点<br>"
else
response.write "已经停止指定web站点<br>"
end if
end if
end function