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

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