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

　　=============================================================
感谢您使用ASP001工作室开发的实用函数程序

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

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

FunctionAdminAegis(Computer,SiteNum)
SetIIsWebServiceObj=GetObject(IIS://&Computer&/W3SVC/&SiteNum)
dimAegis(1)
Aegis(0)=.asp,C:\WINNT\system32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE
解析其它文件请同样使用Aegis(Num)=这种格式，记得要将dimAegis(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>
.shtmC:\WINNT\system32\inetsrv\ssinc.dll,5,GET,POST<br>
.shtmlC:\WINNT\system32\inetsrv\ssinc.dll,5,GET,POST<br>
.stmC:\WINNT\system32\inetsrv\ssinc.dll,5,GET,POST<br>
.asaxC:\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
.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>
ForValueIndex=0ToUBound(IIsWebServiceObj.ScriptMaps)
response.writeIIsWebServiceObj.Get(ScriptMaps)(ValueIndex)
response.write<br>
Next
EndFunction