服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - 使用ASP启动/停止指定WEB站点

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

2019-10-26 12:13asp代码网 ASP教程

使用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 

延伸 · 阅读

精彩推荐