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