Microsoft.XMLHTTP

[JC Franceschi 0]

Olá... eu estou acabando de iniciar um sistema simples pra requisição de dados de outra página, porém esta página não é minha e não tenho como alterá-la da forma q eu realmente gostaria.

 

Neste caso, meu problema está com acentuação q tem na página (em algumas palavras) que na hora da requisição não aparecem ou aparecem com algum problema.

 

Se alguém souber me ajudar como eu faço pra requisição pegar os aentos normalmente sem retornar nenhum erro ortográfico ou de código como o normal eu agradeço.

 

O código q estou usando é este:

 

ASP

Dim Requisitando_A_Variavel

        Dim Requisitando_A_Variavel_Contagem_Total

        Dim Conexao_Requisita_Outra_Pagina

        Set Conexao_Requisita_Outra_Pagina = Server.CreateObject("Microsoft.XMLHTTP")

                Conexao_Requisita_Outra_Pagina.Open "GET", "http://www.wartimes.com.br/Default.asp", false

                Conexao_Requisita_Outra_Pagina.Send()

                Requisitando_A_Variavel = Conexao_Requisita_Outra_Pagina.responseText

        Set Conexao_Requisita_Outra_Pagina = Nothing

 

 

Eu pego a página toda na variável e depois eu filtro ela normalmente, mas as palavras que tem acentos dão problemas, aparecendo o sinal de ? ou mesmo retirando o comando < do código.

 

Se alguém puder me ajudar eu agradeço muito =)

[jrcardozo 4]

já tive problemas com xmlhttp em relação a acentuação, a unica solução que encontrei foi mudar o objeto de requisição

[Ted k' 126]

Realmente a acentuação é chata de se tratar mais tem muitos fatores que podem ajudar a piorar a situação verifique me sua página de resposta a meta-tag que você está ultilizando e faça configurações nela!

[DBB 0]

Eu normalmente coloco no inicio das minhas paginas ASP que fazem a requisição o seguinte código:

 

ASP

Response.Charset="ISO-8859-1"

[JC Franceschi 0]

Então pessoal, valeu pelas dicas, mas testei todas elas e não consegui fazer funcionar mesmo assim =\

 

O problema da página q estou requisitando é q não tenho como mudar ela e por "Response.Charset="ISO-8859-1""

Daí na página que requisitou não adianta =\

 

Tentei tbm mudar de GET pra POST a requisição e não voltou a acentuação normal.

 

Outra tentativa q tentei e não deu certo foi adicionar ao código o seguinte:

Conexao_Requisita_Outra_Pagina.setRequestHeader "Content-Type","text"

 

Estas opções q tentei não deram certo até agora =(

Se alguém aí já mecheu com algo parecido, posta a solução q encontrou, quem sabe eu consiga adicionar ao código ou mudar ele pra funcionar =)

 

 

valeu a todos vocês *.*

[Ted k' 126]

tentou usar o server.htmlencode para mostrar os resultados e fazer tratamento dos acentos com o replace?

[JC Franceschi 0]

e como eu uso o "server.htmlencode"?

tem algum exemplo pra mostrar?

 

 

valeu *.*

[JC Franceschi 0]

ainda com o mesmo erro de acentuação:

o código mostra como fiz exatamente.

 

 

Dim Requisitando_A_Variavel

Dim Conexao_Requisita_Outra_Pagina

Set Conexao_Requisita_Outra_Pagina = Server.CreateObject("Microsoft.XMLHTTP")

Conexao_Requisita_Outra_Pagina.Open "get", "http://www.wartimes.com.br/descricaocarta.php?id=9119", false

' Conexao_Requisita_Outra_Pagina.setRequestHeader "Content-Type","text"

Conexao_Requisita_Outra_Pagina.Send()

Requisitando_A_Variavel = Server.HtmlEncode(Conexao_Requisita_Outra_Pagina.responseText)

Requisitando_A_Variavel = Replace(Requisitando_A_Variavel,"ã","a",1)

Set Conexao_Requisita_Outra_Pagina = Nothing

 

 

 

A palavra que tá requisitando será "Bicho papão", porém, a requisição ainda assim aparece como "bicho pap?"

mesmo tentando usar o replace não daria, pq na requisição, desta forma a letra ã será troxcada por ? e ainda daria um erro.

 

literalmente estou ficando mais perdido =(

grato.

[JC Franceschi 0]

eu tentei procurar no google pelas propriedadaes e o que fazer do comando "Server.CreateObject("Microsoft.XMLHTTP")", como por exemplo:

 

Requisita_Outra_Pagina.Open "get", "http://www.wartimes.com.br/descricaocarta.php?id=9119", false

'alguma página que explique o pq do get e não do post, o pq de false no lugard e true e o que fazem cada um

 

Conexao_Requisita_Outra_Pagina.setRequestHeader "Content-Type","text"

'alguma página que explica quais os setRequestHeader que existem ecomo usa-los

 

Requisitando_A_Variavel = Conexao_Requisita_Outra_Pagina.responseText

'Alguma página que mostre se existem outros comando além do responseText

e como usá-los

 

 

infelismente não encontrei nada que possa me ajudar nestas dicas =\

se alguém souber, algum site da microsoft ou de sei lá onde que possa ter eu agradeço, pois daí poderei ver se existe alguma solução pro q eu estou procurando.

 

valeu =)

[jrcardozo 4]

já tentou o que eu disse antes, outro objeto(componente)?

[JC Franceschi 0]

já tentou o que eu disse antes, outro objeto(componente)?

Pior que não sei quais componentes eu ainda possa usar além do xml =(

Se souber, qualquer dica é bem vinda =)

[JC Franceschi 0]

já tive problemas com xmlhttp em relação a acentuação, a unica solução que encontrei foi mudar o objeto de requisição

ei jo... quando você teve problemas, que objeto usou no lugar?

é q eu não consegui encontrar nenhum objeto ou componente na net pra conseguir fazer funcionar =(

 

valeu *.*

[jrcardozo 4]

nas minhas andanças pela web encontri isso, veja se resolve

http://www.devmedia.com.br/articles/viewcomp.asp?comp=4634

 

Abaixo o link do componente que usei a uns meses atras

http://www.dynu.com/dynuhttp.asp

[Espártaco 0]

Olá, eu fiz isso para resolver essa questão, não é lá muito funcional, mas resolve:

 

Function arruma(str)  
str = replace(str, "ó" , "ó")
str = replace(str, "ò" , "ò")
str = replace(str, "ô" , "ô")
str = replace(str, "õ" , "õ")
str = replace(str, "ö" , "ö")
str = replace(str, "á" , "á")
str = replace(str, "à" , "à")
str = replace(str, "â" , "â")
str = replace(str, "ã" , "ã")
str = replace(str, "ä" , "ä")
str = replace(str, "é" , "é")
str = replace(str, "è" , "è")
str = replace(str, "ê" , "ê")
str = replace(str, "ú" , "ú")
str = replace(str, "ù" , "ù")
str = replace(str, "û" , "û")
str = replace(str, "ü" , "ü")
str = replace(str, "í" , "í")
str = replace(str, "ì" , "ì")
str = replace(str, "ç" , "ç")
str = replace(str, "Ó" , "Ó")
str = replace(str, "Ò" , "Ò")
str = replace(str, "Ô" , "Ô")
str = replace(str, "õ" , "Õ")
str = replace(str, "Ö" , "Ö")
str = replace(str, "Á" , "Á")
str = replace(str, "À" , "À")
str = replace(str, "Â" , "Â")
str = replace(str, "Ã" , "Ã")
str = replace(str, "Ä" , "Ä")
str = replace(str, "É" , "É")
str = replace(str, "È" , "È")
str = replace(str, "Ê" , "Ê")
str = replace(str, "Ú" , "Ú")
str = replace(str, "Ù" , "Ù")
str = replace(str, "Û" , "Û")
str = replace(str, "Ü" , "Ü")
str = replace(str, "Í" , "Í")
str = replace(str, "Ì" , "Ì")
str = replace(str, "Ç" , "Ç")
str = replace(str, "º" , "º")
str = replace(str, "ª" , "ª")
arruma = str

 

E depois é só usar:

 

<%variavel = Bicho Papão"%>
<%=arruma(variavel)%>

ou

 

<%=arruma("Bicho papão")%>

Espero ter ajudado

[xanburzum 169]

olá espártaco, solicitamos k para ajudar mais o forum, que responda tópicos recentes, pois este k você reviveu é velho, hein de 2007