USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Sistema de banners rotativo
Postada em 3/1/2005 por Pedro Rodrigues            
Sistema de banners rotativos com banco de dados access...

Vc vai precisar de uma tabela chamada 'Banners' com os campos:
NumBan   Tipo: Byte         'Código de cadastro do banner
DescBan   Tipo: Texto(50) 'Descrição, título do banner
EndBan    Tipo: Memo       'Código HTML a ser exibido na página
ExibsBan  Tipo: Long         'Número de exibições do banner
UltBan     Tipo: Boolean     'Ultimo banner a ser exibo (v/f)

Código ASP, aconselho usar como include...

<%
Set oRsBanners = Server.CreateObject("ADODB.RecordSet")

orsbanners.cursortype = 3

orsbanners.open "select * from banners", ocn

orsbanners.find "ultban = true"

if orsbanners.eof then
  orsbanners.moveMin
else
  orsbanners.movenext
  if orsbanners.eof then
   orsbanners.moveMin
  end if
end if

response.write orsbanners("endban")

BannerExibido = orsbanners("numban")

oRsBanners.Close

ocn.execute "update banners set ultban = false where ultban = true"

ocn.execute "update banners set exibsban = exibsban + 1, ultban = true where numban = " & bannerexibido
%>

;)
 


CyberWEB Network Ltda.    © Copyright 2000-2017   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página