Código fuente de 'Obtiene nombre de fichero.asp'
<html>
<head>
<title>Obtiene nombre del fichero - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Obtiene nombre del fichero</font></b></p>
<SCRIPT Language=VBScript RUNAT=SERVER>
Function getFileName()
Dim lsPath, arPath
' Obtain the virtual file path
lsPath = Request.ServerVariables("SCRIPT_NAME")
' Split the path along the /s. This creates an
' one-dimensional array
arPath = Split(lsPath, "/")
' The last item in the array contains the file name
GetFileName =arPath(UBound(arPath,1))
End Function
</SCRIPT>
<% response.write "El nombre de la página actual es: <i>" & getfilename & "</i>" %>
</body>
</html>