使用ASP控制指定站点解析脚本语言函数

时间：2022-09-01 15:57:27
  1. =============================================================  
  2. '       感谢您使用ASPKU工作室开发的实用函数程序  
  3. '               HTTP://WWW.ASPKU.NET  
  4. '=============================================================       
  5. 'ASPKU工作室为您提供订制程序开发、企业互联网拓展服务  
  6. 'QQ： 
  7. 'E-Mail：
  8. '更多程序下载请到HTTP://WWW.ASPKU.NET  
  9. '=============================================================       
  10. '函数介绍：设置指定站点支持脚本语言  
  11. '本函数使用ADSI，需要Administrators组用户权限  
  12. '函数名称：AdminAegis (Computer,SiteNum)  
  13. '程序开发：ASPKU工作室 ChuQi  
  14. '用法：AdminAegis 计算机名，站点编号  
  15. '例：AdminAegis "127.0.0.1","2"  
  16.  
  17. '=============================================================  
  18.  
  19. Function AdminAegis(Computer,SiteNum)  
  20. Set IIsWebServiceObj = GetObject("IIS://"&Computer&"/W3SVC/"&SiteNum)  
  21. dim Aegis(1)  
  22. Aegis(0)=".asp,C:\WINNT\system32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE"  
  23. 'Aegis(1)=".aspx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG"  
  24. '解析其它文件请同样使用Aegis(Num)=""这种格式，记得要将dim Aegis(Num)定义  
  25. '.htw,C:\WINNT\system32\webhits.dll,3,GET,HEAD,POST  
  26. '.ida,C:\WINNT\system32\idq.dll,7,GET,HEAD,POST  
  27. '.idq,C:\WINNT\system32\idq.dll,7,GET,HEAD,POST  
  28. '.asp,C:\WINNT\system32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE  
  29. '.cer,C:\WINNT\system32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE  
  30. '.cdx,C:\WINNT\system32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE  
  31. '.asa,C:\WINNT\system32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE  
  32. '.idc,C:\WINNT\system32\inetsrv\httpodbc.dll,5,GET,POST<br>  
  33. '.shtm C:\WINNT\system32\inetsrv\ssinc.dll,5,GET,POST<br>  
  34. '.shtml C:\WINNT\system32\inetsrv\ssinc.dll,5,GET,POST<br>  
  35. '.stm C:\WINNT\system32\inetsrv\ssinc.dll,5,GET,POST<br>  
  36. '.asax C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG  
  37. '.ascx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG  
  38. '.ashx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG  
  39. '.asmx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG  
  40. '.aspx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG  
  41. '.axd,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG  
  42. '.vsdisco,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG  
  43. '.rem,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG  
  44. '.soap,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG  
  45. '.config,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG  
  46. '.cs,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG  
  47. '.csproj,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG  
  48. '.vb,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG  
  49. '.vbproj,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG  
  50. '.webinfo,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG  
  51. '.licx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG  
  52. '.resx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG  
  53. '.resources,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG  
  54. IIsWebServiceObj.ScriptMaps=Aegis  
  55. IIsWebServiceObj.SetInfo  
  56. '显示支持脚本语言  
  57. response.write "当前站点支持解析列表：<br>"  
  58. For ValueIndex = 0 To UBound(IIsWebServiceObj.ScriptMaps)  
  59.   response.write IIsWebServiceObj.Get("ScriptMaps")(ValueIndex)  
  60.   response.write "<br>"  
  61. Next  
  62. End Function  
标签：

相关文章