Jump to content

Fagner Dos Santos

Members
  • Content count

    72
  • Joined

  • Last visited

Community Reputation

2 Comum

About Fagner Dos Santos

Informações Pessoais

  • Sexo
    Masculino
  1. Fagner Dos Santos

    [Resolvido] Como ler JSON no ASP ?

    { "api": "sms", "codigo": "000", "modulo": "recebimentochat", "msg": { "5564914480001": { "5564992251900": [ { "data": "2017-06-28 09:27:03", "numDestino": "5564992251900", "numOrigem": "5564914480001", "textoSms": "Ola MARIA, bom dia e uma mensagem da supera!", "tipo": "enviado" } ], "5564992250020": [ { "data": "2017-06-28 09:27:07", "numDestino": "5564992250020", "numOrigem": "5564914480001", "textoSms": "Ola MARIA, bom dia e uma mensagem da supera!", "tipo": "enviado" } ] }, "5564931230001": { "5564992251900": [ { "data": "2017-06-28 09:32:56", "numDestino": "5564992251900", "numOrigem": "5564931230001", "textoSms": "MARIA, estamos testando sua mensagem!", "tipo": "enviado" } ], "5564992250020": [ { "data": "2017-06-28 09:33:00", "numDestino": "5564992250020", "numOrigem": "5564931230001", "textoSms": "MARIA, estamos testando sua mensagem!", "tipo": "enviado" } ] }, "5564959310010": { "5564984085001": [ { "data": "2017-06-28 09:26:52", "numDestino": "5564984085001", "numOrigem": "5564959310010", "textoSms": "Ola, JOAO agradecemos sua visita. Estamos sempre a disposicao, volte sempre!", "tipo": "enviado" } ] }, "5564982870001": { "5564992251900": [ { "data": "2017-06-28 09:37:15", "numDestino": "5564992251900", "numOrigem": "5564982870001", "textoSms": "bom dia MARIA estamos fazendo um 3d teste", "tipo": "enviado" } ], "5564992250020": [ { "data": "2017-06-28 09:37:19", "numDestino": "5564992250020", "numOrigem": "5564982870001", "textoSms": "bom dia MARIA estamos fazendo um 3d teste", "tipo": "enviado" } ] }, "5564995350010": { "5564984085001": [ { "data": "2017-06-28 09:26:21", "numDestino": "5564984085001", "numOrigem": "5564995350010", "textoSms": "Ola, JOAO agradecemos sua visita. Estamos sempre a disposicao, volte sempre!", "tipo": "enviado" } ] } }, "status": "ok" } Então esse e o meu JSON. Mas eu fiz essa solução e deu certo Set json = New aspJSON json.loadJSON(respostaJSON) if json.data("status") = "ok" then api = json.data("api") set msg = json.data("msg") for each origem in msg response.write origem response.write " | " set grupoOrigem = json.data("msg")(origem) for each destino in grupoOrigem response.write destino response.write " { " set grupoDestino = json.data("msg")(origem)(destino) for each movimentacao in grupoDestino set grupoDados = json.data("msg")(origem)(destino)(movimentacao) for each dado in grupoDados entidade = cint(right(origem, 4)) response.write vbcrlf response.write "entidade: " & entidade response.write " | " response.write dado response.write " : " response.write json.data("msg")(origem)(destino)(movimentacao).item(dado) next response.write vbcrlf next response.write " } " response.write vbcrlf next next end if Funcionou mas achei muito complexo talvez existisse outra saida
  2. Fagner Dos Santos

    [Resolvido] Como ler JSON no ASP ?

    xanburzum como faço pra ler o nó phonenumber?? Eu tentei aqui mas não consegui dá erro: Erro de tempo de execução do Microsoft VBScript erro '800a01c2' Número de argumentos incorreto ou atribuição de propriedade inválida
  3. Fagner Dos Santos

    Problemas com JSON no Webservice

    Amigos, estou com um sério problema com json2.asp Estou usando ele pra listar uma paginação de um webservice. Ele lê normalmente a página 1, mas quando o WHILE passa pra pagina 2 ele me retorna um erro Acredito que seja alguma coisa no sentido de zerar o Objeto Json mas não estou sabendo como fazer. Erro de tempo de execução do Microsoft VBScript erro '800a01b6' O objeto não dá suporte para a propriedade ou método: 'parse' api_sms/grava_extrato_sms.asp, linha 93 paginas=2 conta = 0 webservice_url = "https://api.directcallsoft.com/extrato/list-sms" do while conta <= paginas conta = conta + 1 resultado = "" arrmsg = "" mensagens = "" response.write "conta: " & conta response.write "," '===== CONSULTAR SMS set Xml = Server.Createobject("MSXML2.ServerXMLHTTP") Xml.open "POST", webservice_url, false Xml.setRequestHeader "content-type", "application/x-www-form-urlencoded" Xml.send("access_token="&tokenSMS&"&formato=json&dataInicial="&dataAnterior&"&dataFinal="&dataAtual&"&pagina=" & conta) resultado = Xml.responseText Set json = JSON.parse(resultado) mensagens = json.msg arrmsg = split(mensagens, ",") for i=0 to ubound(arrmsg) response.write "conta_for: " & i response.write "," callerid = json.msg.get(i).callerid cliente = json.msg.get(i).cliente status_sms = json.msg.get(i).status_sms callerid = json.msg.get(i).callerid custo = json.msg.get(i).custo uuid_origem = json.msg.get(i).uuid_origem response.write callerid response.write "," next loop set Xml = Nothing set json = Nothing
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.