1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
|
<>
<>
Lista Demo för ASP-arkiv
Lista Demo för ASP-arkiv
Tre separata arkiv från webbservern rotar är visat nedanfört
(”asp”, ”dhtml” och ”js”), visningen alla subdirectories och sparar. Dessutom,
varje sparar visas som en anknyta.
<>”& mapp. Namnge &” - ”_,
& mappen. Files.Count & ”sparar,”),
om folder.SubFolders.Count > 0 därefter
Response.Write (folder.SubFolders.Count & ”arkiv,”)
avsluta om
Response.Write (runda (mapp. Storleksanpassar/1024) & ”KB-slutsumma.”, _,
& vbCrLf)
Response.Write (”,”& vbCrLf)
'Visa en lista av undermappar.
för varje objekt i folder.SubFolders
ListFolderContents (objekt. Bana)
därefter
'Visa en lista av sparar.
för varje objekt i mapp. Sparar
url = MapURL (item.path)
Response.Write (”,- ”& objekt. Namnge &” - ”_,
& objekt. Storleksanpassa & ”byte,” _,
& ”Last modified på” & item.DateLastModified & ”.”, _,
& ”,
”& vbCrLf)
därefter
Response.Write (”, ”& vbCrLf)
Response.Write (”,”& vbCrLf) avslutar underfunktionsMapURL (bana) dunkel rootPath, url-'omvänd som en läkarundersökning sparar banan till en URL för hypertext anknyter. rootPath = Server.MapPath (”/”) url = högert (banan, Len (banan) - Len (rootPath)) MapURL = byter ut (url,” \ ”,”/”) avslutar fungerar %>
|
