Cuestión : ¿Hay código del ASP para leer contenido de la carpeta y para crear hypelinks?

¿Hay un recorte del ASP que lea contenido de las carpetas y después cree enlaces hipertexto a cada artículo en la carpeta? class= del

Respuesta : ¿Hay código del ASP para leer contenido de la carpeta y para crear hypelinks?

Funcionar éste.
Corregido para trabajar aquí de http://www.brainjar.com/asp/dirlist/
Según lo fijado por el sujanyadav arriba.

Línea 32
Esto consigue la trayectoria de directorio, puesto que no tengo nada en la carpeta que estoy intentando adentro, yo tiene un simple/
Esto consigue todo fuera de la carpeta.

Buena suerte
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:

<>

<>




Versión parcial de programa del listado del directorio del ASP









Versión parcial de programa del listado del directorio del ASP



Tres directorios separados de la raíz del web server se exhiben abajo
(“ASP”, “dhtml” y “js”), demostrando todos los sub-directórios y archivos. Además,
cada archivo se exhibe como acoplamiento.







    
<>






<>“y carpeta. Nombre y” - “_
       y carpeta. Files.Count y “archivos, ")
     si folder.SubFolders.Count > 0 entonces
       Response.Write (folder.SubFolders.Count y “directorios, ")
     terminar si
     Response.Write (redondo (carpeta. Clasifica/1024) y “total del KB.” _
       y vbCrLf)

     Response.Write (“
    “y vbCrLf)

     'Exhibir una lista de carpetas secundarias.

     para cada artículo en folder.SubFolders
       ListFolderContents (artículo. Trayectoria)
     después

     'Exhibir una lista de archivos.

     para cada artículo en carpeta. Archivos
       URL = MapURL (item.path)
       Response.Write (“
  • “y artículo. Nombre y” - “_
         y artículo. Tamaño y “octetos,” _
         y “Last modified en” y item.DateLastModified y “.” _
         y “
    • “y vbCrLf)
     después

     Response.Write (“
“y vbCrLf)

     Response.Write (““y rootPath dévil secundario de MapURL de la función del final del vbCrLf) (trayectoria), convertido del URL 'una trayectoria física del archivo a un URL para los acoplamientos de hipertexto. rootPath = Server.MapPath (”/") URL = derecho (trayectoria, Len (trayectoria) - Len (rootPath)) MapURL = substituye (URL,” \ “,”/") la función %> del final
Otras soluciones  
 
programming4us programming4us