ASP, εμφανίστε όλα τα αρχεία φακέλου web.

Από {gr}

ASP, εμφανίστε όλα τα αρχεία φακέλου web.

Ανοίξτε το notepad και τοποθετήστε τα παρακάτω

<%
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFiles = objFso.GetFolder(Server.MapPath("."))
Set fileList = objFiles.Files
For Each i in fileList
response.write i.name & "
"
next
%>

Σώστε το αρχείο ως listfiles.asp και ανεβάστε το αρχείο στον φάκελο που σας ενδιαφέρει.

Τρέξτε το αρχείο από το web.


http://tip.gr/dev/samples/listfiles.asp