Componente AdRotator ASP

Exemplo

Exemplo Simples de AdRotator
Este exemplo mostra: como usar o componente AdRotator para exibir uma imagem de anúncio diferente a cada vez que o usuário acessa o site ou atualiza a página.
AdRotator - Link de Imagem
Este exemplo mostra: como usar o componente AdRotator para exibir uma imagem de anúncio diferente a cada vez que o usuário acessa o site ou atualiza a página. Além disso, a imagem em si é um link.

Componente AdRotator ASP

Cada vez que o usuário entra no site ou atualiza a página, o componente ASP AdRotator cria um objeto AdRotator para exibir uma imagem diferente.

Sintaxe:

<%
set adrotator=server.createobject("MSWC.AdRotator")
adrotator.GetAdvertisement("textfile.txt")
%>

Exemplo

Supondo que tenhamos um arquivo chamado "banners.asp". Ele é semelhante a isso:

<html>
<body>
<%
set adrotator=Server.CreateObject("MSWC.AdRotator")
response.write(adrotator.GetAdvertisement("ads.txt"))
%>
</body>
</html>

O arquivo "ads.txt" é semelhante a este:

*
codew3c.gif
http://www.codew3c.com/
Visite CodeW3C.com
80
microsoft.gif
http://www.microsoft.com/
Visite Microsoft
20

O código abaixo do asterisco no arquivo "ads.txt" define como essas imagens serão exibidas, os endereços de link, o texto alternativo das imagens e a probabilidade de exibição em cada 100 cliques. Podemos ver que a probabilidade de exibição da imagem CodeW3C.com é de 80%, enquanto a probabilidade de exibição da imagem Microsoft é de 20%.

Comentário:Para que esses links funcionem corretamente ao serem clicados pelo usuário, precisamos fazer algumas pequenas modificações no arquivo "ads.txt":

REDIRECT banners.asp
*
codew3c.gif
http://www.codew3c.com/
Visite CodeW3C.com
80
microsoft.gif
http://www.microsoft.com/
Visite Microsoft
20

A página de destino receberá uma string de consulta chamada url, que contém o URL para redirecionar.

Comentário:Se precisar definir a altura, largura e borda da imagem, podemos inserir este código abaixo do REDIRECT:

REDIRECT banners.asp
WIDTH 468 
HEIGHT 60 
BORDER 0 
*
codew3c.gif
...
...

O último passo é adicionar este código ao arquivo "banners.asp":

<%
url=Request.QueryString("url")
If url<>"" then Response.Redirect(url)
%>
<html>
<body>
<%
set adrotator=Server.CreateObject("MSWC.AdRotator")
response.write(adrotator.GetAdvertisement("textfile.txt"))
%>
</body>
</html>

Bem, isso é tudo!

Propriedades do componente AdRotator

Propriedade Border

Determina o tamanho da borda ao redor do anúncio.

<%
set adrot=Server.CreateObject("MSWC.AdRotator")
adrot.Border="2"
Response.Write(adrot.GetAdvertisement("ads.txt"))
%>

Propriedade Clickable

Determina se o anúncio em si é um link de hiperligação.

<%
set adrot=Server.CreateObject("MSWC.AdRotator")
adrot.Clickable=false
Response.Write(adrot.GetAdvertisement("ads.txt"))
%>

Propriedade TargetFrame

Nome da janela para exibir o anúncio.

<%
set adrot=Server.CreateObject("MSWC.AdRotator")
adrot.TargetFrame="target='_blank'"
Response.Write(adrot.GetAdvertisement("ads.txt"))
%>

Métodos do componente AdRotator

Método GetAdvertisement

Retorna o HTML para exibir anúncios na página.

<%
set adrot=Server.CreateObject("MSWC.AdRotator")
Response.Write(adrot.GetAdvertisement("ads.txt"))
%>