Use ASP to control the parsing script language functions of specified sites

========================================================== ==================================
'Thank you for using the utility program developed by ASP001 studio.
'Http: // WWW. ASP001.NET
'================================================ ======================================
'Asp001 Studio provides customized program development and enterprise Internet expansion services for you
'Qq: 1974229
'E-mail: Shenyangchuqi@tom.com
'Download more programs at HTTP: // WWW. ASP001.NET.
'================================================ ======================================
'Function Introduction: Set the scripting language supported by the specified site
'This function uses ADSI and requires the permissions of the Administrators group.
'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"
'Use the same format as Aegis (Num) = "" to parse other files. 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 supported scripting languages
Response. write "Resolution list supported by current site: <br>"
For ValueIndex = 0 To UBound (IIsWebServiceObj. ScriptMaps)
Response. write IIsWebServiceObj. Get ("ScriptMaps") (ValueIndex)
Response. write "<br>"
Next
End Function