Ir para conteúdo

POWERED BY:

Arquivado

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

José Santos

Msg rolando com ASP

Por , em ASP Clássico

Recommended Posts

José Santos    0

José Santos
Postado

Gostaria de saber se alguém poderia me ajudar a montar uma mensagem do tipo notícia rolando na tela, mas esta msg deve estar vinculada a um BD Acces. Alguém pode me ajudar?

Compartilhar este post

Link para o post
Compartilhar em outros sites

brunofilhorj    0

brunofilhorj
Postado

Não sei se serve para o q você quer mas aqui no imasters tem um código em javascript que faz mensagens rolarem na tela. Tá no "dicas". Depois é só você montar um select e jogar dentro da layer.Espero que seja +- isso...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

<%@LANGUAGE="VBSCRIPT"%><%Option Explicit%><%Dim noticia,rsNoticia,rsNoticia2,rsNoticia3,so060,turma,turmanobd%><!--#include file="adovbs.inc" --><%set rsNoticia = Server.CreateObject("ADODB.Recordset")rsNoticia.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("bdcvicc.mdb")&";PWD=acmu"rsNoticia.Source = "SELECT Noticia,Turma FROM tblnoticia WHERE Turma ='*' ORDER BY Idnoticia DESC"rsNoticia.CursorType = adOpenForwardOnlyrsNoticia.CursorLocation = adUseServerrsNoticia.LockType = adLockPessimisticrsNoticia.Open()set rsNoticia2 = Server.CreateObject("ADODB.Recordset")rsNoticia2.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("bdcvicc.mdb")&";PWD=acmu"rsNoticia2.Source = "SELECT Turma FROM tblcurso WHERE Turma <>'000'"rsNoticia2.CursorType = adOpenForwardOnlyrsNoticia2.CursorLocation = adUseServerrsNoticia2.LockType = adLockPessimisticrsNoticia2.Open()%><HTML><HEAD><TITLE>Página das Noticias do Curso Virtual de Ciência dos Computadores</TITLE><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"><script language="JavaScript"><!--  var top;  var base;  var pos;  var speedy;  speedy = 1;  function Iniciar() {    top = document.all.Layer1.offsetHeight + 0;    base = 0 - (document.all.Layer2.offsetHeight + 3);    pos = parseInt(document.all.Layer2.style.top);    Mover();  }  function Mover() {    pos = pos - 2;    document.all.Layer2.style.top=pos;    if (pos<base) { pos=top;}    if (speedy==1) {      setTimeout("Mover()",100)    }  }  window.onload = Iniciar// --></SCRIPT></HEAD><BODY BGCOLOR="#CCCCCC" TEXT="#000000"><TABLE WIDTH="100%" BORDER="0" HEIGHT="100%">  <TR>     <TD>       <DIV ID="Layer1" STYLE="border: 1px solid #000000; width:100%; height:100%; overflow:hidden;" OnMouseOver="speedy=0" OnMouseOut="speedy=1;Mover()">         <DIV ID="Layer2" STYLE="position:absolute; left:0px; top:0px; width:100%; height:100%; background-color:#CCCCCC;">     <p align="center"><font face="Copperplate Gothic Bold" size="2" color="#0033CC">                        </font></p>          <p align="center"><%If not rsNoticia.eof then %>            <font face="Copperplate Gothic Bold" size="1" color="#0033CC"> Gerais</font>             <%    noticia=1    While not rsNoticia.eof%>    <P align="justify"> <font face="Copperplate Gothic Bold" size="1" color="#000000"><%=noticia%> ) <%=(rsNoticia.Fields.Item("Noticia").Value)%></font>           </p>    <%noticia=noticia+1    rsnoticia.movenext     wend    end if     rsnoticia.close()    set rsNoticia=nothing    %>         <%While not rsNoticia2.eof         if session("cargo")="administrador"or session("cargo")="professor" or session("turma")=rsNoticia2.fields.item("Turma").value then                    set rsNoticia3 = Server.CreateObject("ADODB.Recordset")          rsNoticia3.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("bdcvicc.mdb")&";PWD=acmu"          rsNoticia3.Source = "SELECT Noticia FROM tblnoticia WHERE Turma ='"+rsNoticia2.fields.item("Turma").value+"' ORDER BY Noticia ASC"          rsNoticia3.CursorType = adOpenForwardOnly          rsNoticia3.CursorLocation = adUseServer          rsNoticia3.LockType = adLockPessimistic          rsNoticia3.Open()        %>        <p align="center"><%If not rsNoticia3.eof then %>            <font face="Copperplate Gothic Bold" size="1" color="#0033CC">Especificas             da Turma <%=rsNoticia2.fields.item("Turma").value%> </font>             <%    noticia=1    While not rsNoticia3.eof%>    <P align="justify"> <font face="Copperplate Gothic Bold" size="1" color="#000000"><%=noticia%> ) <%=(rsNoticia3.Fields.Item("Noticia").Value)%></font>           </p>    <%noticia=noticia+1    rsnoticia3.movenext     wend    end if    rsNoticia3.close()    set rsNoticia3=nothing      end if            rsnoticia2.movenext    wend     %>        </DIV>      </DIV>    </TD>  </TR></TABLE></BODY></HTML><% rsnoticia2.close() set rsNoticia2=nothing %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

CARA DESCULPA O TAMANHO DO CODIGO ESTOU SEM TEMPO DE PREPARAR UM MENOR PRA vocêMAS TA AI ESTA PAGINA PEGA NOTICIAS DE UM BD E ESCREVE NA TELAA TEXTO FICA ROLANDO ATÉ COLOCAR O MOUSE EM CIMA DA NOTICIATROQUE O QUE TIVER QUE SER TROCADO E VAI FUNCIONAR SE TIVER PEQUENOS PROBLEMAS POSTE AI QUE TE EXPLICO

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o importante nela são as funções javascriptna verdade ela rolaria qualquer coisa que você coloque látextos imagens etc

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