Fecha y hora actual: Viernes 22 Mar 2019 08:21
Índice del Foro

Foros de programación informática, diseño gráfico y Web

En esta comunidad intentaremos dar soporte de programación a todos los niveles, desde principiantes a profesionales de la informática, desarrollo de programas, programación web y mucho más.

AYUDA asp clasico

Responder al Tema

Índice del Foro > ASP, ASP.NET > AYUDA asp clasico

Autor Mensaje
rodrigo0888



Registrado: 23 Dic 2015
Mensajes: 3

Mensaje Publicado: Martes 19 Ene 2016 18:46

Título del mensaje: AYUDA asp clasico

Responder citando

hola agradeceria mucho la ayuda ya probe varias formas de hacerlo y no queda
para ver carpetas y archivos:
Código:
<% Dim fso
%>
<% ListFolderContents(Server.MapPath("/websysLF")) %>
<% sub ListFolderContents(path)

    dim fs, folder, file, item, url, ObjFile
    set fs = CreateObject("Scripting.FileSystemObject")
    set folder = fs.GetFolder(path)
    Set item = folder.Files %>

    <%'Display the target folder and info.

    Response.Write("<li><b>" & folder.Name & "</b>   ")
Response.Write("<ul> " & vbCrLf)%>

     <% 'Display a list of sub folders.
for each item in folder.SubFolders
       ListFolderContents(item.Path)
    next %>
<%
Response.Write("<table cellpadding=""4"" cellspacing=""5"" >")
For Each item In folder.Files
Response.Write("<tr><td>"&item.Name & String(50 - Len(item.Name), " ")&"</td><td><a href=""download.asp?file=" & Server.UrlEncode(item.Name) & """>Download</a></td></tr>")
Next
Response.Write("</ul>" & vbCrLf)

    Response.Write("</li>" & vbCrLf)

    end sub
 Response.Write("</table>")
%>

la parte de descarga:
Código:

<%
Dim objConn, strFile
Dim intCampaignRecipientID

strFile = Request.QueryString("file")

If strFile <> "" Then

    Response.Buffer = False
    Dim objStream
    Set objStream = Server.CreateObject("ADODB.Stream")
    objStream.Type = 2
    objStream.Open
    objStream.LoadFromFile(Server.MapPath(strFilePath & strFile))
    Response.ContentType = "application/x-unknown"
    Response.Addheader "Content-Disposition", "attachment; filename=" & strFile
    download = objStream.Read
    Response.BinaryWrite download
    objStream.Close
    Set objStream = Nothing

End If
%>

me muestra los archivos pero no en orden y al querer descargar sale el siguiente error:
ADODB.Stream error '800a0bba'

No se pudo abrir el archivo.
muchas gracias de antemano si alguien tiene la respuesta se lo agradeceré un millon deveces

Volver arriba
Ver perfil del usuario Enviar mensaje privado
lamek
Colaborador


Registrado: 07 Mar 2007
Mensajes: 535
Ubicación: Pamplona - España

Mensaje Publicado: Viernes 29 Ene 2016 16:01

Título del mensaje: AYUDA asp clasico

Responder citando

¿Has comprobado que tenga permisos de lectura el archivo?

Un saludo! :s:

Volver arriba
Ver perfil del usuario Enviar mensaje privado
rodrigo0888



Registrado: 23 Dic 2015
Mensajes: 3

Mensaje Publicado: Lunes 08 Feb 2016 21:37

Título del mensaje: AYUDA asp clasico

Responder citando

no era eso pero gracias ya lo logre

Volver arriba
Ver perfil del usuario Enviar mensaje privado
Responder al Tema
Mostrar mensajes anteriores:   
Ir a:  
Todas las horas están en GMT + 2 Horas

Temas relacionados

Tema Autor Foros Respuestas Publicado
El foro no contiene ningún mensaje nuevo

Ayuda creando página web

lamek HTML y CSS 1 Lunes 14 Ene 2019 08:10 Ver último mensaje
El foro no contiene ningún mensaje nuevo

necesito ayuda con el algoritmo de dijkstra en ...

mery Python 0 Jueves 13 Dic 2018 18:07 Ver último mensaje
El foro no contiene ningún mensaje nuevo

AYUDA CON LOGEO Y BASE DE DATOS

gonzaloramirez PHP 1 Domingo 28 Oct 2018 03:29 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Ayuda en algoritmo de productos medios

Antony Python 1 Viernes 26 Oct 2018 06:27 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Necesito ayuda en este codigo en lenguaje c

EmmanuelTR9 C, C#, Visual C++ 0 Lunes 08 Oct 2018 18:38 Ver último mensaje
Panel de Control
No puede crear mensajes, No puede responder temas, No puede editar sus mensajes, No puede borrar sus mensajes, No puede votar en encuestas,