[Resolvido] AdRotator com .SWF
Uma vez precisei usar o AdRotator com ASP e nele utilizar banners .SWF, coisa suportada no ASP.NET. Então, segue abaixo uma gambiarra que fiz para funcionar no ASP também.
<%
function geraBanner()
set adrotator=Server.CreateObject("MSWC.AdRotator")
adrotator.TargetFrame = "target=_blank"
banner1 = adrotator.GetAdvertisement("rotator.txt")
banner = right(banner1, 62)
banner = left(banner, 3)
swf = banner1
outro = banner1
if banner = "swf" then
swf = replace(swf, "<A HREF=""", "")
swf = replace(swf, "TARGET=""target=_blank""", "")
swf = replace(swf, "<", "")
swf = replace(swf, ">", "")
swf = replace(swf, "IMG SRC=""", "")
swf = replace(swf, "adrotator.asp?url=http://", "")
swf = replace(swf, "ALT=""BANNER"" WIDTH=728 HEIGHT=90 BORDER=0", "")
swf = replace(swf, "/A", "")
swf = replace(swf, """", "")
swf = replace(swf, " ", ",")
i = Split(swf,",")
response.write "<object width=""728"" height=""90"">"
response.write "<param name=""movie"" value="&i(1)&"></param>"
response.write "<param name=""wmode"" value=""transparent""></param>"
response.write "<embed src="&i(1)&" wmode=""transparent"" width=""728"" height=""90""></embed>"
response.write "</object>"Else
response.write outro
end if
set adrotator = nothing
End function
%>
Para chamar
<% Response.write geraBanner() %>
E o arquivo .TXT
>
Redirect adrotator.asp
Width 728
Height 90
Border 0
*
http://www.locaweb.com.br/images/locaweb/p...ionais_dest.gif
BANNER
60
http://site.locaweb.com.br/images/locaweb/...o1000_mbits.gif
BANNER
50
No caso ai eu aproveitei o script fornecido pela Locaweb e fiz umas adptações. Lambrando que to começando no ASP e gambiarra de quem tá começando pode ser um pouco cabulosa ^_^
Mas uma dúvida que eu tenho. Essa função que eu fiz num vai "pesar" um pouco para o servidor não?
Flw galera!
Discussão (0)
Carregando comentários...