Foros del Web » Programando para Internet » ASP Clásico »

consulta de armado de log de descargas

Estas en el tema de consulta de armado de log de descargas en el foro de ASP Clásico en Foros del Web. tengo una tabla, la listo, hasta ahi todo bien, me muestra todos los registros, que son un titulo con un link a una descarga. lo ...
  #1 (permalink)  
Antiguo 16/06/2005, 10:45
 
Fecha de Ingreso: diciembre-2004
Mensajes: 7
Antigüedad: 20 años, 4 meses
Puntos: 0
consulta de armado de log de descargas

tengo una tabla, la listo, hasta ahi todo bien, me muestra todos los registros,
que son un titulo con un link a una descarga.
lo que necesito hacer es:

que cuando alguien haga esa descarga te guarde en otra tabla, quien y que descargo, logre hacer hacer que cuando alguien haga click en un boton del listado, guarde esos datos, pero no se como hacer para que luego realize la descarga.

espero la ayuda de ustedes,

muchas gracias,

damián
  #2 (permalink)  
Antiguo 17/06/2005, 02:35
Avatar de mamon  
Fecha de Ingreso: enero-2002
Ubicación: Lima
Mensajes: 1.302
Antigüedad: 23 años, 3 meses
Puntos: 3
luego de hacer la graba quieres como q se cargue ese archivo para que te salga el mensaje de guardar o abrir? usa javascript:

<script language="JavaScript">
location.href="<%=archivo%>";
</script>

tb puedes asegurarte que salga la ventana para guardar o abrir.. y no se te abra el archivo en el browser, lo haces con este asp:

<%
If Request.QueryString("descarga")="si" Then ' obtenemos la orden de descarga
Dim objStream, strFileName , archivo , carpeta
archivo = Request.QueryString("file") ' obtenemos el nombre del archivo
carpeta = Server.MapPath(".") 'la ruta de la carpeta
strFileName =""&carpeta&""&archivo&""
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadFromFile strFileName

Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName
Response.ContentType = "application/octet-stream"
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
response.write"Descargando archivo"
Else
response.write"<a href=""descargar.asp?descarga=si&file=borrar.txt"" >Descargar este archivo</a>"

End If
%>

pero como tú quieres q primero se graben algunas cosas antes de hacer el download.. pones ese código entre:
If Request.QueryString("descarga")="si" Then ' obtenemos la orden de descarga
'y
Dim objStream, strFileName , archivo , carpeta

espero te sirva ::
__________________
Yo si sé lo que es trabajar duro, porque lo he visto.
  #3 (permalink)  
Antiguo 17/06/2005, 09:10
 
Fecha de Ingreso: diciembre-2004
Mensajes: 7
Antigüedad: 20 años, 4 meses
Puntos: 0
gracias por tu atención, intente hacer lo que me dijiste, la primera opción, que con esa estaria bien para lo que quiero hacer, pero no se como insertarlo, probe y me tira error.

El codigo que tengo es este, es un insert en una tabla, yo quiero que cuando termine de insertar en vez de hacer el redirect, me descargue / abra el archivo, me guiarias como insertar tu codigo:

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect ("lista.asp")
End If
End If

End If
%>

gracias
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 16:12.