使用ASP启动/停止指定WEB站点
使用ASP启动/停止指定WEB站点
发布时间:2016-12-29 来源:查字典编辑
摘要:============================================================='感谢您使用ASP...

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

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

'=============================================================

FunctionAdminWebSite(Computer,WebSiteNum,DoWhat)

OnErrorResumeNext

SetobjServer=GetObject("IIS://"&Computer&"/W3SVC/"&WebSiteNum)

IfErr.Number<>0Then

Response.WriteNow&".错误码:"&Hex(Err)&"-"&"无法开启指定站点<br>"

EndIf

ifDowhat=1then

'使用Start启动站点

objServer.Start

IfErr.Number<>0Then

Response.Write"无法启动指定Web站点<br>"

else

Response.Write"已经启动指定Web站点<br>"

EndIf

elseifDoWhat=0then

'使用Stop停止站点

objServer.Stop

IfErr.Number<>0Then

Response.Write"无法停止指定Web站点<br>"

else

Response.Write"已经停止指定Web站点<br>"

EndIf

endif

EndFunction

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新ASP教程学习
热门ASP教程学习
编程开发子分类