ayuda con este codigo!!!!!!!!!!!!

ocionet · #1 (**permalink**) 01/09/2002, 20:50

Hola he visitado esta dirección <a href='ir.asp?http://www.webexperto.com/articulos/articulo.asp?cod=62' target='_blank'>http://www.webexperto.com/articulos/arti...</a>

Como han comprobado sirve para poder llamer una imagen desde html, al mismo tiempo que ejecutamos un archivo asp.
A través de esto quiero saber cuantas veces es descargada una imagen

, para comprovar la vericidad de los sistemas de intercambios de banners.

Me podría prestar alguien el codigo para hacer eso, me alojo en brinkster, lo digo porque hay algunos componenetes que los rechaza :-p.
Por lo tanto creo q lo mejor es hacer con una bd, pero no se por donde empezar, soy nuevo en esto de asp.

jgonzale · #2 (**permalink**) 01/09/2002, 22:28

Supongamos que tienes la siguiente tabla para contabilizar el número de accesos a tus imágenes, su nombre es cuenta_imagen:

Tabla cuenta_imagen:
id = Autonumerico, llave primaria
nom_img = Texto, dirección url de la imagen
cuenta = Numerico, Contador que determina cuantas veces se accedido a la imágen.

Entonces el archivo que muestra la imágen y contabiliza sería el siguiente:

**** imagen.asp ****
La página imagen.asp contendrá el siguiente código:

<%
'recogemos el nombre de la imagen
imagen = request.querystring("ver")

'accesamos a la base de datos donde llevarás la cuenta.
sql = "select * from cuenta_imagen where nom_img = '" & imagen & "'"
'chorro de conexión a la bd
rs.open sql, con, 2, 2

if rs.eof then 'Si la imagen no está en la bd, creamos el registro
rs.addnew
rs.fields("nom_img") = imagen
rs.fields("cuenta") = 1
rs.update
else 'Aumentamos en uno el contador
rs.fields("cuenta") = rs.fields("cuenta") + 1
end if

'cerramos y vaciamos el rs
rs.close
set rs = nothing

'redireccionamos hacia la imagen
response.redirect imagen
%>

Bueno, aunque no lo he probado, debería funcionar. Recuerda definir el chorro de conexión y crear la base de datos.

Nota: Este código tambien sirve para llevar la cuenta de accesos a una página.

Si no entiendes algo, Pregunta.

Suerte,

Jean Joel

ocionet · #3 (**permalink**) 02/09/2002, 00:02

Hola he probado de ajustar tu codigo pero no lo logro

, la db esta estructurada tal y como me decistes

, no puedo visualizar la imagen

.

El codigo ha quedado así, a ver si me ayudas a encontrarle el fallo

<%
'recogemos el nombre de la imagen
imagen = request.querystring("ver")

'accedemos a la base de datos donde llevarás la cuenta.
sqltxt = "select * from cuenta_imagen where nom_img = '" & imagen & "'"
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\micuenta\db\nombredb.mdb&quo t;))
set rs=createobject("ADODB.Recordset")
rs.open sqltxt,Conn, 2, 2

if rs.eof then 'Si la imagen no está en la bd, creamos el registro
rs.addnew
rs.fields("nom_img") = imagen
rs.fields("cuenta") = 1
rs.update
else 'Aumentamos en uno el contador
rs.fields("cuenta") = rs.fields("cuenta") + 1
end if

'cerramos y vaciamos el rs
rs.close
set rs = nothing

'redireccionamos hacia la imagen
response.redirect imagen

%>

pd no hagas caso de \ ya que no porque cuando escribo una barre salen dos.

jgonzale · #4 (**permalink**) 02/09/2002, 02:56

El código que envías, al parecer está bien, puede ser que estés llamando mal a la imágen:

Para utilizar el código sería:

<img src="imagen.asp?ver=www.tuhosting/images/unaimagen.jpg">

Teniendo en cuenta que para que la imágen se muestre, unaimagen.jpg debe existir en el directorio www.tuhosting.com/images/ del servidor.

otra cosa, en el archivo imagen.asp, la línea donde está el response.redirect, cambiala por las siguientes líneas:

dir = chr(34) & imagen & chr(34)
response.redirect dir

Prueba con eso, y si no te funciona, mandame la base de datos, el archivo imagen.asp y el archivo de donde invocas a imagen.asp para mirarlos.

Mi correo es:
[email protected]

Jean Joel

ocionet · #5 (**permalink**) 02/09/2002, 16:31

no

no funcionaaaa.

Ahún así ya te he enviado los ficheros a tu mail, por favor echales una mirada, a ver que encuentras.

jgonzale · #6 (**permalink**) 03/09/2002, 00:34

ok, ocionet, hice algunos arreglos y el código quedaría así:

***** Imagen.asp *******

<%
response.Expires = 0
response.Buffer = True
response.Clear

imagen = request.querystring("ver")

sqltxt = "select * from cuenta_imagen where nom_img = '" & imagen & "'"
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("img.mdb"))
set rs=createobject("ADODB.Recordset")
rs.open sqltxt, Conn, 2, 2

if rs.eof then
rs.addnew
rs.fields("nom_img") = imagen
rs.fields("cuenta") = 1
rs.update
else
x = rs.fields("cuenta")
x = x + 1
rs.fields("cuenta") = x
rs.update
end if

rs.close
set rs = nothing

response.redirect imagen
%>

Para llamar a la imagen se hace con la siguiente línea:

<img src="imagen.asp?ver=http://www.pathimg/imagen.gif">

Lo probé y me funciona bien.

De todos modos te envío los archivos a tu E-mail.

Saludos,

Jean Joel