使用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:\WINNT\system32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE" Aegis(1)=".aspx,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG" 解析其它文件请同样使用Aegis(Num)=""这种格式，记得要将dim Aegis(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> .shtm C:\WINNT\system32\inetsrv\ssinc.dll,5,GET,POST<br> .shtml C:\WINNT\system32\inetsrv\ssinc.dll,5,GET,POST<br> .stm C:\WINNT\system32\inetsrv\ssinc.dll,5,GET,POST<br> .asax C:\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 .config,C:\WINNT\Microsoft.NET\Framework\v1.1.4322\aspnet_isapi.dll,5,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>" For ValueIndex = 0 To UBound(IIsWebServiceObj.ScriptMaps) response.write IIsWebServiceObj.Get("ScriptMaps")(ValueIndex) response.write "<br>" Next End Function |
