Riconoscere il tipo di file

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)

%>