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

=============================================================
" 感谢您使用ASP001工作室开发的实用函数程序
" HTTP://WWW.ASP001.NET
"=============================================================
"ASP001工作室为您提供订制程序开发、企业互联网拓展服务
"QQ：1974229
"E-Mail：Shenyangchuqi@tom.com
"更多程序下载请到HTTP://WWW.ASP001.NET
"=============================================================
"函数介绍：设置指定站点支持脚本语言
"本函数使用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:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE"
"Aegis（1）=".aspx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG"
"解析其它文件请同样使用Aegis（Num）=""这种格式，记得要将dim Aegis（Num）定义
".htw,C:WINNTsystem32webhits.dll,3,GET,HEAD,POST
".ida,C:WINNTsystem32idq.dll,7,GET,HEAD,POST
".idq,C:WINNTsystem32idq.dll,7,GET,HEAD,POST
".asp,C:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE
".cer,C:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE
".cdx,C:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE
".asa,C:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE
".idc,C:WINNTsystem32inetsrvhttpodbc.dll,5,GET,POST 
".shtm C:WINNTsystem32inetsrvssinc.dll,5,GET,POST 
".shtml C:WINNTsystem32inetsrvssinc.dll,5,GET,POST 
".stm C:WINNTsystem32inetsrvssinc.dll,5,GET,POST 
".asax C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
".ascx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
".ashx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG
".asmx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG
".aspx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG
".axd,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG
".vsdisco,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG
".rem,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG
".soap,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG
".config,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
".cs,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
".csproj,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
".vb,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
".vbproj,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
".webinfo,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
".licx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
".resx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
".resources,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG
IIsWebServiceObj.ScriptMaps=Aegis
IIsWebServiceObj.SetInfo
"显示支持脚本语言
response.write "当前站点支持解析列表： "
For ValueIndex = 0 To UBound（IIsWebServiceObj.ScriptMaps）
 response.write IIsWebServiceObj.Get（"ScriptMaps"）（ValueIndex）
 response.write " "
Next
End Function