运用ASP启动 停止指定WEB站点

=============================================================

'       感谢您使用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

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!