Publicado em 6 de set.

Sistema de banner com abas

#asp classico

Bom dia pessoal estou adaptando um sistema de banner que peguei na net que foi desenvolvido por

Desenvolvimento:

Sistema e gráficos por Luciano Lopes.

E-mail: MyGoodness@bol.com.br

MSN: LucianoDotNet@hotmail.com

IRC: Brasnet.org, Nick: Neighbor - Canal: #Neighbor

---------------------------------------------------

Pois bem nesse sistema estou adapatando alguns recursos que é de um banner com abas, o que acontece é que preciso de 2 funcões que é:

1 - clicar em um banner ele mostre o banner que foi clicado

2 - que cada banner tenha um tempo pré determinado antes de chamar o próximo

Abaixo vou postar os códigos pertencentes a essa parte

Esse primeiro código é responsável por mostrar os banners

Function printf(txt,str1,str2,str3)
cont = 0
I = 0
bak = split(txt,str1)
while instr(txt,str1)
txt = mid(txt,instr(txt,str1)+1,len(txt))
cont = 1 + cont
wend
cont = cont + 1
while I < cont
response.write str2 +bak(I)+str3+chr(13)+chr(10)
I= I +1
wend
end function

KRTZ = "Sim"
KRTB = "Sim"
JavaS =""
JavaS2 =""

if IdZona = "" then
IdZona = Request.QueryString("IdZona")
KRTZ = ""
end if

if BannerID = "" then
BannerID = Request.QueryString("BannerID")
KRTB = ""
end if

IF IdZona = "" then IdZona = 0 end if

JavaS3 = "<script language="+Chr(34)+"JavaScript"+Chr(34)+" type=text/JavaScript>"+Chr(10)
JavaS4 = "</script>"+chr(10)

if BannerID = "" then
if not KRTZ = "Sim" then
JavaS = "document.write (unescape('"
JaVaS2 = "'));"
JavaS3 = ""
JavaS4 = ""
end if
SQL = "SELECT * FROM Banners2Zonas WHERE ZonaID = "+Cstr(IdZona)+" AND IdHorario ="+Cstr(IdHorarioAtual)+" AND DDD=0 OR ZonaID = "+Cstr(IdZona)+" AND IdHorario=0 AND DDD=0"
Set BuscaDB = Dados.Execute(SQL)

If not BuscaDB.eof then
BannerToShow = BuscaDB("BannerID")
OnShow = 0

' Se Não tiver registro no Sbanners ele adiciona

	Set BuscaDD = Dados.Execute("SELECT * FROM SBanners WHERE IdZona="+Cstr(IDZona)+" AND IdHorario="+CStr(IDHorarioAtual))
	If Not BuscaDD.eof then
	LastID = BuscaDD("BannerToShow")
	else
	SQL = "Insert into SBanners (BannerToShow,IdHorario,IDZona) "
	SQL = SQL + " values (0,"+CStr(IDHorarioAtual)+","+CStr(IDZona)+")"
	Dados.execute(SQL)
	end if
	Set BuscaDD = nothing
	' Se Não tiver registro no Sbanners ele adiciona

While Not BuscaDB.eof
If OnShow = 1 then
OnShow = 0
BannerToShow = BuscaDB("BannerId")
end if
If LastID = BuscaDB("BannerId") then
OnShow = 1
end if
BuscaDB.MoveNext
Wend

else
BannerToShow = 1
end if
else
BannerToShow=1
Set BuscaDB = Dados.Execute("SELECT * FROM Banners WHERE ID = "+CStr(BannerID))
if not BuscaDB.eof then
BannerToShow = BannerID
If (BuscaDB("Views") > BuscaDB("MaxViews")) and BuscaDB("MaxViews") <> 0 or (BuscaDB("Cliques") > BuscaDB("MaxCliques")) and BuscaDB("MaxCliques") <> 0 then
BannerToShow = 1
end if
end if

if not KRTB = "Sim" then
JavaS = "document.write (unescape('"
JaVaS2 = "'));"
JavaS3 = ""
JavaS4 =""
end if

end if'

'''''' Tabela Anos
SQL = "SELECT * FROM Anos WHERE Ano = "+CSTR(ano)+" AND BannerID = "+CSTR(BannerToShow)
Set BuscaDB = Dados2.execute(SQL)

if not BuscaDB.eof then
TheD = BuscaDB("Views")
TheD = TheD + 1
SQL = "UPDATE Anos SET Views = " & Cstr(TheD) & " WHERE BannerId = "+CStr(BannerToShow)+" AND Ano ="+CSTR(Ano)
Dados2.Execute(SQL)

else

SQL = "INSERT INTO Anos (BannerID,Ano,Views,Cliques) "
SQL = SQL + " values ("+Cstr(BannerToShow)+","+CStr(Ano)+",1,0)"
Dados2.execute(SQL)

SQL = "DELETE * FROM Meses WHERE BannerID="+CSTR(BannerToshow)
Dados2.execute(SQL)
end if
'''''' Tabela Anos

'''''' Tabela Meses
SQL = "SELECT * FROM Meses WHERE Mes = "+CSTR(Mes)+" AND BannerID = "+CSTR(BannerToShow)
Set BuscaDB = Dados2.execute(SQL)

if not BuscaDB.eof then
TheD = BuscaDB("Views")
TheD = TheD + 1
SQL = "UPDATE Meses SET Views = " & Cstr(TheD) & " WHERE BannerId = "+CStr(BannerToShow)+" AND Mes ="+CSTR(Mes)
Dados2.Execute(SQL)

else

SQL = "INSERT INTO Meses (BannerID,Mes,Views,Cliques) "
SQL = SQL + " values ("+Cstr(BannerToShow)+","+CStr(Mes)+",1,0)"
Dados2.execute(SQL)

SQL = "DELETE * FROM Dias WHERE BannerID="+CSTR(BannerToshow)
Dados2.execute(SQL)

end if
'''''' Tabela Meses

'''''' Tabela Dias
SQL = "SELECT * FROM Dias WHERE Dia = "+CSTR(Dia)+" AND BannerID = "+CSTR(BannerToShow)
Set BuscaDB = Dados2.execute(SQL)

if not BuscaDB.eof then
TheD = BuscaDB("Views")
TheD = TheD + 1
SQL = "UPDATE Dias SET Views = " & Cstr(TheD) & " WHERE BannerId = "+CStr(BannerToShow)+" AND Dia ="+CSTR(Dia)
Dados2.Execute(SQL)

else

SQL = "INSERT INTO Dias (BannerID,Dia,Views,Cliques) "
SQL = SQL + " values ("+Cstr(BannerToShow)+","+CStr(Dia)+",1,0)"
Dados2.execute(SQL)

SQL = "DELETE * FROM Horas WHERE BannerID="+CSTR(BannerToshow)
Dados2.execute(SQL)

end if
'''''' Tabela Dias

'''''' Tabela Horas
SQL = "SELECT * FROM Horas WHERE Hora = "+CSTR(Hora)+" AND BannerID = "+CSTR(BannerToShow)
Set BuscaDB = Dados2.execute(SQL)

if not BuscaDB.eof then
TheD = BuscaDB("Views")
TheD = TheD + 1
SQL = "UPDATE Horas SET Views = " & Cstr(TheD) & " WHERE BannerId = "+CStr(BannerToShow)+" AND Hora ="+CSTR(Hora)
Dados2.Execute(SQL)

else

SQL = "INSERT INTO Horas (BannerID,Hora,Views,Cliques) "
SQL = SQL + " values ("+Cstr(BannerToShow)+","+CStr(Hora)+",1,0)"
Dados2.execute(SQL)
end if
'''''' Tabela Horas

 Set BuscaDB = Dados.Execute("SELECT * FROM Banners WHERE ID = "+CStr(BannerToShow))
 NViews = BuscaDB("Views")
 NViews = NViews + 1
 SQL = "UPDATE Banners SET Views = '" & Cstr(NViews) & "' WHERE ID = "+CStr(BannerToShow)
 Dados.Execute(SQL)
 MaxViews = BuscaDB("MaxViews")

 If (NViews >= MaxViews) and (MaxViews <> 0) then
 SQL = "UPDATE Banners2Zonas SET DDD = 1 WHERE BannerId ="+CStr(BannerToShow)
 Dados.Execute(SQL)
 else
 SQL = "UPDATE Banners SET Views = '" & Cstr(NViews) & "' WHERE ID = "+CStr(BannerToShow)
 end if
 Dados.Execute(SQL)

 SQL = "UPDATE SBanners SET BannerToShow = " & Cstr(BannerToshow) & " , IdHorario = " & CStr(IdHorarioAtual) & ", IdZona = " & CStr(IDZona) & " WHERE IDZona = " & CStr(IDZona) & " AND IdHorario = " & CStr(IdHorarioAtual) & ""
 Dados.Execute(SQL)

 SID = BuscaDB("ID")
 Link = BuscaDB("Link")
 Src = BuscaDB("Src")
 HTML = BuscaDB("HTML")
 Formato = BuscaDB("Formato")
 Width = BuscaDB("Width")
 Height = BuscaDB("Height")
 Target = BuscaDB("Target")
 if target = 0 then
 target = "_blank"
 else
 target = "_self"
 end if

 if len(JavaS4) > 0 then
 HTML = TransStr(HTML,"%27","'")
 src = TransStr(src,"%27","'")
 Link = TransStr(link,"%27","'")
 Query =Request.QueryString
 If Query <> "" then
 Query = "?" + Query
 end if
 Rfer = "http://"+Request.ServerVariables("SERVER_NAME")+Request.ServerVariables("SCRIPT_NAME")+Query
 else
 Rfer = Request.ServerVariables("HTTP_REFERER")
 end if

 Rfer = TransStr(Rfer,"://","|")
 Rfer = TransStr (Rfer,"/","~")
 Rfer = TransStr (Rfer,"&","$")%>

<div class="box_itens_menu_flash">
<%SQL = "SELECT * FROM Banners2Zonas WHERE ZonaID = "+Cstr(IdZona)

Set BuscaDB = Dados.Execute(SQL) If not BuscaDB.eof then While not BuscaDB.eof SQL1 = "SELECT * FROM banners WHERE ID = "+CStr(BannerToShow) Set BuscaDB1 = Dados.Execute(SQL1) Do While NOT BuscaDB1.EOF If BuscaDB1("nome") = BuscaDB("Nomebanner") Then response.write "<div class=""itens_menu_flash2""><font color='#800000' face='Tahoma'>"&BuscaDB("nomebanner")&"</font></div>" else response.write "<div class=""itens_menu_flash""> <span class=""link_flash""> <a href='Frame.asp?refresh=20&IdZona=1' target='bannersys_silver'><font color='#000080' face='Tahoma'>"&BuscaDB("nomebanner")&"</font></a> </span> </div>" end if BuscaDB1.MoveNext Loop BuscaDB.MoveNext Wend end if%>

</div>
<div class="box_flash">

If Formato = 2 then
response.write JavaS3
SRC = TransStr(SRC,"://","|")
SRC = TransStr (SRC,"/","~")
SRC = TransStr (SRC,"&","$")
Link = TransStr(Link,"://","|")
Link = TransStr (Link,"/","~")
Link = TransStr (Link,"&","$")
response.write ""+Chr(10)
response.write JavaS4
end if ' Pop-up

If Formato = 1 then
response.write JavaS + "<a href="+Chr(34)+SURL+"Includes/Visitar.asp?ID="+Cstr(BannerToshow)+"&R="+Rfer+Chr(34)+" target="+Chr(34)+target+Chr(34)+"><img src="+Chr(34)+src+Chr(34)+" width="+Chr(34)+Cstr(Width)+Chr(34)+" height="+Chr(34)+CStr(Height)+Chr(34)+" border="+Chr(34)+"0"+Chr(34)+"></a>"+JavaS2+CHR(10)
end if'Imagem

If Formato = 0 then
response.write JavaS3
response.write "<!--"+Chr(10)

response.write "function Link (){"+chr(10)
response.write "var area = window.open ("+Chr(34)+SURL+"Includes/Visitar.asp?ID="+Cstr(BannerToshow)+"&R="+Rfer+Chr(34)+","+Chr(34)+target+Chr(34)+","+chr(10)

response.write Chr(34)+"toolbar=yes,scrollbars=yes,menubar=yes,location=yes,resizable=yes,status=yes"+Chr(34)+");"+Chr(10)
response.write "}"+Chr(10)
response.write " // -->"+Chr(10)
response.write JavaS4
response.write JavaS + "<OBJECT classid="+Chr(34)+"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"+Chr(34)+JavaS2+CHR(10)
response.write JavaS + " codebase="+Chr(34)+"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"+Chr(34)+JavaS2+CHR(10)
response.write JavaS + " WIDTH="+Chr(34)+Cstr(Width)+Chr(34)+" HEIGHT="+Chr(34)+Cstr(Height)+Chr(34)+" id="+Chr(34)+"banner"+Chr(34)+" ALIGN="+Chr(34)+Chr(34)+">"+JavaS2+CHR(10)

response.write JavaS + "<PARAM NAME=movie VALUE="+Chr(34)+Src+Chr(34)+">"+JavaS2+CHR(10)
response.write JavaS + "<PARAM NAME=quality VALUE=high>"+JavaS2+CHR(10)
response.write JavaS + "<PARAM NAME=bgcolor VALUE=#FFFFFF>"+JavaS2+CHR(10)

response.write JavaS + "<EMBED src="+Chr(34)+src+Chr(34)+" quality=high bgcolor=#FFFFFF WIDTH="+Chr(34)+Cstr(Width)+Chr(34)+" HEIGHT="+Chr(34)+Cstr(Height)+Chr(34)+" NAME="+Chr(34)+"banner"+Chr(34)+" ALIGN="+Chr(34)+Chr(34)+JavaS2+CHR(10)

response.write JavaS + "TYPE="+Chr(34)+"application/x-shockwave-flash"+Chr(34)+" PLUGINSPAGE="+Chr(34)+"http://www.macromedia.com/go/getflashplayer"+Chr(34)+"></EMBED>"+JavaS2+CHR(10)
response.write JavaS + "</OBJECT>"+JavaS2+CHR(10)

end if ' flash

if Formato = 3 then
response.write JavaS3
response.write "<!--"+Chr(10)

response.write "function Link (){"+chr(10)
response.write "var area = window.open ("+Chr(34)+SURL+"Includes/Visitar.asp?ID="+Cstr(BannerToshow)+"&R="+Rfer+Chr(34)+","+Chr(34)+target+Chr(34)+","+chr(10)

Set BuscaDB = nothing
Dados.close

' Thank's Mom
' Thank's Dad %>

<img src="http://www.mbigucci.com.br/2011/sombra_flash.png" />
</div>

--------------------------------------------------

Esse código a baixo é quem chama a página acima e e´chamado através de um iframe

<html>
<head>
<META HTTP-EQUIV="Refresh" CONTENT="<%=Request.QueryString("refresh")%>">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body leftmargin="0" topmargin="0">
<link href="/css/estilo.css" rel="stylesheet" type="text/css" />

<% if Request.QueryString("IdZona") & "" <> "" then IdZona = Cint(Request.QueryString("IdZona")) else BannerId = Cint(Request.QueryString("BannerId")) end if %>

</body>
</html>

Esse é o iframe que chamo a página anterior

Bom vou tentando por aqui e quem puder me ajudar eu agradeço.

Bom dia

Discussão (2)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

xanburzum· 6 de set.

existem alguns exemplos com essa função com flash ou você pode usar Silverlight

e adaptar ao seu code

ricardo coelho designer· 6 de set.

Antes de mais nada obrigado pela resposta xanburzum, mas esse script é o único que tem recursos que se adapta ao que necessito, e está quase pronto, quanto as outras formas já pesquisei bastante, mas essa em especial é a que preciso nesse momento, então se puder me auxiliar nesse script em especifico agradeço, mas vou continuar tentanto se eu encontrar aldo posto aqui para que possa ajudar outros interessados.