Ir para conteúdo
Fórum Script Brasil

wvrosario

Membros
  • Total de itens

    36
  • Registro em

  • Última visita

Posts postados por wvrosario

  1. olha fiz do jeito que você falou..

    segue codigo.

    <html>
    <head>
    <script type="text/javascript">
        var xmlhttp;
        function loadXMLDoc(url)
        {
            xmlhttp=null;
            if (window.XMLHttpRequest)
            {// code for IE7, Firefox, Opera, etc.
                xmlhttp=new XMLHttpRequest();
            }
            else if (window.ActiveXObject)
              {// code for IE6, IE5
                  xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
              }
            if (xmlhttp!=null)
            {
                xmlhttp.open("GET",url,true);
                xmlhttp.onreadystatechange=function(){
                
                    if(xmlhttp.readyState==4){ //Se xmlhttp.readyState for 4 a requisição está completa
                        var retorno=xmlhttp.responseText;
                        alert(retorno);
                        document.getElementById('A3').innerHTML= retorno;
                    }
                }
                xmlhttp.send(null);
            }
            else
              {
                alert("Your browser does not support XMLHTTP.");
            }
        }
    </script>
    </head>
    
    <body>
    <p><b>Response:</b>
    <br /><span id="A3"></span>
    </p>
    
    <button onclick="loadXMLDoc('http://www.correios.com.br/encomendas/precos/calculo.cfm?cepOrigem=15085893&cepDestino=15040190&peso=3&MaoPropria=N&avisoRecebimento=N&resposta=xml')">Get XML</button>
    
    </body>
    </html>

    retorno no alert é igual a página da correios...

  2. cara desculpa não entendi nada do passo anterior aonde você falou para colocar true... e etc..

    Obs.:

    Recomendo que utilize o AJAX de forma assíncrona (para isso deixe o terceiro parâmetro do método open como true e utilize o evento onreadystatechange juntamente com a propriedade readyState para verificar se a requisição foi concluída)

    podia alterar o meu codigo com essas alteracoes?

    desde já obrigado!

  3. amigo fiz do jeito que você falou e não traz valor nenhum..

    <html>
    <head>
    <script type="text/javascript">
    var xmlhttp;
    function loadXMLDoc(url)
    {
    xmlhttp=null;
    if (window.XMLHttpRequest)
      {// code for IE7, Firefox, Opera, etc.
      xmlhttp=new XMLHttpRequest();
      }
    else if (window.ActiveXObject)
      {// code for IE6, IE5
      xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
      }
    if (xmlhttp!=null)
      {
      xmlhttp.open("GET",url,false);
      xmlhttp.send(null);
      //document.getElementById('A3').innerHTML=xmlhttp.responseText;
      
      var resultado = xmlhttp.responseText;
      
      var a = resultado.split(" ");
      
      document.getElementById('A3').innerHTML= a[2];
      
      }
    else
      {
      alert("Your browser does not support XMLHTTP.");
      }
    }
    </script>
    </head>
    
    <body>
    <p><b>Response:</b>
    <br /><span id="A3"></span>
    </p>
    
    <button onclick="loadXMLDoc('http://www.correios.com.br/encomendas/precos/calculo.cfm?cepOrigem=15085893&cepDestino=15040190&peso=3&MaoPropria=N&avisoRecebimento=N&resposta=xml')">Get XML</button>
    
    </body>
    </html>

  4. Pessoal,

    Preciso tratar essas informações que são retornadas do link dos correios, queria tratar isso no javascript e depois exibir via innerHTML, tem como?? alguém poderia me ajudar? sei que tenho que fazer isso a DOM, mas cruzar o DOM com XMLHttp ?? como??

    por favor ficaria muito grato!

    Atc,

    William

    <html>
    <head>
    &lt;script type="text/javascript">
    var xmlhttp;
    function loadXMLDoc(url)
    {
    xmlhttp=null;
    if (window.XMLHttpRequest)
      {// code for IE7, Firefox, Opera, etc.
      xmlhttp=new XMLHttpRequest();
      }
    else if (window.ActiveXObject)
      {// code for IE6, IE5
      xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
      }
    if (xmlhttp!=null)
      {
      xmlhttp.open("GET",url,false);
      xmlhttp.send(null);
      document.getElementById('A3').innerHTML=xmlhttp.responseText;
      }
    else
      {
      alert("Your browser does not support XMLHTTP.");
      }
    }
    </script>
    </head>
    
    <body>
    <p><b>Response:</b>
    <br /><span id="A3"></span>
    </p>
    
    <button onclick="loadXMLDoc('http://www.correios.com.br/encomendas/precos/calculo.cfm?cepOrigem=15085893&cepDestino=15040190&peso=3&MaoPropria=N&avisoRecebimento=N&resposta=xml')">Get XML</button>
    
    </body>
    </html>

  5. Amigos,

    Fiz um sisteminha para exportar um relatório completo para o excel, só que ele não está levando a imgem, alguém sabe me dizer?

    Abs,

    William Rosário

    <div id="ImprimirConteudo">

    <table class="inputfont" style="width: 1050px;border-style: solid;border-width: 2px;" cellspacing="1">

    <tr>

    <td>

    <img src="../../img/<%=nome_empresa%>.jpg"/>

    </td>

    <td align="center">

    <b>SISTEMA DE RECURSOS HUMANOS - MODULO DE CONSULTA NO CADASTRO</b><br/>

    <b><font style="color:red;"><%=nomeRelatorio(num_relatorio)%></font></b>

    </td>

    <td align="right">

    </td>

    </tr>

    </table>

    <br/>

    <br/>

    <!--Código da Página-->

    <%Set objRecordset = Nothing%>

    </div>

    </body>

    <%

    'Exportar para o excel

    Response.Buffer = True

    Response.AddHeader "Content-Disposition", "attachment;filename=" & nomeRelatorio(num_relatorio) & ".xls"

    Response.ContentType = "application/vnd.ms-excel"

    %>

  6. Galera,

    Minha dificuldade agora é mais simples... consegui dar um boa caminhada com o código... agora to precisando pegar a informação que está no campo DS_EMAIL e passar a mesma aonde está escrito "AQUI" no código SQL.... alguém pode me ajudar???

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    <HTML>
    <HEAD>
        <META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
        <META content="MSHTML 6.00.6000.16481" name=GENERATOR>
    </HEAD>
    <!--#INCLUDE FILE="CONEXAO.ASP"-->
    <script language="JavaScript">
    function valida_email(email)
    {
        if (email.value.search(/^\w+((-\w+)|(\.\w+))*\@\w+((\.|-)\w+)*\.\w+$/) == -1) 
        {
            alert("Digite o E-MAIL Corretamente!");
               email.focus();
               return false;
        }
        <%
        CALL ABRIRDB
    
            SQL_ENVIA_SENHA = "SELECT DS_EMAIL FROM CADASTRO WHERE DS_EMAIL = 'AQUI'"
            SET RS = SERVER.CREATEOBJECT("ADODB.RECORDSET")
            RS.OPEN SQL_ENVIA_SENHA,CONNDB,3,3
    
            IF NOT RS.EOF THEN
        %>
                alert("E-MAIL Já Existente!");
                   email.focus();
                   return false;    
        <%  ELSE    %>
                   document.esqueceusenha.continua.focus();
                   alert("Passou!");
                   return true;
        <%
            END IF            
    
        CALL FECHARDB
        %>    
    }
    
    </script>
    <html>
    <head>
    <title>Teste</title>
    </head>
    <body>
    <form method="POST" name="esqueceusenha" action="#">
        email<input type="text" name="DS_EMAIL" size="50" onfocusout="return valida_email(document.esqueceusenha.DS_EMAIL);"><br>
        lala<input type="text" name="continua" size="50"><br>
        <input type="submit" value="Envia" name="tst1">
    </form>
    </body>
    </html>

    Abs,

    William

  7. Cara deixa eu te falar...

    Já testou esse script para mais de 3 fotos.. tipo umas 15???

    Tava testando aqui.. quando eu coloco essa quantidade os ponteiros (proxima foto e foto anterior) perdem a referencia, com você aconteceu isso?

    Atc,

    William

  8. Nem acredito que consegui. Tão simples...

    Estava precisando disso e não encontrei em lugar algum, nem no fórum de JS me responderam.

    Daí meti a cara e consegui fazer. Uma galeria de imagem automática onde os valores podem ser dinâmicos vindo de variáveis em ASP. Tem botão para próxima foto e anterior controlado por JavaScript. Queria passar pra vocês, pois assim como penei pra conseguir, pode ser útil a muita gente:

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
    <html>
    <head>
    <title>IMAGENS</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    &lt;script>b=0</script>
    &lt;script>
    
        function slideshow()
        {
        switch (b)
        {
    <%If FOTO1 <> "" Then%>
        case 0:foto.src="<%Response.Write FOTO1%>";
      break;
    <%Else%>
        case 0:foto.src="<%Response.Write "arquivos/no_pic.gif"%>";
      break;
    <%End If%>
    <%If FOTO2 <> "" Then%>
        case 1:foto.src="<%Response.Write FOTO2%>";
      break;
    <%Else%>
        case 1:foto.src="<%Response.Write "arquivos/no_pic.gif"%>";
      break;
    <%End If%>
    <%If FOTO3 <> "" Then%>
        case 2:foto.src="<%Response.Write FOTO3%>";
    <%Else%>
        case 2:foto.src="<%Response.Write "arquivos/no_pic.gif"%>";
      break;
    <%End If%>
        b=-1;
        }
        b++;
        }
    </script>
    &lt;script>
        function slideshow2()
        {
        switch (b)
        {
    <%If FOTO3 <> "" Then%>
        case 0:foto.src="<%Response.Write FOTO3%>";
      break;
    <%Else%>
        case 0:foto.src="<%Response.Write "arquivos/no_pic.gif"%>";
      break;
    <%End If%>
    <%If FOTO2 <> "" Then%>
        case 1:foto.src="<%Response.Write FOTO2%>";
      break;
    <%Else%>
        case 1:foto.src="<%Response.Write "arquivos/no_pic.gif"%>";
      break;
    <%End If%>
    <%If FOTO1 <> "" Then%>
        case 2:foto.src="<%Response.Write FOTO1%>";
    <%Else%>
        case 2:foto.src="<%Response.Write "arquivos/no_pic.gif"%>";
      break;
    <%End If%>
        b=-1;
        }
        b++;
        }
    </script>
    </head>
    
    <body>
    <img name="foto" width="200" height="200"> <br>
    <input type="button" name="Submit" value="Foto anterior" onClick="slideshow2()";>
    <input type="button" name="Submit" value="Pr&oacute;xima foto" onClick="slideshow()";>
    </body>
    </html>
    Aí está o código completo da página, ok? Basta copiar e salvar como página ASP, ajustar as variáveis, nome das imagens, diretórios e ver o bicho funcionando. também vou postar em funções. Ah se quiserem a galeira rotacionando automaticamente, coloca:
    onClick="setInterval('slideshow()',2000)";

    Isso fará a imagem mudar de 2 em 2 segundo.

    Amigo,

    beleza? Muito Bom seu código.. com ele utilizei e fiz pegando informações do banco... algo dinamico...

    Mas agora queria uma ajuda sua.. como eu faço para fazer um stop slide show???

    Abs,

    William

  9. Bom dia,

    Gostaria de uma ajuda, estou precisando esconder as informações contidas num div.... tipo o script abaixo... mas estou com dificuldades, será que a;guém podia me ajudar?

    <script>
    var producao;
    var producaov;
    
    producao = '-5'
    
    if(producao == '-5')
    {
      producaov = none;
    }
    else
    {
      producaov = visible;
    }
    </script>
    
    <div name=producao style=display:producaov>
    ok!
    </div>

  10. veja se é isso:

    &lt;script>
    function Redireciona(){
    document.form.action=document.form.opcoes.options[document.form.opcoes.selectedIndex].value;
    }
    </script>
    <form method="post" name="form" onSubmit="Redireciona()">
        <select size="20" multiple="multiple" name="opcoes">
            <option value=Main.aspx?pg=csy_relprod&arg1=01122003&arg3=01122003&arg2=-2>A REGULARIZAR</option> 
            <option value=Main.aspx?pg=csy_relprod&arg1=01122003&arg3=01122003&arg2=-1>NÃO SE APLICA</option> 
            <option value=Main.aspx?pg=csy_relprod&arg1=01122003&arg3=01122003&arg2=1>Coqueria</option> 
            <option value=Main.aspx?pg=csy_relprod&arg1=01122003&arg3=01122003&arg2=2>Sinter</option> 
            <option value=Main.aspx?pg=csy_relprod&arg1=01122003&arg3=01122003&arg2=5>Aciaria</option> 
            <option value=Main.aspx?pg=csy_relprod&arg1=01122003&arg3=01122003&arg2=6>Cal</option> 
        </select>
        <br/>
    <input type="submit" value="IR!!!"/>
    </form>

    andreia_sp, obrigado!!

    deixa eu te fazer uma pergunta.. tem como fazer isso disparando cada value para um página nova?..

    ex.. se o cliente escolher 3 valores... ele abre tres páginas novas... ??

    desde já agredeço

    andreia_sp só mais uma questão.. como eu faço para passar mais de um valor.. porque esse script que você me passou eu só consigo passar 1 valor...por vez

  11. Galera,

    Estou com a seguinte dúvida, preciso pegar o valor que vem do "select" e passar no campo action... alguém poderia me ajudar?

    <form method="post" action="java script:this.selectedIndex.value();" >
        <select size="20" multiple="999" >
            <option value=Main.aspx?pg=csy_relprod&arg1=01122003&arg3=01122003&arg2=-2>A REGULARIZAR</option> 
            <option value=Main.aspx?pg=csy_relprod&arg1=01122003&arg3=01122003&arg2=-1>NÃO SE APLICA</option> 
            <option value=Main.aspx?pg=csy_relprod&arg1=01122003&arg3=01122003&arg2=1>Coqueria</option> 
            <option value=Main.aspx?pg=csy_relprod&arg1=01122003&arg3=01122003&arg2=2>Sinter</option> 
            <option value=Main.aspx?pg=csy_relprod&arg1=01122003&arg3=01122003&arg2=5>Aciaria</option> 
            <option value=Main.aspx?pg=csy_relprod&arg1=01122003&arg3=01122003&arg2=6>Cal</option> 
        </select>
        <br/>
        <input type="submit" value="IR!!!"/>
    </form>

    Atc,

    William Rosário

  12. eu costumo debugar na mão.

    exibindo em alert's os valores etc...

    seu código esta pedindo para montar este select:

    <select size="1" name="acao" onclick="mostra_combo();">

    <option value=""></option>

    <option value="1">Alteração</option>

    <option value="2">Exclusão</option>

    <option value="3">Inclusão</option>

    <option value="4">Movimentação</option>

    </select>

    10 vezes:

    <%For x= 0 to 10 %>

    de onde vem os valores que você quer colocar?

    Na verdade não vem valor nenhum... devido a uma situação escolhida no combo eu quero q ele habilite ou não o campo text.. o problema q que preciso fazer para "N"

  13. pelo menos erro no código não é. você já verificou se:

    -permissão na pasta

    -Norton não está bloqueando scripts

    -se já existe arquivo com mesmo nome

    São as possibilidades q eu imagino :unsure:

    Já verifiquei todas as possibilidades listadas acima....

    coloquei até nomes malucos no arquivo...

  14. O código funcionou perfeitamente aqui, só mudei a pasta... tente fazer o mesmo, ou mudar o nome do arwuivo.. além do que o erro diz algo sobre isso

    Sim.. ele funciona na máquina de todo mundo.. já mudei o nome.. a pasta e etc... e não consegui....

  15. Galera tenho esse codigo aqui i ele está dando o erro abaixo... alguém já passou por este problema?

    <%
    ' Excel Maker 1.0 by RaS! (ras78@libero.it), ver 1.0
    ' --------------------------------------------------
    ' This is a free and simple example about create Excel files with asp
    ' You need the Microsoft Excel installed on you machine to use the
    ' object. Without this one, you cannot create any .xls file.
    ' Please report any bugs or feedback at ras78@libero.it
    
    Set ExcelApp = CreateObject("Excel.Application")
    ExcelApp.Application.Visible = True
    Set ExcelBook = ExcelApp.Workbooks.Add
    
    ExcelBook.Worksheets(1).Cells(2, 2).Font.Name = "Verdana"
    ExcelBook.Worksheets(1).Cells(2, 2).Font.Size = 10
    ExcelBook.Worksheets(1).Cells(2, 2).Font.Italic = true
    ExcelBook.Worksheets(1).Cells(2, 2).Value="Hello world"
    ExcelBook.Worksheets(1).Cells(2, 2).HorizontalAlignment = 1
    ExcelBook.Worksheets(1).Cells(2, 2).Font.Color = RGB(0,0,0)
    
    ExcelBook.SaveAs "c:\yourfile.xls"
    ExcelApp.Application.Quit
    Set ExcelApp = Nothing 
    %>
    

    Erro:

    Microsoft Office Excel (0x800A03EC)

    O Microsoft Office Excel não pode acessar o arquivo 'C:'. Há várias razões possíveis: • O nome do arquivo ou caminho não existe. • O arquivo está sendo usado por outro programa. • O nome da pasta de trabalho que você está tentando salvar é o mesmo de outra pasta de trabalho aberta no momento.

    /validacao/excel.asp, line 16

×
×
  • Criar Novo...