|
' Pagina ASP da inserire nella root del sito in quanto deve lanciare il server.mappath . Legge ed elenca tutta la directory attuale e fara' un riferimento con A HREF <%@LANGUAGE = VBScript%> <html> <head> <title>leggi file</title> </head> <body bgcolor="#FF9900"> <a href="http://www........../Index.html">Home</a> <a href="#">Files MIDI</a> <h1 align="center"> Spartiti per tromba solista <br> <% = date %></h1> <% dim C set fs=server.createobject("scripting.filesystemobject") set folderfs=fs.getfolder(server.mappath("/XXXXXX/XXXXX/XXXXXX")) '//elenco sottocartelle '//for each x in folderfs.SubFolders '//response.write x.name &"<br>" '//next response.write "<table align=" & chr(34) & "center" & chr(34) & ">" c = 0 '//elenco file for each f in folderfs.Files response.write "<tr> <td>" '//response.write "<a href='"& "http://XXXXXXXX/XXXXXXXX/XXXXXXX/" & f.name&"' >" & f.name & "</a><br>" c = c + 1 response.write "<A href = " & chr(34) & "http://www.XXXXXXXX/XXXXXXXX/XXXXXXX/" & f.name & chr(34) & " Target=" & chr(34) & "_Blank" & chr(34) & ">" & C & " - " & f.name & "</a> <br>" response.write "</td> </tr>" Next response.write "<tr> <td>" response.write "<strong><center>" response.write "<br> <br> By vb6access@hotmail.com " & date response.write "</td> </tr>" response.write "</table>" set folderfs=nothing set fs=nothing %> <% 'set fs=server.createobject("scripting.filesystemobject") 'set folderfs=fs.getfolder(server.mappath("/")) '//elenco sottocartelle 'for each x in folderfs.SubFolders ' response.write x.name &"<br>" 'next '//elenco file 'for each f in folderfs.Files ' response.write f.name &"<br>" 'next 'set folderfs=nothing 'set fs=nothing %> |