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)
%>

Grazie a questa funzione, è possibile riconoscere la tipologia di appartenenza di un qualsiasi file indicato come parametro di input.

Pubblicato il 7 nov 2002

Link copiato negli appunti

Grazie a questa funzione, è possibile riconoscere la tipologia di appartenenza di un qualsiasi file indicato come parametro di input.

'In strFile, bisogna mettere il nome del file che si desidera far analizzare.

dim strFile

strFile="myPage.asp"

response.write analizza(strFile)

%>