Pregunta:
¿Como hago un banner rotator alimentado por una Bd?: Respuesta:
Para refrescar la página he puesto un refresh (esto lo configurais como querais)
Campos de la base de datos banner1:
ID-----------------Autonumérico
Description------Texto
Url-----------------Texto
Filename---------Texto
Clicks-------------Numérico
Shown------------Numérico
Código:
<html>
<head>
<title>Banenr</title>
<meta http-equiv="refresh" content="6;URL=banner1.asp">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
function MM_openBrWindow(theURL,winName,features) { //v1.2
window.open(theURL,winName,features);
}
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table border="0" cellspacing="0" cellpadding="0" width="359">
<tr>
<td>
<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("demo.mdb") &";DefaultDir="& Server.MapPath(".") &";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"
set rs = Server.CreateObject("ADODB.Recordset")
strRS = "SELECT * from Banner1"
rs.Open strRS, Conn, 1, 3
strRS = CInt(rs.RecordCount)
rs.MoveFirst
randomize
linie = int(rnd(1)*rs.RecordCount)
rs.MoveFirst
rs.Move(linie)
rs("Shown") = rs("Shown") + 1
rs.Update
Response.Write("<a href=javascript
:MM_openBrWindow('redirect1.asp?id= " & rs("ID") & "','Banner','width=523,height=520,scrollbars=yes') ><img src='" & rs("Filename") & "' alt='" & rs("Description") & "' border='0'></a>") & vbCrLf
rs.Close
set rs = nothing
Conn.Close
set Conn = nothing
%>
</td>
</tr>
</table>
</body>
</html>
Código página redirect1.asp:(te cuenta el número de click por página)
<%@ Language=VBScript %>
<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("demo.mdb")
id = Request.QueryString("id")
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM Banner1 WHERE ID=" & id, Conn, 1, 3
rs("Clicks") = rs("Clicks") + 1
rs.Update
url = rs("Url")
rs.Close
set rs = nothing
Conn.Close
set Conn = nothing
Response.Redirect(url)
%>
Y eso es todo
Bueno que tal os ha parecido, por fín he compartido algo, espero que os guste.
Un saludo a todos
