使用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