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

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