Vraag : Is Er de Code van het Aspis om omslaginhoud hypelinks te creëren te lezen en?

Is er een fragment van ASPIS dat de omslagen tevredenstelt zal lezen en dan tot hyperlinks aan elk punt in de omslag leidt?

Antwoord : Is Er de Code van het Aspis om omslaginhoud hypelinks te creëren te lezen en?

Stel dit in werking.
Hier uitgegeven aan het werk van http://www.brainjar.com/asp/dirlist/
Zoals hierboven gepost door sujanyadav.

Lijn 32
Dit krijgt de folderweg, aangezien ik niets in de omslag niet dat ik binnen probeer heb, heb ik eenvoudig/
Dit krijgt alles van buiten de omslag.

Goed Geluk
Carrzkiss
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:
<>

<>




De Manifestatie van de Lijst van de Folder van het ASPIS





De Manifestatie van de Lijst van de Folder van het ASPIS

Drie afzonderlijke folders van de wortel van de Webserver worden hieronder getoond („aspis“, „dhtml“ en „js“), tonend alle subdirectories en dossiers. Bovendien, elk dossier wordt getoond als verbinding.

    <>
<>„& omslag. Naam &“ - „_ & omslag. Files.Count & „dossiers,“) als folder.SubFolders.Count > 0 toen Response.Write (folder.SubFolders.Count & „folders,“) beëindig als Response.Write (Ronde (omslag. Grootte/1024) & „KB totaal.“ _ & vbCrLf) Response.Write („
    „& vbCrLf) 'Vertoning een lijst van subomslagen. voor elk punt in folder.SubFolders ListFolderContents (punt. Weg) daarna 'Vertoning een lijst van dossiers. voor elk punt in omslag. Dossiers url = MapURL (item.path) Response.Write („
  • „& punt. Naam &“ - „_ & punt. Grootte & „bytes,“ _ & „het laatst gewijzigd op“ & item.DateLastModified & „.“ _ & „
  • „& vbCrLf) daarna Response.Write („
„& vbCrLf) Response.Write („„& vbCrLf) schemerige rootPath functie van MapURL van de eind sub (weg), url 'Bekeerling een fysieke dossierweg aan een URL voor hypertextverbindingen. rootPath = Server.MapPath (“/„) url = Juist (weg, Len (weg) - Len (rootPath)) MapURL = vervangt (url,“ \ „,“/„) eindfunctie %>
Andere oplossingen  
 
programming4us programming4us