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