Using ASP control to specify site resolution scripting language functions _ Application Tips

=============================================================
' Thank you for using the utility function program developed by the ASP001 studio
' HTTP://WWW.ASP001.NET
'=============================================================
' ASP001 Studio to provide you with custom program development, corporate Internet Outreach services
' qq:1974229
' E-mail:shenyangchuqi@tom.com
' More programs download please go to HTTP://WWW.ASP001.NET
'=============================================================
' Function Description: Set the specified site support scripting language
' This function uses ADSI and requires Administrators group user rights
' Function name: Adminaegis (computer,sitenum)
' Program development: ASP001 Studio Chuqi
' Usage: Adminaegis computer name, site number
' Example: 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"
' Resolve other files please use the same format as Aegis = ', remember to define 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
' Show support scripting language
Response.Write "Current site support Resolution list:<br>"
For valueindex = 0 to UBound (iiswebserviceobj.scriptmaps)
Response.Write Iiswebserviceobj.get ("ScriptMaps") (ValueIndex)
Response.Write "<br>"
Next
End Function