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

　　推荐阅读

　　如何从数据库中随机取出10条记录的方法

[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]>>>详细阅读

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

地址：http://www.17bianji.com/kaifa2/ASP/32802.html

 1/2    1