[Resolvido] Banner

[xanburzum 169]

Isto é sistema de rotação de anúncios simples baseado em ASP-SQL Server.

 

Todos os informações dos anúncios (exceto imagens) é armazenado no servidor SQL na tabela chamada Banners.

 

O sistema destina-se a fornecer fácil rotação aleatória e contagem de exibição de anúncios e cliques.

 

Estrutura de dados

 

Primeiro vamos criar uma tabela no banco de dados chamado Banners e terá a seguinte estrutura:

 

Banners

BannerID - Long

Image - varchar(100)

URL - varchar(100)

Hint - varchar(100)

Shown - Long

Clicked - Long

 

E aqui está como você pode adicionar ao seu banco de dados SQL tabela:

 

create table Banners
(
BannerID	 int   identity PRIMARY KEY,
Image	 varchar(100),
URL	  varchar(100),
Hint	 varchar(100),
Shown   int,
Clicked	 int,
)

 

 

Recuperando e mostrando Ad's

 

Tudo que você precisa é só colocar a seguinte linha de código onde quiser que os anúncios seja exibidos:

 

<!--# include virtual = "BannersInc.asp" ->

BannersInc.asp mostra de forma aleatória os anúncios de sua tabela Banners e cria link para o URL de destino.

 

Aqui está o código para BannersInc.asp arquivo.

 

BannersInc.asp

 

<%@ Language=VBScript %>
<%
 Response.Buffer=True

 'Define as constantes ADO 
 const adOpenStatic = 3
 const adLockOptimistic = 3

 '----- Cria e abre a Conexão
 Set MyConnection = Server.CreateObject("ADODB.Connection")
 MyConnection.ConnectionString = "PROVIDER=SQLOLEDB;SERVER=seu_Server;UID=YourUID;" & _
								 "PWD=PWD;DATABASE=DATABASE"
 MyConnection.Open


 SQLBanners = "Select * from Banners"
 Set Banners = Server.CreateObject("ADODB.Recordset")
 Banners.CursorType = adOpenStatic
 Banners.LockType = adLockOptimistic
 Banners.Open SQLBanners, MyConnection

 Randomize Timer
 Banners.Move Int(RND * CInt(Banners.RecordCount))

 '----- Mostrado campo ,Incrementa o valor
 Banners("Shown") = Banners("Shown") + 1
 Banners.Update

 '----- Criar e apresentar Response
 ImageString = "<img src=""" & Banners("Image") & """ alt=""" & Banners("Hint") & """>"
 ResponseString = "<a href=""RedirectMe.asp?URL=" & Banners("URL")
 ResponseString = ResponseString & "&BannerID=" & Banners("BannerID") & """>" & ImageString & "</a>"
 Response.Write ResponseString
 Response.End

 '----- Clean up 
 Banners.Close
 MyConnection.Close
 Set Banners=Nothing
 Set MyConnection=Nothing

%>

Certifique-se de fornecer valores corretos para SERVER, UID, e PWD DATABASE Se a sua imagem não estão no diretório atual, então você deve ajustar ImageString. Cada vez que clicarem em anúncios para usuários o valor é incrementado e usuários é redirecionado para o URL do anúncio.

 

Aqui está o código para RedirectMe.asp

RedirectMe.asp 

<%@ Language=VBScript %>
<% 
 Response.Buffer=True

 'Define as constantes ADO 
 const adOpenStatic = 3
 const adLockOptimistic = 3

 '----- Cria e abre a Conexão
 Set MyConnection = Server.CreateObject("ADODB.Connection")
 MyConnection.ConnectionString = "PROVIDER=SQLOLEDB;SERVER=Seu_Server;UID=YourUID;" & _
								 "PWD=PWD;DATABASE=DATABASE"
 MyConnection.Open

 '----- Incrementa 
 SQLBanners = "Select * from Banners Where BannerID=" & Request.QueryString("BannerID")
 Set Banners = Server.CreateObject("ADODB.Recordset")
 Banners.CursorType = adOpenStatic
 Banners.LockType = adLockOptimistic
 Banners.Open SQLBanners, MyConnection
 Banners("Clicked") = Banners("Clicked") + 1
 Banners.Update
 Response.Redirect(Request.QueryString("URL"))
 Response.End

 '----- Clean up 
 Banners.Close
 MyConnection.Close
 Set Banners=Nothing
 Set MyConnection=Nothing

%>

 

Você terá muita utilidade, informações adicionais sobre seus anúncios do que pode ser facilmente extraído posteriormente da tabela de banners.