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

=============================================================
''       感谢您使用ASP001工作室开发的实用函数程序
''              
''=============================================================     
''ASP001工作室为您提供订制程序开发、企业互联网拓展服务
''QQ：1974229
''E-Mail：Shenyangchuqi@tom.com
''更多程序下载请到 
''=============================================================     
''函数介绍：设置指定站点支持脚本语言
''本函数使用ADSI，需要Administrators组用户权限
''函数名称：AdminAegis (Computer,SiteNum)
''程序开发：ASP001工作室 ChuQi
''用法：AdminAegis 计算机名，站点编号
''例：AdminAegis "127.0.0.1","2"

''=============================================================

Function AdminAegis(Computer,SiteNum)
Set IIsWebServiceObj = GetObject("IIS://"&Computer&"/W3SVC/"&SiteNum)
dim Aegis(1)
Aegis(0)=".asp,C:\WINNT\system32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE"
''Aegis(1)=".aspx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG"
''解析其它文件请同样使用Aegis(Num)=""这种格式，记得要将dim Aegis(Num)定义
''.htw,C:\WINNT\system32\webhits.dll,3,GET,HEAD,POST
''.ida,C:\WINNT\system32\idq.dll,7,GET,HEAD,POST
''.idq,C:\WINNT\system32\idq.dll,7,GET,HEAD,POST
''.asp,C:\WINNT\system32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE
''.cer,C:\WINNT\system32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE
''.cdx,C:\WINNT\system32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE
''.asa,C:\WINNT\system32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE
''.idc,C:\WINNT\system32\inetsrv\httpodbc.dll,5,GET,POST<br>
''.shtm C:\WINNT\system32\inetsrv\ssinc.dll,5,GET,POST<br>
''.shtml C:\WINNT\system32\inetsrv\ssinc.dll,5,GET,POST<br>
''.stm C:\WINNT\system32\inetsrv\ssinc.dll,5,GET,POST<br>
''.asax C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
''.ascx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
''.ashx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG
''.asmx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG
''.aspx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG
''.axd,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG
''.vsdisco,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG
''.rem,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG
''.soap,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG
''.config,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
''.cs,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
''.csproj,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
''.vb,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
''.vbproj,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
''.webinfo,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
''.licx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
''.resx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
''.resources,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
IIsWebServiceObj.ScriptMaps=Aegis
IIsWebServiceObj.SetInfo
''显示支持脚本语言
response.write "当前站点支持解析列表：<br>"
For ValueIndex = 0 To UBound(IIsWebServiceObj.ScriptMaps)
  response.write IIsWebServiceObj.Get("ScriptMaps")(ValueIndex)
  response.write "<br>"
Next
End Function