Pergunta : Há um código do Asp para ler índices do dobrador e para criar hypelinks?

Há uma pequena notícia do ASP que leia índices dos dobradores e crie então hipervínculo a cada artigo no dobrador? class= do

Resposta : Há um código do Asp para ler índices do dobrador e para criar hypelinks?

Funcionar este.
Editado para trabalhar aqui de http://www.brainjar.com/asp/dirlist/
Como afixado pelo sujanyadav acima.

Linha 32
Isto começ o trajeto de diretório, desde que eu não não tenho nada no dobrador que eu estou tentando dentro, mim tem um simples/
Isto começ tudo fora do dobrador.

Boa sorte
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:

<>

<>




Programa demonstrativo da lista do diretório do ASP









Programa demonstrativo da lista do diretório do ASP



Três diretórios separados da raiz do web server são indicados abaixo
(“asp”, “dhtml” e “js”), mostrando todos os sub-directórios e limas. Adicionalmente,
cada lima é indicada como uma ligação.







    
<>






<>“& dobrador. Nome &” - “_
       & dobrador. Files.Count & “limas, ")
     se folder.SubFolders.Count > 0 então
       Response.Write (folder.SubFolders.Count & “diretórios, ")
     terminar se
     Response.Write (redondo (dobrador. Faz sob medida/1024) & do “total KB.” _
       & vbCrLf)

     Response.Write (“
    “& vbCrLf)

     'Indicar uma lista de dobradores secundários.

     para cada artigo em folder.SubFolders
       ListFolderContents (artigo. Trajeto)
     em seguida

     'Indicar uma lista de limas.

     para cada artigo no dobrador. Limas
       URL = MapURL (item.path)
       Response.Write (“
  • “& artigo. Nome &” - “_
         & artigo. Tamanho & “bytes,” _
         & “Last modified em” & item.DateLastModified & “.” _
         & “
    • “& vbCrLf)
     em seguida

     Response.Write (“
“& vbCrLf)

     Response.Write (““& rootPath não ofuscante secundário de MapURL da função do fim do vbCrLf) (trajeto), converso do URL 'um trajeto físico da lima a um URL para as ligações de hypertext. rootPath = Server.MapPath (”/") URL = direito (trajeto, Len (trajeto) - Len (rootPath)) MapURL = substitui (URL,” \ “,”/") função %> do fim
Outras soluções  
 
programming4us programming4us