Ae galera eu crie um codigo baseado em banco de dados para rotação de banners em flash ou foto mesmo.....espero que ajudem alguém ae
<%@LANGUAGE="VBSCRIPT" %>
<html>
<head>
<title>Rotação de Banners</title>
</head>
<body>
<%
'Rotação de Banners
Dim Conn 'Usando para a Conexao com o BD
Dim SQLBannerArray 'Usando para chamar os Banners
Dim rsBanner 'Para Execudar as strings de SQL
Dim contagem_banner 'Contator de Banners
Dim intRandomicNumber23
Dim SQLBanner
Dim rsBanner_2
Dim Foto
Dim varimage5
'Criando a conexao com o Banco de dados
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Banco.mdb")
SQLBannerArray = "Select BannerCod From User_Web_Banner Where BannerStat = 'Ativo' "
Set rsBanner = Conn.execute(SQLBannerArray)
IF Not rsBanner.EOF Then
Dim bannerlateral(1000)
contagem_banner = 0
Do While not rsBanner.EOF
bannerlateral(contagem_banner) = rsBanner("BannerCod")
contagem_banner = contagem_banner + 1
rsBanner.movenext
Loop
'Criação de número randômico
Randomize
intRandomicNumber23 = int((contagem_banner) * Rnd)
SQLBanner = "Select BannerCod, BannerLink, BannerUrl From User_Web_Banner Where BannerStat = 'Ativo' "_
&"And BannerCod = '"& bannerlateral(intRandomicNumber23) &"'"
Set rsBanner_2 = Conn.execute(SQLBanner)
IF Not rsBanner_2.EOF Then
'Response.write(rsBanner_2("BannerCod"))
Foto = rsBanner_2("BannerUrl")
Foto = Mid(Foto, Len(Foto) - 5)
Foto = lcase(Mid(Foto, Instr(Foto,".") + 1))
IF rsBanner_2("BannerLink") <> "" And Foto <> "swf" Then
%>
<a href="<%=rsBanner_2("BannerLink")%>" target="_self">
<%
End IF
IF Foto = "swf" Then
varimage5 = "<embed src='"& rsBanner_2("BannerUrl") &"' width='150' height='250' border='0'>"
Else
varimage5 = "<img src='" & rsBanner_2("BannerUrl") &"' border='0'>"
End IF
Response.Write(varimage5)
IF rsBanner_2("BannerLink") <> "" And Foto <> "swf" Then
%>
</a>
<%
End IF
%>
<BR><BR>
<%
End IF
End IF
%>
</body>
</html>
No Banco de dados
Nome - Banco.mdb
Tabela - User_Web_Banner
Colunas
BannerCod - texto - Codigo
BannerDescr - texto - Descrição
BannerUrl - texto - caminho do swf
BannerLink - texto - Link da imagem
BannerStat - texto - Status (Ativo)
Pergunta
tsarri
Ae galera eu crie um codigo baseado em banco de dados para rotação de banners em flash ou foto mesmo.....espero que ajudem alguém ae
<%@LANGUAGE="VBSCRIPT" %> <html> <head> <title>Rotação de Banners</title> </head> <body> <% 'Rotação de Banners Dim Conn 'Usando para a Conexao com o BD Dim SQLBannerArray 'Usando para chamar os Banners Dim rsBanner 'Para Execudar as strings de SQL Dim contagem_banner 'Contator de Banners Dim intRandomicNumber23 Dim SQLBanner Dim rsBanner_2 Dim Foto Dim varimage5 'Criando a conexao com o Banco de dados Set conn = Server.CreateObject("ADODB.Connection") Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Banco.mdb") SQLBannerArray = "Select BannerCod From User_Web_Banner Where BannerStat = 'Ativo' " Set rsBanner = Conn.execute(SQLBannerArray) IF Not rsBanner.EOF Then Dim bannerlateral(1000) contagem_banner = 0 Do While not rsBanner.EOF bannerlateral(contagem_banner) = rsBanner("BannerCod") contagem_banner = contagem_banner + 1 rsBanner.movenext Loop 'Criação de número randômico Randomize intRandomicNumber23 = int((contagem_banner) * Rnd) SQLBanner = "Select BannerCod, BannerLink, BannerUrl From User_Web_Banner Where BannerStat = 'Ativo' "_ &"And BannerCod = '"& bannerlateral(intRandomicNumber23) &"'" Set rsBanner_2 = Conn.execute(SQLBanner) IF Not rsBanner_2.EOF Then 'Response.write(rsBanner_2("BannerCod")) Foto = rsBanner_2("BannerUrl") Foto = Mid(Foto, Len(Foto) - 5) Foto = lcase(Mid(Foto, Instr(Foto,".") + 1)) IF rsBanner_2("BannerLink") <> "" And Foto <> "swf" Then %> <a href="<%=rsBanner_2("BannerLink")%>" target="_self"> <% End IF IF Foto = "swf" Then varimage5 = "<embed src='"& rsBanner_2("BannerUrl") &"' width='150' height='250' border='0'>" Else varimage5 = "<img src='" & rsBanner_2("BannerUrl") &"' border='0'>" End IF Response.Write(varimage5) IF rsBanner_2("BannerLink") <> "" And Foto <> "swf" Then %> </a> <% End IF %> <BR><BR> <% End IF End IF %> </body> </html>Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.