Algo sobre XMLHttp.

[WLJ 0]

Como vai pessoal?No momento estou estudando o objeto XMLHttp, alguém teria alguma leitura (de preferência em português) para me recomendar? :D

[WLJ 0]

Inglês? :huh:

[gastao 0]

estude por um codigo pronto....xml.http nao tem misterio

[WLJ 0]

estude por um codigo pronto....xml.http nao tem misterio

Valew... vou dar uma olhada no nosso melhor amigo Google.você saberia me dizer onde tem algum código que você conheça pra me indicar? B)

[W.Silva 0]

Milagres acontencem.....

 

consegui lembrar da senha do W.Silva!! ^_^

 

Brother!!!

 

Há um artigo, sobre cotação do dolar que ultiliza XMLHTTP, se for interessante.... dê uma olhada!!

 

Boa Sorte!!!

[WLJ 0]

Milagres acontencem.....

 

consegui lembrar da senha do W.Silva!! ^_^

 

Brother!!!

 

Há um artigo, sobre cotação do dolar que ultiliza XMLHTTP, se for interessante.... dê uma olhada!!

 

Boa Sorte!!!

Muito obrigado W.Silva!

[nostrinkes 0]

Este é bem simples.... dá uma olhada....

Caso queira retirar toda a html do codigo existe um código deixando somente o conteudo que faz isto tambem.

A palavra cotação no caso é somente um nome marcação mude para um nome existente na pagina que ira buscar.

Se caso estiver com dúvidas poste aí ou envie um e-mail. te ajudo dentro do meu limite.

<%@ Language=VBScript %><%Response.Buffer=True%><font size='3' color='red'>ESTE CODIGO FOI TESTADO EM OFF LINE O RETORNO E POSITIVO,<br> DESDE QUE A PAGINA CHAMADA "EX:PAGINACAO.ASP"<br>TENHA SIDO VISITADA(ESTANDO DO CACHE DA MAQUINA OFF)<br>Caso contrario tera um erro de cabecalho, pedindo o uso do "www"</font><br><%Set cod = Server.CreateObject("Microsoft.XMLHTTP")cod.open "GET","http://wagner/paginacao.asp", falsecod.send()pega = cod.ResponseTextcotacao = LCase(pega)Set cod = Nothingresponse.write "<center><font color='#336699' size='5'> testando xmlhttp retornando html de paginas</center>"response.write "<hr /><p />"&cotacaocotacao = trim(replace(cotacao," ",""))       'trocando espacos por vazioIf request("value") ="" thenvalor="total:"elsevalor = (request("value"))end ifx = instr(cotacao,"total:")              'aqui sera  resgatado o numero inicial para o midtotal = Mid(cotacao,x,16)                  'capturando texto inicio e fimresponse.write "<p />"& total: %>

[Eddr 0]

Como seria o código da http://wagner/paginacao.asp, como seria a resposta do script?

 

valew