<>
<>
ASP Adresowy Pozycja Demonstracja
ASP Adresowy Pozycja Demonstracja
Trzy oddzielny książka telefoniczna od the serwer WWW korzeń wystawiać oddzielny
("asp", "dhtml" i "js"), pokazywać wszystkie podkierownictwo i kartoteka. Dodatkowo,
połączenie kartoteka wystawiać jako połączenie.
<>"& falcówka. Imię &" - "_
& falcówka. Files.Count & "kartoteka, ")
jeżeli folder.SubFolders.Count > (0) wtedy
Response.Write (folder.SubFolders.Count & "książka telefoniczna, ")
kończyć jeżeli
Response.Write (Falcówka (falcówka. Rozmiar/1024) & "KB suma." _
& vbCrLf)
Response.Write (""& vbCrLf)
'Wystawiać lista falcówka falcówka.
dla folder.SubFolders rzecz w folder.SubFolders
ListFolderContents (rzecz. Ścieżka)
następnie
'Wystawiać lista kartoteka.
dla falcówka rzecz w falcówka. Kartoteka
url = MapURL (item.path)
Response.Write ("- "& rzecz. Imię &" - "_
& rzecz. Wielkościowy & "bajt," _
& "ostatni zmodyfikowany na" & item.DateLastModified & "." _
& "
"& vbCrLf)
następnie
Response.Write (" "& vbCrLf)
Response.Write (""& vbCrLf) końcówka sub funkcja MapURL (ścieżka) ciemnawy rootPath, url 'Konwertyta fizyczny kartoteka ścieżka URL dla hipertekstowy połączenie. rootPath = Server.MapPath ("/") url = Prawy (ścieżka, Len (ścieżka) - Len (rootPath)) MapURL = Zamieniać (url," \ ","/") końcówka funkcja %>
|