使用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)& " - " & "无法开启指定站点 " End If if Dowhat=1 then '使用Start启动站点 objServer.Start If Err.Number <> 0 Then Response.Write "无法启动指定Web站点 " else Response.Write "已经启动指定Web站点 " End If elseif DoWhat=0 then '使用Stop停止站点 objServer.Stop If Err.Number <> 0 Then Response.Write "无法停止指定Web站点 " else Response.Write "已经停止指定Web站点 " End If end if End Function

　　推荐阅读

　　TSYS一个新闻多种特性时如何进行前台更新?

ACCESS数据库用的方法: Instr(','+Speciality+',',',2,')<>0 完整的代码如下:复制代码代码如下:Function Update08() Dim TemplateFilePath TemplateFilePath=Server.MapPath("../../../default.htm>>>详细阅读

本文标题：使用ASP启动/停止指定WEB站点

地址：http://www.17bianji.com/kaifa2/ASP/32820.html

1/2 1