Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

ricardo coelho designer

Sistema de banner com abas

Por , em ASP Clássico

Recommended Posts

ricardo coelho designer    0

ricardo coelho designer
Postado

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 

<!--#include file="../CfgAdmin.asp"-->
<!--#include file="DBDados.asp"-->
<!--#include file="Tempo.asp"-->


<%

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 "<!--var var_url,var_largura,var_altura;"+Chr(10)
response.write "var_url = "+Chr(34)+SURL+"Includes/Pop.asp?ID="+Cstr(BannerToshow)+"&N="+BuscaDB("nome")+"&K=1&Src="+src+"&R="+Rfer+Chr(34)+";"+Chr(10)	
response.write "var_largura = "+Cstr(Width)+";"+Chr(10)
response.write "var_altura = "+Cstr(Height)+";"+Chr(10)						
response.write "var Abr = window.open(var_url,"+Chr(34)+"janela"+Chr(34)+","+Chr(34)+"toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,copyhistory=no,width="+Chr(34)+"+var_largura+"+Chr(34)+",height="+Chr(34)+"+var_altura+"+Chr(34)+",top=50,left=100"+Chr(34)+");"+Chr(10)
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)
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
HTML = printf(HTML,chr(13)+chr(10),JavaS,JavaS2)
end if ' HTML



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" />
<!-- Começo do Banner -->
<%
if Request.QueryString("IdZona") & "" <> "" then
IdZona = Cint(Request.QueryString("IdZona"))
else
BannerId = Cint(Request.QueryString("BannerId")) 
end if
%>



<!--#include File="MostraBanner.asp"-->

<!-- Fim do Banner -->


</body>
</html>

 

Esse é o iframe que chamo a página anterior

<Iframe src="http://www.mbigucci.com.br/2011/gerenciador/adm_banner/Includes/Frame.asp?refresh=20&IdZona=1" width="922" Height="350" frameborder="0" name="bannersys_silver" scrolling="no"></Iframe>

 

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

 

Bom dia

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

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

e adaptar ao seu code

Compartilhar este post

Link para o post
Compartilhar em outros sites

ricardo coelho designer    0

ricardo coelho designer
Postado

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.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito