Ir para conteúdo
Fórum Script Brasil

ursolouco

Veteranos
  • Total de itens

    2.314
  • Registro em

  • Última visita

Posts postados por ursolouco

  1. Mais um Rapa!!!

    Link!

    Esse aqui dá até pra resolver meu problema, mas não seria isto ainda.

    Código:

    <HTML>
    <HEAD>
    <TITLE>iMasters - Exemplo</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 + 3;
        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="#FFFFFF" 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:yellow;">
              <P ALIGN="CENTER">&nbsp;</P>
              <P ALIGN="CENTER"><font face="Arial, Helvetica, sans-serif, Arial Black" size="2"><b>iMasters!</b></font></P>
              <P ALIGN="CENTER"><font face="Arial, Helvetica, sans-serif, Arial Black" size="2">Aqui 
                entra o conte&uacute;do.</font></P>
              <P ALIGN="CENTER"><font face="Arial, Helvetica, sans-serif, Arial Black" size="2">Colocando 
                o mouse na parte amarela, o menu para.</font></P>
              <P ALIGN="CENTER"><font face="Arial, Helvetica, sans-serif, Arial Black" size="2">Tirando 
                o mouse, o menu rola.</font></P>
              </DIV>
          </DIV>
        </TD>
      </TR>
    </TABLE>
    </BODY>
    </HTML>

    Abraços!!!

  2. Brother´s!!!

    Achei um Script no imasters, parece bão, vejam:

    <table width="148" border="0" cellspacing="0" cellpadding="2" bgcolor="#F7F7F7">
      <tr>
        <td><font face="Arial, Helvetica, sans-serif, Arial Black" size="2">Novidades:</font></td>
      </tr>
    </table>
      <script language="JavaScript1.2">
    var largura=150
    var altura=120
    var bgcolor='white'
    var fundo='' 
    
    var mensagens=new Array()
    mensagens[0]="<font face='Arial' size=2><a href='Coloque o endereço da página 1 aqui'>Coloque o texto do link 1 aqui</a></font></center>"
    mensagens[1]="<font face='Arial' size=2><a href='Coloque o endereço da página 2 aqui'>Coloque o texto do link 2 aqui</a></font></center>"
    mensagens[2]="<font face='Arial' size=2><a href='Coloque o endereço da página 3 aqui'>Coloque o texto do link 3 aqui</a></font></center>"
    mensagens[3]="<font face='Arial' size=2><a href='Coloque o endereço da página 4 aqui'>Coloque o texto do link 4 aqui</a></font></center>"
    mensagens[4]="<font face='Arial' size=2><a href='Coloque o endereço da página 5 aqui'>Coloque o texto do link 5 aqui</a></font></center>" 
    
    if (mensagens.length>1)
    i=2
    else
    i=0
    
    function mover1(whichlayer){
    tlayer=eval(whichlayer)
    if (tlayer.top>0&&tlayer.top<=5){
    tlayer.top=0
    setTimeout("mover1(tlayer)",3000)
    setTimeout("mover2(document.principal.document.segundo)",3000)
    return
    }
    if (tlayer.top>=tlayer.document.height*-1){
    tlayer.top-=5
    setTimeout("mover1(tlayer)",100)
    }
    else{
    tlayer.top=altura
    tlayer.document.write(mensagens[i])
    tlayer.document.close()
    if (i==mensagens.length-1)
    i=0
    else
    i++
    }
    }
    
    function mover2(whichlayer){
    tlayer2=eval(whichlayer)
    if (tlayer2.top>0&&tlayer2.top<=5){
    tlayer2.top=0
    setTimeout("mover2(tlayer2)",3000)
    setTimeout("mover1(document.principal.document.primeiro)",3000)
    return
    }
    if (tlayer2.top>=tlayer2.document.height*-1){
    tlayer2.top-=5
    setTimeout("mover2(tlayer2)",100)
    }
    else{
    tlayer2.top=altura
    tlayer2.document.write(mensagens[i])
    tlayer2.document.close()
    if (i==mensagens.length-1)
    i=0
    else
    i++
    }
    }
    
    function mover3(whichdiv){
    tdiv=eval(whichdiv)
    if (tdiv.style.pixelTop>0&&tdiv.style.pixelTop<=5){
    tdiv.style.pixelTop=0
    setTimeout("mover3(tdiv)",3000)
    setTimeout("mover4(segundo2)",3000)
    return
    }
    if (tdiv.style.pixelTop>=tdiv.offsetHeight*-1){
    tdiv.style.pixelTop-=5
    setTimeout("mover3(tdiv)",100)
    }
    else{
    tdiv.style.pixelTop=altura
    tdiv.innerHTML=mensagens[i]
    if (i==mensagens.length-1)
    i=0
    else
    i++
    }
    }
    
    function mover4(whichdiv){
    tdiv2=eval(whichdiv)
    if (tdiv2.style.pixelTop>0&&tdiv2.style.pixelTop<=5){
    tdiv2.style.pixelTop=0
    setTimeout("mover4(tdiv2)",3000)
    setTimeout("mover3(primeiro2)",3000)
    return
    }
    if (tdiv2.style.pixelTop>=tdiv2.offsetHeight*-1){
    tdiv2.style.pixelTop-=5
    setTimeout("mover4(segundo2)",100)
    }
    else{
    tdiv2.style.pixelTop=altura
    tdiv2.innerHTML=mensagens[i]
    if (i==mensagens.length-1)
    i=0
    else
    i++
    }
    }
    
    function iniciar(){
    if (document.all){
    mover3(primeiro2)
    segundo2.style.top=altura
    segundo2.style.visibility='visible'
    }
    else if (document.layers){
    document.principal.visibility='show'
    mover1(document.principal.document.primeiro)
    document.principal.document.segundo.top=altura+5
    document.principal.document.segundo.visibility='show'
    }
    }
    
    </script>
    <table width="150" border="0" cellspacing="0" cellpadding="0">
      <tr> 
        <td>
          <ilayer id="principal" width=&{largura}; height=&{altura}; bgcolor=&{bgcolor}; background=&{fundo}; visibility=hide> 
          <layer id="primeiro" left=0 top=1 width=&{largura};> 
          <script language="JavaScript1.2">
    if (document.layers)
    document.write(mensagens[0])
    </script>
          </layer>
          <layer id="segundo" left=0 top=0 width=&{largura}; visibility=hide> 
          <script language="JavaScript1.2">
    if (document.layers)
    document.write(mensagens[1])
    </script>
          </layer>
          </ilayer>
          <script language="JavaScript1.2">
    if (document.all){
    document.writeln('<span id="principal2" style="position:relative;width:'+largura+';height:'+altura+';overflow:hiden;background-color:'+bgcolor+';background-image:url('+fundo+')">')
    document.writeln('<div style="position:absolute;width:'+largura+';height:'+altura+';clip:rect(0 '+largura+' '+altura+' 0);left:0;top:0">')
    document.writeln('<div id="primeiro2" style="position:absolute;width:'+largura+';left:0;top:1;">')
    document.write(mensagens[0])
    document.writeln('</div>')
    document.writeln('<div id="segundo2" style="position:absolute;width:'+largura+';left:0;top:0;visibility:hidden">')
    document.write(mensagens[1])
    document.writeln('</div>')
    document.writeln('</div>')
    document.writeln('</span>')
    }
    iniciar()
    </script>
    </table>

    Se for ultil à alguém, está ai, mas se acharem algo melhor ou mais facil e viavel, postem ai.

    Abraços!!!

    OBS: Link para o arquivo.

  3. Brother!!

    O 'PWS' é seu Personal Web Server, que normalmente, roda nas plataformas Win98/Me. Nas versões 2000/XP/Nt, você usa o IIS (Internet Information Services).

    A ultilização dele é bem simples:

    - basta criar um diretorio fisico em seu computador;

    - salvar um arquivo 'Default.asp',

    - Abrir o 'PWS'

    - Item/Opção Avançadas

    - Selecionar a Primeira Pasta

    - Adicionar, o que chamamos de 'Alias' Virtual (que seria o nome de seu website), com destino ao seu diretorio criado

    - Confirmar a Inclusão

    - Abrir o I.E. (Internet Explorer - Mais ultilizado)

    - Na barra de endereços, digita: 'http://localhost/Nome_do_Alias_Criado/

    - e Tchan (....Nojento - Aquele neguinho era feio pra k******!!!)

    - Seu WebSite está configurado e funcionado

    Ah, não se esqueça, pra fazer um teste, pra ver se funciona mesmo, em seu arquivo 'Default.asp', digite:

    <% Response.Write ("Olá Mundo!")%>

    Bom, isso é uma breve introdução, espero que ajude a começar, recomendo ´que puxe uma postila na Web, que fala algo sobre ASP para você começar a praticar.

    Abraços!!!

  4. Brother!!

    Fiz correndo por cima, veja se pode lhe ajudar.

    <html>
    <head><title>Enviar nome de usuario e senha</title></head>
    <body>
    <%
    act = request.querystring("act")
    %>
    <%
    if act = "" then%>
    <form action="?act=enviar" method="POST">
    arquivos%20recebidos/?act=enviar" method="POST">
    nome:<input type="text" name="usuario"><br>
    e-mail<input type="text" name="email"><br>
    <input type="submit">
    </form>
    <%end if%>
    <%
    if act="enviar" then
    dim dsn
    dsn="DBQ=" & Server.Mappath("Clientes") & ";Driver={Microsoft Access Driver (*.mdb)};"
    sub close()
    rs.close
    set rs=nothing
    conn.close
    set conn=nothing
    end sub
    set conn = server.createobject("ADODB.connection")
    set rs = server.createobject("ADODB.recordset")
    conn.open dsn
    SQL = "SELECT * FROM Clientes WHERE email = '"&request("email")&"' AND '"&request("usuario")&"'"
    rs.open sql,conn
    email = RS("email")
    password = RS("senha")
    If RS.EOF Then
    Response.write "<center>O usuário não consta no nosso site ou você digitou as informações necessárias de forma incorreta</center>"
    else
    Set cdoMail = Server.CreateObject("CDONTS.NewMail")
    cdoMail.From = "betoap@MSN.com"
    cdoMail.To = email
    cdoMail.Subject = "Lembrete de senha."
    cdoMail.Body = Mensagem_Corpo
     Dim Mensagem_Corpo
     Mensagem_Corpo = Response.Write("Sua senha é: "& password & vbcrlf & vbcrlf & vbcrlf & "*** Mensagem Automatica ***")
     Mensagem_Corpo = Mensagem_Corpo & "<br>" 'Pulando Linha
     Mensagem_Corpo = Mensagem_Corpo & "Usuário:" &"<b>" & Request("Usuario") &"</b>"
    cdoMail.Send
    Set cdoMail = Nothing
    response.write "Senha enviada com sucesso!"
    end if
    end if
    %>
    </body>

    Espero ter ajudado!!

    Abraços!!

  5. Salve Brother!!!!

    Cara, sou um inepto em JavaScript, já tentei com livros, apostilas, mas não consigo entender esta dificil linguagem de programação, acho que vou morrer no VB & ASP.

    Queria saber, como se cria, um sisteminha de rolagem de informação, tipo aquele que está do lado esquerdo da tela, no alto, no site do Ibest. Eu procurei aqui na ScriptBrasil, não achei nada.

    Aquilo é feito totalmente em JavaScript ? Dá pra fazer no DreamWeaver ? Vai no Marquee Vertical, como é feito galerinha ?

    Abraços!!!

×
×
  • Criar Novo...