|
|
|
|
|
|
|
|
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
%>
;)
|
|
|
|
|
