Grazie a questa funzione, è possibile riconoscere la tipologia di appartenenza di un qualsiasi file indicato come parametro di input.
<%
function analizza(strNome)
dim arrParti
arrParti=split(strNome,".")
dim strEstensione
strEstensione=arrParti(UBOUND(arrParti))
select case strEstensione
case "asp"
analizza="Pagina Active Server Page"
case "aspx"
analizza="Pagina creata in asp.net"
case "php","php3","php4"
analizza="Pagina Personal Home Page"
case "html","htm"
analizza="Pagina web statica"
case "js"
analizza="Pagina contenente Javascript"
case "css"
analizza="Foglio di stile"
case else
analizza="File <b>NON</b> conosciuto in elenco."
end select
end function
'In strFile, bisogna mettere il nome del file che si desidera far analizzare.
dim strFile
strFile="myPage.asp"
response.write analizza(strFile)
%>