<%
'***************** File
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(Server.Mappath("./"))
Set files = folder.Files
Set folders = folder.SubFolders
Response.Write ""
Response.Write "" & ucase(folder.name) & "
"
Response.Write "Anterior
"
For Each f in folders
tmp = replace(f.name," ","%20")
Response.Write "[" & f.Name & "]
"
Next
For Each file in Files
if file.name <> "index.asp" then
Response.Write "" & file.Name & "
"
end if
Next
Response.Write ""
Set files = folder.Files
Set file = Nothing
Set fso = Nothing
' Esto es un comentario en ASP
' SALIDA DE ESTE CODIGO:
' index.html
' test.asp y demás archivos
' Desconozco totalmente PHP, pero debe poder 'hacerse.
%>