Limitar downloads

[edysierra]

Hola a todos!!!
En un sitio al que acceden usuarios registrados, necesito que ciertas descargas esten nlimitadas a, por ejemplo, dos veces nada más.
Mi pregunta es: cómo hacer en un campo determinado de la BD (en la cual se encuentran todos los datos de los usuarios) que haya un contador (o algo asi) que determine el limite de 2 veces para descargar. De ser posible, que en otro campo de Fecha, ingrese las fechas en que ser realizaron ambas descargas.
Aclaro que el usuario previamente se logueó asi que ya hay una variable de sesión iniciada.
Como siempre que me han sacado del embrollo, les gardezco anticipadamente.

Edysierra

[El_Metallick]

haz una pagina downolad.asp que redireccione al archivo y que le sume 1 al contador de descargas del usuario y al momento de mostrar las descargas pones un if que verifique si el numero de descargas del usuario es menor que el que deseas si es asi muestras el enlace, si no muestras solo el texto con una nota correspondiente... saludos

[edysierra]

Te agradezco la rapidez para responder a mi consulta... Ahora, podrías ponerme un par de líneas de código ejemplificandome lo que me acabas de comentar?. Espero no abusar al pedirtelo. Gracias de nuevo

[El_Metallick]

Mira la verdad de las cosas es que no es tan facil como parece... tienes que hacer una tabla en tu base de datos donde relaciones a cada usuario con cada descarga para saber si ha descargado mas de N veces ESA descargfa en particular... eso te lo dejo a ti pero una vez que lo tengas algo de código que te puede servir...

download.asp

Código:

<% 
 Response.Buffer=TRUE 

 url = Request.Querystring("url") 
 usuario = Session("usuario")

 if url <>"" then

 Set oConn = Server.CreateObject("ADODB.Connection")
 oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("bd/base.mdb")&";"

 strsql = "SELECT * FROM descargas_usuarios WHERE usuario = '" & usuario & "'" 

 Set rs = Server.CreateObject("ADODB.RecordSet")
 RS.open strsql, oConn, 3, 3

 if rs.eof then
     rs.AddNew
     rs("descargas")= 1
     rs("url") = url
     rs.update
 else
     rs("descargas")=rs("descargas")+1
     rs.update
 end if 

 rs.Close
 set rs=nothing
 oConn.Close
 response.redirect url
 end if
%>

al mostrar las descargas

Código:

<%
 Set oConn = Server.CreateObject("ADODB.Connection")
 oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("bd/base.mdb")&";"

 strsql = "SELECT * FROM descargas_usuarios WHERE usuario = '" & usuario & "'" 

 Set rs = Server.CreateObject("ADODB.RecordSet")
  rs.open strsql, oConn, 3, 3

 strsql1="SELECT * FROM descargas"

 Set rs1 = Server.CreateObject("ADODB.RecordSet")
   rs1.open strsql1, oConn, 3, 3

if rs("descargas") < 2 Then
response.write("<a href=""download.asp?url=" & rs1("url") & """>Descargar</a>")
else
response.write("Descarga denegada")
end if
%>

Espero te sirva saludos y suerte

[edysierra]

Gracias Metallick
Con el código que me pasaste me quedo totalmente claro. La vinculación del usuario con las descargas en la BD las haré por su ID.
Gracias por tu ayuda...

Edysierra

[El_Metallick]

me alegro haber sido de ayuda... si tienes problemas hasnoslo saber... saludos

[pempas]

Hay un problema,

Si pasas la página web por URL el usuario verá el enlace de descarga, de esa manera podrá acceder siempre escribiéndola en el navegador.

Creo que sería más conveniente utilizar STREAM, en el foro hay muchos ejemplos.

Salu2!

[El_Metallick]

mmmm no habia pensado en eso... la verdad es que tienes la razón... bueno pero se le puede pasar el ID de la descarga o encriptar la URL... saludos