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

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

【使用ASP控制指定站点解析脚本语言函数】相关文章：

★ 使用类，实现模块化

★ 使用ASP在IIS创建WEB站点的函数

★ 一个实用asp分页函数

★ 如何用ASP代码实现虚拟主机

★ ASP FSO文件处理函数大全

★ 如何使用ASP设置指定站点CPU最大使用程度

★ ASP常用的函数

★ asp 中常用的文件处理函数

★ asp中利用CSW中文分词组件来实现自己网站的内容关键词自动提取

★ 用ASP打开远端MDB文件的方法