使用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 

上一个：如何使用Administrators组用户运行ASP程序
下一个：使用ASP删除指定IIS站点