使用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
' 感谢您使用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
上一篇: asp分页的一个类
下一篇: HTML标签及ASP函数速查表