xmlhttprequest

Patrique · Novembro 5, 2009

EDITADO

Velho eu errei rsrsrsrs ao invez de colocar objxmldoc eu coloquei xmldoc tem que ser iguais, tente assim que vai

<%
Set objXmlDoc = Server.CreateObject("MSXML2.DOMdocument.3.0")

   objXmlDoc.async = False
   objXmlDoc.loadXML(ws.response)


   if TypeName(objXmlDoc) = "DOMDocument" then

      'ENTRADA
      usuario = objXmlDoc.selectSingleNode("//Entrada//Usr").text
      senha = objXmlDoc.selectSingleNode("//Entrada//Senha").text
      ip = objXmlDoc.selectSingleNode("//Entrada//IP").text
      mac = objXmlDoc.selectSingleNode("//Entrada//MAC").text
      chassientrada = objXmlDoc.selectSingleNode("//Entrada//Chassi").text

      'SAIDA
      chassisaida = objXmlDoc.selectSingleNode("//Saida//Chassi").text
      fabricante = objXmlDoc.selectSingleNode("//Saida//Fabricante").text
      anofabricacao = objXmlDoc.selectSingleNode("//Saida//AnoFabricacao").text
      anomodelo = objXmlDoc.selectSingleNode("//Saida//AnoModelo").text
      combustivel = objXmlDoc.selectSingleNode("//Saida//Combustivel").text
      qauntidadedeeixos = objXmlDoc.selectSingleNode("//Saida//QuantidadeDeEixos").text
      tipodacarroceria = objXmlDoc.selectSingleNode("//Saida//TipoDaCarroceria").text
      regiaogeografica = objXmlDoc.selectSingleNode("//Saida//RegiaoGeografica").text
      pais = objXmlDoc.selectSingleNode("//Saida//Pais").text
      localdafabrica = objXmlDoc.selectSingleNode("//Saida//LocalDaFabrica").text
      marca = objXmlDoc.selectSingleNode("//Saida//Marca").text
      modelo = objXmlDoc.selectSingleNode("//Saida//Modelo").text
      veiculo = objXmlDoc.selectSingleNode("//Saida//Veiculo").text
      versao = objXmlDoc.selectSingleNode("//Saida//Versao").text
      motor = objXmlDoc.selectSingleNode("//Saida//Motor").text
      tipodomotor = objXmlDoc.selectSingleNode("//Saida//TipoDoMotor").text
      tracao = objXmlDoc.selectSingleNode("//Saida//Tracao").text
      transmissao = objXmlDoc.selectSingleNode("//Saida//Transmissao").text
      portas = objXmlDoc.selectSingleNode("//Saida//Portas").text
      classificacao = objXmlDoc.selectSingleNode("//Saida//Classificacao").text
      comprimento = objXmlDoc.selectSingleNode("//Saida//Comprimento").text
      mesdeproducao = objXmlDoc.selectSingleNode("//Saida//MesDeProducao").text
      pesobruto = objXmlDoc.selectSingleNode("//Saida//PesoBruto").text
      tipodefreio = objXmlDoc.selectSingleNode("//Saida//TipoDeFreio").text
      digitoverificador = objXmlDoc.selectSingleNode("//Saida//DigitoVerificador").text
      verificacaodoserial = objXmlDoc.selectSingleNode("//Saida//VerificacaoDoSerial").text
      distanciaentreeixos = objXmlDoc.selectSingleNode("//Saida//DistanciaEntreEixos").text
      codigofipe = objXmlDoc.selectSingleNode("//Saida//CodigoFipe").text
      conclusao = objXmlDoc.selectSingleNode("//Saida//Conclusao").text
      quantidadedeirregularidades = objXmlDoc.selectSingleNode("//Saida//QuantidadeDeIrregularidades").text
      codigodairregularidade = objXmlDoc.selectSingleNode("//Saida//CodigoDaIrregularidade").text

           if len(trim(tipo))=2 then
                tipo = uCase(left(tipo,1))&lCase(right(tipo,1))
           end if
  End if

'Mostrando na tela o resultado
Response.Write("<strong>Entrada</strong><br />")
Response.Write("Usuário: " & usuario & "<br>")
Response.Write("Senha: " & senha & "<br>")
Response.Write("Ip: " & ip & "<br>")
Response.Write("Mac: " & mac & "<br>")
Response.Write("Chassi Entrada: " & chassientrada & "<br>")

Response.Write("<strong>Saída</strong><br />")
Response.Write("Chassi Saída: " & chassisaida & "<br>")
Response.Write("Fabricante: " & fabricante & "<br>")
Response.Write("Ano Fabricação: " & anofabricacao & "<br>")
Response.Write("Ano Modelo: " & anomodelo & "<br>")
Response.Write("Combustível: " & combustivel & "<br>")
Response.Write("Eixos: " & quantidadedeeixos & "<br>")
Response.Write("Tipo da Carroceria: " & regiaogeografica & "<br>")
Response.Write("Pais: " & pais & "<br>")
Response.Write("Local da Fábrica: " & localdafabrica & "<br>")
Response.Write("Marca: " & marca & "<br>")
Response.Write("Modelo: " & modelo & "<br>")
Response.Write("Veículo " & veiculo & "<br>")
Response.Write("Versão: " & versao & "<br>")
Response.Write("Motor: " & motor & "<br>")
Response.Write("Tipo do Motor: " & tipodomotor & "<br>")
Response.Write("Tração: " & tracao & "<br>")
Response.Write("Transmissao: " & transmissao & "<br>")
Response.Write("Portas: " & portas & "<br>")
Response.Write("Classificação: " & classificacao & "<br>")
Response.Write("Comprimento: " & comprimento & "<br>")
Response.Write("Mês de Produção: " & mesdeproducao & "<br>")
Response.Write("Peso Bruto: " & pesobruto & "<br>")
Response.Write("Tipo de Freio: " & tipodefreio & "<br>")
Response.Write("Digito Verificador: " & digitoverificador & "<br>")
Response.Write("Verificação do Serial: " & verificacaodoserial & "<br>")
Response.Write("Distancia Entre Eixos: " & distanciaentreeixos & "<br>")
Response.Write("Código Fipe: " & codigofipe & "<br>")
Response.Write("Conclusão: " & conclusao & "<br>")
Response.Write("Quantidade de Irregularidades: " & quantidadedeirregularidades & "<br>")
Response.Write("Código da Irregularidade: " & codigodairregularidade & "<br>")

set ws = nothing
set objXmlDoc = nothing
%>

Velho você esta cometendo algum erro ae no carregamente do xml, coloquei um exemplo pegando o seguinte xml simulando a forma com que ele vem depois de ser lido pelo webserviço, o xml no servidor esta aqui

http://www.metodistavilanova.com.br/osso/dados.xml

note que ele é identico ao que você passou

agora eu monto uma função utilizando xmlhttp e xmldoc para ler este xml

aqui esta funcionando

http://www.metodistavilanova.com.br/osso/

O código que eu fiz foi este, faça o seu em cima deste que vai da certo

<%
Set XmlHttp = Server.CreateObject("MSXML2.XMLHTTP")
Set XmlDoc = Server.CreateObject("MSXML2.DOMDocument.3.0")

url = "http://metodistavilanova.com.br/osso/dados.xml"

XmlDoc.async = False
XMLHttp.Open "GET", url, False
XMLHttp.Send
if XmlHttp.statusText = "OK" then
   XmlDoc.loadXML(XmlHttp.responseText)
   if TypeName(XmlDoc) = "DOMDocument" then

      'ENTRADA
      usuario = XmlDoc.selectSingleNode("//Entrada//Usr").text
      senha = XmlDoc.selectSingleNode("//Entrada//Senha").text
      ip = XmlDoc.selectSingleNode("//Entrada//IP").text
      mac = XmlDoc.selectSingleNode("//Entrada//MAC").text
      chassientrada = XmlDoc.selectSingleNode("//Entrada//Chassi").text

      'SAIDA
      chassisaida = XmlDoc.selectSingleNode("//Saida//Chassi").text
      fabricante = XmlDoc.selectSingleNode("//Saida//Fabricante").text
      anofabricacao = XmlDoc.selectSingleNode("//Saida//AnoFabricacao").text
      anomodelo = XmlDoc.selectSingleNode("//Saida//AnoModelo").text
      combustivel = XmlDoc.selectSingleNode("//Saida//Combustivel").text
      qauntidadedeeixos = XmlDoc.selectSingleNode("//Saida//QuantidadeDeEixos").text
      tipodacarroceria = XmlDoc.selectSingleNode("//Saida//TipoDaCarroceria").text
      regiaogeografica = XmlDoc.selectSingleNode("//Saida//RegiaoGeografica").text
      pais = XmlDoc.selectSingleNode("//Saida//Pais").text
      localdafabrica = XmlDoc.selectSingleNode("//Saida//LocalDaFabrica").text
      marca = XmlDoc.selectSingleNode("//Saida//Marca").text
      modelo = XmlDoc.selectSingleNode("//Saida//Modelo").text
      veiculo = XmlDoc.selectSingleNode("//Saida//Veiculo").text
      versao = XmlDoc.selectSingleNode("//Saida//Versao").text
      motor = XmlDoc.selectSingleNode("//Saida//Motor").text
      tipodomotor = XmlDoc.selectSingleNode("//Saida//TipoDoMotor").text
      tracao = XmlDoc.selectSingleNode("//Saida//Tracao").text
      transmissao = XmlDoc.selectSingleNode("//Saida//Transmissao").text
      portas = XmlDoc.selectSingleNode("//Saida//Portas").text
      classificacao = XmlDoc.selectSingleNode("//Saida//Classificacao").text
      comprimento = XmlDoc.selectSingleNode("//Saida//Comprimento").text
      mesdeproducao = XmlDoc.selectSingleNode("//Saida//MesDeProducao").text
      pesobruto = XmlDoc.selectSingleNode("//Saida//PesoBruto").text
      tipodefreio = XmlDoc.selectSingleNode("//Saida//TipoDeFreio").text
      digitoverificador = XmlDoc.selectSingleNode("//Saida//DigitoVerificador").text
      verificacaodoserial = XmlDoc.selectSingleNode("//Saida//VerificacaoDoSerial").text
      distanciaentreeixos = XmlDoc.selectSingleNode("//Saida//DistanciaEntreEixos").text
      codigofipe = XmlDoc.selectSingleNode("//Saida//CodigoFipe").text
      conclusao = XmlDoc.selectSingleNode("//Saida//Conclusao").text
      quantidadedeirregularidades = XmlDoc.selectSingleNode("//Saida//QuantidadeDeIrregularidades").text
      codigodairregularidade = XmlDoc.selectSingleNode("//Saida//CodigoDaIrregularidade").text

   end if
end if

Response.Write("<strong>Entrada</strong><br />")
Response.Write("Usuário: " & usuario & "<br>")
Response.Write("Senha: " & senha & "<br>")
Response.Write("Ip: " & ip & "<br>")
Response.Write("Mac: " & mac & "<br>")
Response.Write("Chassi Entrada: " & chassientrada & "<br>")

Response.Write("<strong>Saída</strong><br />")
Response.Write("Chassi Saída: " & chassisaida & "<br>")
Response.Write("Fabricante: " & fabricante & "<br>")
Response.Write("Ano Fabricação: " & anofabricacao & "<br>")
Response.Write("Ano Modelo: " & anomodelo & "<br>")
Response.Write("Combustível: " & combustivel & "<br>")
Response.Write("Eixos: " & quantidadedeeixos & "<br>")
Response.Write("Tipo da Carroceria: " & regiaogeografica & "<br>")
Response.Write("Pais: " & pais & "<br>")
Response.Write("Local da Fábrica: " & localdafabrica & "<br>")
Response.Write("Marca: " & marca & "<br>")
Response.Write("Modelo: " & modelo & "<br>")
Response.Write("Veículo " & veiculo & "<br>")
Response.Write("Versão: " & versao & "<br>")
Response.Write("Motor: " & motor & "<br>")
Response.Write("Tipo do Motor: " & tipodomotor & "<br>")
Response.Write("Tração: " & tracao & "<br>")
Response.Write("Transmissao: " & transmissao & "<br>")
Response.Write("Portas: " & portas & "<br>")
Response.Write("Classificação: " & classificacao & "<br>")
Response.Write("Comprimento: " & comprimento & "<br>")
Response.Write("Mês de Produção: " & mesdeproducao & "<br>")
Response.Write("Peso Bruto: " & pesobruto & "<br>")
Response.Write("Tipo de Freio: " & tipodefreio & "<br>")
Response.Write("Digito Verificador: " & digitoverificador & "<br>")
Response.Write("Verificação do Serial: " & verificacaodoserial & "<br>")
Response.Write("Distancia Entre Eixos: " & distanciaentreeixos & "<br>")
Response.Write("Código Fipe: " & codigofipe & "<br>")
Response.Write("Conclusão: " & conclusao & "<br>")
Response.Write("Quantidade de Irregularidades: " & quantidadedeirregularidades & "<br>")
Response.Write("Código da Irregularidade: " & codigodairregularidade & "<br>")


set XmlHttp = nothing
set XmlDoc = nothing
%>

Patrique · Novembro 9, 2009

Fala pessoal, hoje finalmente consegui finalizar esta parte para o nosso amigo ae, ele disse que agora esta funfando, por isso vou colocar aqui o code para que caso alguém venha ter o mesmo problema possa solucionar.

Primeiramente crie um arquivo chamado funcoes.asp coloque nele o seguinte code

funcoes.asp

<%
Option Explicit
' Classe para WebService'****************************************************
Class WebService
Public Url
Public Method
Public Response
Public Parameters
' Funcao para Invokar o WebService
Public Function Invoke()
Dim xmlhttp
Set xmlhttp = Server.CreateObject("MSXML2.XMLHTTP")
xmlhttp.open "POST", Url & "/" & Method, false
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.Send Parameters.toString
response = xmlhttp.responseText
set xmlhttp = nothing
End Function
Private Sub Class_Initialize()
Set Parameters = New wsParameters
End Sub
Private Sub Class_Terminate()
Set Parameters = Nothing
End Sub
End class
' Classe para wsParameters'****************************************************
Class wsParameters
Public mCol
Public Function toString()
Dim nItem
Dim buffer
buffer = ""
For nItem = 1 to Count
buffer = buffer & Item(nItem).toString & "&"
Next
If right(buffer,1)="&" then
buffer = left(buffer,len(buffer)-1)
End if
toString = buffer
End Function
Public Sub Clear
set mcol = nothing
Set mCol = Server.CreateObject("Scripting.Dictionary")
End Sub
Public Sub Add(pKey,pValue)
Dim NewParameter
Set NewParameter = New wsParameter
NewParameter.Key = pKey
NewParameter.Value = pValue
mCol.Add mCol.count+1, NewParameter
Set NewParameter = Nothing
End Sub
Public Function Item(nKey)
Set Item=mCol.Item(nKey)
End Function
Public Function ExistsXKey(pKey)
Dim nItem
For nItem = 1 to mcol.count
If mCol.Item(nItem).key = pKey Then
ExistsXKeyword = True
Exit For
End if
Next
End Function
Public Sub Remove(nKey)
mCol.Remove(nKey)
End sub
Public Function Count()
Count=mCol.count
End Function
Private Sub Class_Initialize()
Set mCol = Server.CreateObject("Scripting.Dictionary")
End Sub
Private Sub Class_Terminate()
Set mCol = Nothing
End Sub
End class
'* Classe para wsParameter***************
Class wsParameter
Public Key
Public Value
Public Function toString()
toString = Key & "=" & Value
End Function
End Class
%>

agora crie um arquivo chamado webservice.asp nele coloque o seguinte code

webservice.asp

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="funcoes.asp"-->
<%
Response.ContentType = "text/xml"

Function htmlDecode(ByVal str)
      If Not IsNull(str) And str <> "" Then
              str = Replace(str, " ", " ")
              str = Replace(str, """, """")
              str = Replace(str, ">", ">")
              str = Replace(str, "<", "<")
              htmlDecode = str
      End If
End Function

dim chassi
dim ws

   set ws = new webservice
   ws.url = "http://www.centralconsultas.com.br/WsCosultaService/Service.asmx"
   ws.method = "ConsultaDecodificadorChassi"
   ws.parameters.Add "Usuario","XXXXXXXX"
   ws.parameters.Add "Senha","XXXXXX"
   ws.parameters.Add "Chassi", Request.QueryString("chassi")
   ws.Invoke
   Response.Write(htmlDecode(ws.response))

set ws = nothing
%>

e por fim crie um arquivo chamado index.asp e coloque o seguinte code

index.asp

<%
Set XmlHttp = Server.CreateObject("MSXML2.XMLHTTP")
Set XmlDoc = Server.CreateObject("MSXML2.DOMdocument.3.0")

chassi = request.Form("Chassi")

url = "http://seusite.com.br/webservice.asp?chassi="& chassi &""

XmlDoc.async = False
XMLHttp.Open "GET", url, False
XMLHttp.Send
if XmlHttp.statusText = "OK" then
   XmlDoc.loadXML(XmlHttp.responseText)
   if TypeName(XmlDoc) = "DOMDocument" then

      'ENTRADA
      usuario = XmlDoc.selectSingleNode("//Entrada//Usr").text
      senha = XmlDoc.selectSingleNode("//Entrada//Senha").text
      ip = XmlDoc.selectSingleNode("//Entrada//IP").text
      mac = XmlDoc.selectSingleNode("//Entrada//MAC").text
      chassientrada = XmlDoc.selectSingleNode("//Entrada//Chassi").text

      'SAIDA
      chassisaida = XmlDoc.selectSingleNode("//Saida//Chassi").text
      fabricante = XmlDoc.selectSingleNode("//Saida//Fabricante").text
      anofabricacao = XmlDoc.selectSingleNode("//Saida//AnoFabricacao").text
      anomodelo = XmlDoc.selectSingleNode("//Saida//AnoModelo").text
      combustivel = XmlDoc.selectSingleNode("//Saida//Combustivel").text
      qauntidadedeeixos = XmlDoc.selectSingleNode("//Saida//QuantidadeDeEixos").text
      tipodacarroceria = XmlDoc.selectSingleNode("//Saida//TipoDaCarroceria").text
      regiaogeografica = XmlDoc.selectSingleNode("//Saida//RegiaoGeografica").text
      pais = XmlDoc.selectSingleNode("//Saida//Pais").text
      localdafabrica = XmlDoc.selectSingleNode("//Saida//LocalDaFabrica").text
      marca = XmlDoc.selectSingleNode("//Saida//Marca").text
      modelo = XmlDoc.selectSingleNode("//Saida//Modelo").text
      veiculo = XmlDoc.selectSingleNode("//Saida//Veiculo").text
      versao = XmlDoc.selectSingleNode("//Saida//Versao").text
      motor = XmlDoc.selectSingleNode("//Saida//Motor").text
      tipodomotor = XmlDoc.selectSingleNode("//Saida//TipoDoMotor").text
      tracao = XmlDoc.selectSingleNode("//Saida//Tracao").text
      transmissao = XmlDoc.selectSingleNode("//Saida//Transmissao").text
      portas = XmlDoc.selectSingleNode("//Saida//Portas").text
      classificacao = XmlDoc.selectSingleNode("//Saida//Classificacao").text
      comprimento = XmlDoc.selectSingleNode("//Saida//Comprimento").text
      mesdeproducao = XmlDoc.selectSingleNode("//Saida//MesDeProducao").text
      pesobruto = XmlDoc.selectSingleNode("//Saida//PesoBruto").text
      tipodefreio = XmlDoc.selectSingleNode("//Saida//TipoDeFreio").text
      digitoverificador = XmlDoc.selectSingleNode("//Saida//DigitoVerificador").text
      verificacaodoserial = XmlDoc.selectSingleNode("//Saida//VerificacaoDoSerial").text
      distanciaentreeixos = XmlDoc.selectSingleNode("//Saida//DistanciaEntreEixos").text
      codigofipe = XmlDoc.selectSingleNode("//Saida//CodigoFipe").text
      conclusao = XmlDoc.selectSingleNode("//Saida//Conclusao").text
      quantidadedeirregularidades = XmlDoc.selectSingleNode("//Saida//QuantidadeDeIrregularidades").text
      codigodairregularidade = XmlDoc.selectSingleNode("//Saida//CodigoDaIrregularidade").text

   end if
end if

Response.Write("<strong>Entrada</strong><br />")
Response.Write("Usuário: " & usuario & "<br>")
Response.Write("Senha: " & senha & "<br>")
Response.Write("Ip: " & ip & "<br>")
Response.Write("Mac: " & mac & "<br>")
Response.Write("Chassi Entrada: " & chassientrada & "<br>")

Response.Write("<strong>Saída</strong><br />")
Response.Write("Chassi Saída: " & chassisaida & "<br>")
Response.Write("Fabricante: " & fabricante & "<br>")
Response.Write("Ano Fabricação: " & anofabricacao & "<br>")
Response.Write("Ano Modelo: " & anomodelo & "<br>")
Response.Write("Combustível: " & combustivel & "<br>")
Response.Write("Eixos: " & quantidadedeeixos & "<br>")
Response.Write("Tipo da Carroceria: " & regiaogeografica & "<br>")
Response.Write("Pais: " & pais & "<br>")
Response.Write("Local da Fábrica: " & localdafabrica & "<br>")
Response.Write("Marca: " & marca & "<br>")
Response.Write("Modelo: " & modelo & "<br>")
Response.Write("Veículo " & veiculo & "<br>")
Response.Write("Versão: " & versao & "<br>")
Response.Write("Motor: " & motor & "<br>")
Response.Write("Tipo do Motor: " & tipodomotor & "<br>")
Response.Write("Tração: " & tracao & "<br>")
Response.Write("Transmissao: " & transmissao & "<br>")
Response.Write("Portas: " & portas & "<br>")
Response.Write("Classificação: " & classificacao & "<br>")
Response.Write("Comprimento: " & comprimento & "<br>")
Response.Write("Mês de Produção: " & mesdeproducao & "<br>")
Response.Write("Peso Bruto: " & pesobruto & "<br>")
Response.Write("Tipo de Freio: " & tipodefreio & "<br>")
Response.Write("Digito Verificador: " & digitoverificador & "<br>")
Response.Write("Verificação do Serial: " & verificacaodoserial & "<br>")
Response.Write("Distancia Entre Eixos: " & distanciaentreeixos & "<br>")
Response.Write("Código Fipe: " & codigofipe & "<br>")
Response.Write("Conclusão: " & conclusao & "<br>")
Response.Write("Quantidade de Irregularidades: " & quantidadedeirregularidades & "<br>")
Response.Write("Código da Irregularidade: " & codigodairregularidade & "<br>")


set XmlHttp = nothing
set XmlDoc = nothing
%>

[]'s

Entrar

Arquivado

xmlhttprequest

Recommended Posts

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Carregamento preloading

Consulta SQL dentro de outra consulta

problema em usar json para realizar engenharia de dados

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante