作家
登录

使用ASP启动/停止指定WEB站点

作者: 来源:www.28hudong.com 2013-03-30 08:49:38 阅读 我要评论

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

  推荐阅读

  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

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)