Jump to content

Fagner Dos Santos

Members
  • Content count

    72
  • Joined

  • Last visited

Everything posted by Fagner Dos Santos

  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
  4. Fagner Dos Santos

    AspMaxRequestEntityAllowed

    já tentou fazer isso no web.config: <system.webserver> ... <security > <requestFiltering> <requestLimits maxAllowedContentLength="1024000000" /> </requestFiltering> </security> </system.webserver>
  5. Fagner Dos Santos

    Asp e mysql

    Seguinte, como o xanburzum disse o dump é arquivo de backup, sendo assim, você tem que importar esse arquivo primeiro pra depois você poder usar a conexão. Primeiro você tem que criar um banco de dados, e o nome desse banco de dados é que vai na configuração da conexão: 'parametros de conexão MySQLSVR = "localhost" MySQLPRT = 3306 MySQLUID = "root" MySQLPWD = "biakelly" MySQLDB = "nome_do_banco_de_dados" '<<<--------- Aqui vai o nome do banco de dados Geralmente quando importamos o dump ele já cria o banco de dados, mas nem sempre. Teria que abrir o arquivo dump.sql em editor de texto pra ver se ele cria o banco, mas mesmo assim, você encontrando o nome do banco de dados no arquivo dump.sql, você pode criar no workbench antes e depois importar o arquivo dump. Set adoCon = Server.CreateObject("ADODB.Connection") strCon = "Driver={NOME_DO_DRIVER_ODBC_QUE_VOCÊ_INSTALOU};" strCon = strCon & "server="&MySQLSVR&"; strCon = strCon & "uid="&nomedousuario (root por exemplo)&"; strCon = strCon & "pwd="&senha&"; strCon = strCon & "database="&nome_do_banco_de_dados&"; strCon = strCon & "option="&MySQLOPT&"" adoCon.Open strCon 'Exemplo que eu uso aqui (você s[o precisa disso pra conectar): conexao.Open = "Driver={MySQL ODBC 5.1 Driver}; DATABASE=meu_banco_de_dados; SERVER=127.0.0.1; UID=root; PASSWORD=12345;OPTION=67108864;"
  6. Fagner Dos Santos

    escrever json com aspjson

    Pq não tenta escrever sem o aspjson direto no asp mesmo: set rs = conexao.execute("SELECT * FROM lista ORDER BY nome ) response.write "[" while not rs.eof conta=conta+1 response.write "{" response.write """id"":"""&rs("codigo") & """" response.write "," response.write """filename"":"""&rs("file_name") & """" response.write "," response.write """user_name"":"""&rs("username") & """" response.write "," response.write """action_date"":"""&rs("action_date")&"""" response.write "}" rs.movenext if not rs.eof then response.write "," end if wend response.write "]"
  7. Fagner Dos Santos

    Trocando {} por delimitadores ASP

    Olá você vai usar o replace mesmo, como disse o xanburzum. Você recebe o conteudo em uma varíável por exemplo: set rs = conexao.execute("select * from tabela_contrato") contrato = rs("campo_contrato_da_tabela") contrato = replace(contrato, "{NomeVendedor}", rs("campo_nome_vendedor") contrato = replace(contrato, "{NacionalidadeVendedor}", rs("campo_nome_vendedor") contrato = ................ então vai fazendo isso em cada campo. e depois basta escrever o instrumento particular de compromisso de compra e venda: response.write contrato
  8. Fagner Dos Santos

    Asp e mysql

    Ola você precisa apenas instalar o mysql e também o conector odbc e pronto, mas eu recomendo que você instale o EasyPHP, ou o WampServer que é um servidor que já instala o phpmyadmin, php, apache e mysql. o connector ODBC vc encontra nesse endereço: https://dev.mysql.com/downloads/connector/odbc/ Faz a conexão e pronto. Se você não quiser instalar o easyphp e quiser usar o phpmyadmin, você pode instalar apenas o mysql e o php para windows mas pra isso tbm pode ser que você precise fazer alguns ajustes no seu IIS. Mas por enquanto se você já tiver o mysql instalado, instale o Connector ODBC que eu acredito ser o erro que você está tendo. Você pode também usar algum gerenciador do mysql que não seja o phpmyadmin vc pode usar o Navicat que é ecelente, mas é pago, tem também o Toad for Mysql que é grátis.
  9. Fagner Dos Santos

    Converter String com iniciais maiúsculas

    Tenho essa função que coloca as primeiras em maiúsculas em nomes de pessoas: function firstUpper(text) if text <> "" then arrText = split(text, " ") for each item in arrText item = lcase(item) if item <> "" then largo = len(item) rightxt = right(item,largo-1) leftxt = ucase(left(item,1)) if item = "dos" or item = "da" or item = "de" or item = "das" or item = "e" or item = "por" then completo = completo& " " & item else completo = completo& " " & leftxt&rightxt end if end if next firstUpper = completo else text = text end if end function
  10. Olá, É o seguinte pessoal, tenho duas datas um inicial e uma final. Eu quero listar somente os meses que fazem parte do intervalo das datas por exemplo: dataini = cdate("01/05/2014") datafinal = cdate("01/03/2015") For i = dataini To datafinal 'aqui quero listar somente os meses response.write month(i) Next Quando fiz o for acima, o resultado restornado foi a sequencia de meses para cada dia do mes, por exemplo: 5555555555,666666,7777..... Então como eu faria pra listar somente os meses sem repetição: 5, 6, 7, 8, 9, 10, 11, 12....
  11. Fagner Dos Santos

    Exibir somente meses em um intervalo de datas

    Amigo, você deve estar fazendo a consulta com a data no formato errado, tenta colocar essa função na data quando faz a consulta SQL: Function FdataMysql(Data) If Data <> "" Then dia = day(data) if dia < 10 then dia = "0"&dia end if mes = month(data) if mes < 10 then mes = "0"&mes end if FdataMysql = year(data)&"-"&mes&"-"&dia End if End Function na instrução SQL faz assim: vSql = "select * from tab_atualizar_brasfels where data between #"&FdataMysql(var_datai)&"# and #"&FdataMysql(var_dataf)&"#"
  12. Fagner Dos Santos

    Exibir somente meses em um intervalo de datas

    Amigo obrigado pela ajuda, eu consegui fazer da seguinte forma também. dataini = cdate("01/05/2014") datafinal = cdate("01/03/2015") qtdmeses = 10 For i = 0 To qtdmeses-1 dataparcela = DateAdd("m", i, dataini) mesparcela = month(dataparcela) Next
×

Important Information

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