=============================================================

'感谢您使用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"

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

FunctionAdminAegis(Computer,SiteNum)

SetIIsWebServiceObj=GetObject("IIS://"&Computer&"/W3SVC/"&SiteNum)

dimAegis(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)=""这种格式，记得要将dimAegis(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<br>

'.shtmC:WINNTsystem32inetsrvssinc.dll,5,GET,POST<br>

'.shtmlC:WINNTsystem32inetsrvssinc.dll,5,GET,POST<br>

'.stmC:WINNTsystem32inetsrvssinc.dll,5,GET,POST<br>

'.asaxC: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"当前站点支持解析列表：<br>"

ForValueIndex=0ToUBound(IIsWebServiceObj.ScriptMaps)

response.writeIIsWebServiceObj.Get("ScriptMaps")(ValueIndex)

response.write"<br>"

Next

EndFunction