Recuperare il nome della pagina da un URL - Script ASP

Possiamo pensare ad un URL come ad un percorso costituito da diversi valori dove il nome della pagina è senz'altro l'ultimo a destra preceduto da uno / che delimita la cartella in cui è contenuta.
Pensando a questa struttura possiamo facilmente recuperare l'URL della pagina splittando il percorso della pagina al carattere / e prendendo l'ultimo valore dell'array risultante.

<%

' Dichiara variabili
Dim strURL
Dim aryURL
Dim strPagina

' Assegna l'URL della pagina corrente 
strURL = Request.ServerVariables("URL")

' Splitta il percorso ai valori / 
aryURL = Split(strURL, "/")

' Prendi l'ultimo elemento dell'array
strPagina = aryURL(Ubound(aryURL))

' Stampa il valore 
Response.Write(strPagina)

%>

Lo stesso metodo è utilizzabile anche per recuperare il nome di un file dato un determinato percorso, ad esempio sull'hard disk.