' 感谢您使用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<br>
'.shtm c:winntsystem32inetsrvssinc.dll,5,get,post<br>
'.shtml c:winntsystem32inetsrvssinc.dll,5,get,post<br>
'.stm c:winntsystem32inetsrvssinc.dll,5,get,post<br>
'.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 "当前站点支持解析列表：<br>"
for valueindex = 0 to ubound(iiswebserviceobj.scriptmaps)
response.write iiswebserviceobj.get("scriptmaps")(valueindex)
response.write "<br>"
next
end function
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:)！