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

1. =============================================================  
2. '       感谢您使用ASP001工作室开发的实用函数程序  
3. '               HTTP://WWW.ASPKU.NET  
4. '=============================================================     'ASP001工作室为您提供订制程序开发、企业互联网拓展服务  
5. 'QQ：
6. 'E-Mail：
7. '更多程序下载请到HTTP://WWW.ASPKU.NET  
8. '=============================================================       
9. '函数介绍：使用ASP启动/停止指定WEB站点  
10. '本函数使用ADSI，需要Administrators组用户权限  
11. '函数名称：AdminWebSite(Computer,WebSiteNum,DoWhat)  
12. '程序开发：ASP001工作室 ChuQi  
13. '用法：AdminWebSite(计算机名称,站点编号,启动/停止)  
14. '例：启动127.0.0.1计算机上站点编号为1的站点  
15. 'AdminWebSite "127.0.0.1","1",1  
16. '例：停止127.0.0.1计算机上站点编号为1的站点  
17. 'AdminWebSite "127.0.0.1","1",0  
18. '=============================================================  
19.  
20.  
21.  
22. Function AdminWebSite(Computer,WebSiteNum,DoWhat)  
23. On Error Resume Next  
24. Set objServer = GetObject("IIS://" & Computer & "/W3SVC/" & WebSiteNum)  
25. If Err.Number <> 0 Then  
26. Response.Write Now & ". 错误码: " & Hex(Err)& " - " & "无法开启指定站点<br>"  
27. End If   
28. if Dowhat=1 then  
29. '使用Start启动站点  
30. objServer.Start  
31. If Err.Number <> 0 Then  
32. Response.Write "无法启动指定Web站点<br>"  
33. else  
34. Response.Write "已经启动指定Web站点<br>"  
35. End If  
36. elseif DoWhat=0 then  
37. '使用Stop停止站点  
38. objServer.Stop  
39. If Err.Number <> 0 Then  
40. Response.Write "无法停止指定Web站点<br>"  
41. else  
42. Response.Write "已经停止指定Web站点<br>"  
43. End If  
44. end if  
45. End Function