Jump to content

Search the Community

Showing results for tags 'asp'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Q&A Desenvolvimento
    • Perguntas e respostas rápidas
  • Desenvolvimento e Banco de Dados
    • HTML e CSS
    • Java
    • Javascript
    • .NET
    • PHP
    • Python
    • Ruby
    • Mobile
    • Ambientes de Desenvolvimento
    • Arquitetura e Métodos Ágeis
    • Banco de Dados
    • DevOps
    • Desenvolvimento de Games
    • E-Commerce e Pagamentos Online
    • SEO e Otimizações
    • WordPress
    • Algoritmos & Outras Tecnologias
  • Design e Produto
    • Fotografia
    • Photoshop
    • Design de interfaces e UX
    • Edição/Produção de Vídeos
    • Marketing Online
    • Desenho, Ilustração e 3D
  • Entretenimento e uso pessoal
    • Geral
    • Segurança & Malwares
    • Gadgets e wearable
    • Softwares e Apps
    • Entretenimento

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Google+


Hangouts


Skype


Twitter


deviantART


Github


Flickr


LinkedIn


Pinterest


Facebook


Site Pessoal


Localização


Interesses

Found 118 results

  1. Ronaldo Bueno

    Erro 404 asp classico

    Pessoal, preciso de uma ajuda pf. estou com um problema que não sei resolver... no meu IIS eu fiz o seguinte: Na configuração de recurso coloquei como erro detalhado em local e personalizado remoto e configurei a página de erro 404 da seguinte forma Raiz: /index.asp Pasta: /Ze/index.asp quando eu acesso as url: https://www.dominio.com.br/zezinho Erro not found https://www.dominio.com.br/Ze/zezinho Acessa o conteúdo da index.asp (o que eu justamente configurei no IIS) Nenhuma das paginas zezinho existe; a pasta Ze existe porque a primeira url não acessa minha index.asp (da raiz) e a segunda acessa a index.asp dentro da pasta? Seria muito grato e bem vindo qualquer ajuda. Obrigado
  2. Olá amigos, Eu estou precisando de uma paginação ASP que exiba tipo de 1 até 3 páginas e depois Próxima Página ou de 1 até 6 depois Próxima Página. De 3 em 3 ou ou de 6 em 6. Alguém já viu algum exemplo desse tipo? Paginação, 1 2 3 próxima Eu procurei na web não achei nada do tipo em ASP. Aqui no fórum também não achei. Obrigado pela atenção.
  3. Olá amigos! Tenha a seguinte estrutura no banco MySQL COD | PONTOX | PONTOY | ATLETAX | ATLETAY 1 | 0 | 1 | Maria | João 2 | 2 | 0 | João | Maria 3 | 0 | 2 | Maria | João 4 | 7 | 5 | Maria | João 5 | 0 | 3 | João | Maria 6 | 2 | 1 | João | Maria 7 | 0 | 6 | Maria | João 8 | 4 | 0 | João | Maria Preciso de ajuda para somar quantos pontos fez o atleta João nos últimos 5 torneios (COD 8, 7, 6, 5 e 4) Há momento que o João jogou em X e outro momento em Y. Abaixo segue meu Select, onde a soma dos pontos deve ser 17. nomeatleta = "João" Set soma= banco.execute("SELECT sum(PONTOX ) AS somax, sum(PONTOY ) AS somay FROM (select cod, pontox, pontoy, atletax, atletay from torneios where (atletax like '"&nomeatleta&"' or atletay like '"&nomeatleta&"') order by cod desc limit 5) AS temp")
  4. marcelocardoso

    Google Recaptcha V3 - Param não resgata

    olá colegas. depois de tanto quebrar a cabeça com o RECAPTCHA do google, v3. não estou conseguindo resgatar o ID do INPUT hidden que guarda o TOKEN!!!! Segue código HTML <!DOCTYPE html> <html lang="pt_BR"> <head> <meta charset="utf-8"> <meta content="text/html; charset=utf-8" http-equiv="Content-Type"> <meta content="ie=edge" http-equiv="X-UA-Compatible"> <title>Google Recaptcha - v3</title> <!-- STYLES CSS --> <link rel="stylesheet" type="text/css" href="https://cdn.jsdelivr.net/npm/bootstrap@4.3.1/dist/css/bootstrap.min.css"> <link rel="stylesheet" type="text/css" href="https://cdn.jsdelivr.net/npm/inputmask@3.3.11/css/inputmask.min.css"> <!-- STYLES CSS --> <!-- SCRIPTS JS --> <script type="text/javascript" src="https://cdn.jsdelivr.net/npm/jquery/dist/jquery.min.js"></script> <script type="text/javascript" src="https://cdn.jsdelivr.net/npm/jquery-form@4.2.2/dist/jquery.form.min.js"></script> <script type="text/javascript" src="https://cdn.jsdelivr.net/npm/jquery-validation@1.19.1/dist/jquery.validate.min.js"></script> <script type="text/javascript" src="https://cdn.jsdelivr.net/npm/jquery-validation@1.19.1/dist/localization/messages_pt_BR.min.js"></script> <script type="text/javascript" src="https://cdn.jsdelivr.net/npm/jquery-validation@1.19.1/dist/additional-methods.min.js"></script> <!-- SCRIPTS JS --> <!-- SCRIPTS RECAPTCHA - SITE KEY --> <script src="https://www.google.com/recaptcha/api.js?render=6LesQewUAAAAAIWQKRKk19yob6G8hx3LEoYXybIC"></script> <!-- SCRIPTS RECAPTCHA - SITE KEY --> <style type="text/css"> *:focus { outline: none !important; } html, body { height: 100%; width: 100%; } body { color: darkgrey; margin: 60px 0px; -webkit-font-smoothing: antialiased; -moz-osx-font-smoothing: grayscale; } /* google captcha - hidden na tela */ .grecaptcha-badge { display: none !important; } .valid-class { color: #006400; padding-left: 12px; padding-top: 3px; font-size: 15px; display: block; } .error-class { color: #e33d00; padding-left: 12px; padding-top: 3px; font-size: 15px; display: block; } .loading { position: fixed; left: 0px; top: 0px; margin: 0px; width: 100%; height: 100%; display: block; z-index: 999999; opacity: 0.92; -moz-opacity: 0.92; filter: alpha(opacity=98); background-color: #00224b; background-image: url("img/loading.gif"); background-repeat: no-repeat; background-position: 50% 50%; text-align: center; overflow: hidden; font-weight: bold; font-size: 25px; color: white; padding-top: 25%; } </style> </head> <body> <!-- code | formulario --> <section class="container-fluid"> <h1 class="text-center">RECAPTCHA</h1> <h4 class="text-center">GOOGLE v3</h4> <div class="col-xl-12 col-lg-12 col-md-12 col-sm-12 col-xs-12"> <form id="frm_form_contato" method="post" action="inc/google-form.asp"> <div class="form-group"> <div class="col-xl-12 col-lg-12 col-md-12 col-sm-12 col-xs-12 mb-2"> <label class="control-label" for="campo_nome">Nome</label> <input type="text" id="campo_nome" name="campo_nome" class="form-control" autocomplete="name" placeholder="Digite seu nome"> </div> <div class="col-xl-12 col-lg-12 col-md-12 col-sm-12 col-xs-12 mb-2"> <label class="control-label" for="campo_email">Email</label> <input type="text" id="campo_email" name="campo_email" class="form-control" autocomplete="email" placeholder="Digite seu e-mail"> </div> <div class="col-xl-12 col-lg-12 col-md-12 col-sm-12 col-xs-12 mb-2"> <label class="control-label" for="campo_mensagem">Mensagem</label> <textarea type="text" id="campo_mensagem" name="campo_mensagem" class="form-control" placeholder="Descreva sua mensagem"></textarea> </div> <div class="col-lg-12 col-md-12 col-sm-12 col-xs-12 mt-4"> <div id="contato_retorno"></div> <button id="btn-form" type="submit" class="btn btn-block btn-md btn-success">ENVIAR</button> </div> </div> <input type="hidden" id="token"> </form> </div> <div id="contato_carregando"></div> </section> <!-- code | formulario --> <!-- GOOGLE reCAPTCHA --> <script type="text/javascript"> "use strict"; //formulario de validacao $("#frm_form_contato").validate({ errorClass: "error-class", validClass: "valid-class", onkeyup: function (element) { this.element(element); }, onfocusout: function (element) { this.element(element); }, rules: { campo_nome: { required: true, minlength: 5, maxlength: 50 }, campo_email: { required: true, minlength: 5, email: true }, campo_mensagem: { required: true, minlength: 5, maxlength: 5000 } }, submitHandler: function (form) { grecaptcha.ready(function () { grecaptcha.execute('6LesQewUAAAAAIWQKRKk19yob6G8hx3LEoYXybIC', { action: 'homepage' }).then(function (token) { $("input#token").attr({ "value": "" + token + "" }); }); }); // A) resgatar variaveis (uma por uma) var form_url = $(this).attr("action"); var form_method = $(this).attr("method"); var form_token = $(this).find('input[name="token"]').val(); var form_nome = $(this).find('input[name="campo_nome"]').val(); var form_email = $(this).find('input[name="campo_email"]').val(); var form_telefone = $(this).find('input[name="campo_telefone"]').val(); var form_mensagem = $(this).find('input[name="campo_mensagem"]').val(); // B) resgatar variaveis (tudo de uma vez) // var form_data = $("#frm_form_contato").serializeArray(); var form_data = { 'campo_nome': $("#campo_nome").val(), 'campo_email': $("#campo_email").val(), 'campo_mensagem': $("#campo_mensagem").val(), 'campo_token': $("#token").val(), }; // ENVIAR FORM com POST // $("form").submit(function (e) { // e.preventDefault(); // var $form = $(this); // $.post($form.attr("action"), $form.serialize()).then(function () {}); // }); //ENVIAR FORM com AJAX $.ajax({ url: $("#frm_form_contato").attr("action"), type: $("#frm_form_contato").attr("method"), data: JSON.stringify(form_data), dataType: 'json', contentType: 'application/json; utf-8', //loading antes do sucesso e do envio beforeSend: function () { $("#btn-form").prop("disabled", false).text('Enviando ...').fadeIn(); $("#contato_carregando").html("<div class='loading'></div>").fadeIn(500); }, //se houver sucesso success: function (response) { setTimeout(function () { $("#contato_carregando").fadeOut(250); }, 3950); setTimeout(function () { $("#contato_retorno").html("<div class='valida_a_certo'>" + response + "</div>").fadeIn(500); }, 4000); setTimeout(function () { $("#contato_retorno").fadeOut(500); $("#btn-form").prop("disabled", false).text('Enviado'); $(form)[0].reset(); }, 10000); }, //se houver sucesso, finaliza complete: function (response) { $('body').fadeTo(4000, '1'); }, //se houver erro error: function (response) { setTimeout(function () { $("#contato_retorno").html("<div class='valida_a_erro'>" + response + "</div>").fadeIn(500); }, 4000); setTimeout(function () { $("#contato_retorno").fadeOut(500); $(form)[0].reset(); }, 10000); }, }); return false; } }); </script> <!-- SCRIPTS RODAPE --> <script type="text/javascript" src="https://cdn.jsdelivr.net/npm/bootstrap@4.3.1/dist/js/bootstrap.min.js"></script> <script type="text/javascript" src="https://cdn.jsdelivr.net/npm/inputmask@3.3.11/dist/jquery.inputmask.bundle.js"></script> <!-- SCRIPTS RODAPE --> </body> </html> BACKEND - ASP não estou conseguindo repassar o TOKEN para cá, já tentei de várias formas... mas não consigo nem com REQUEST.QUERYSTRING, REQUEST e nem REQUEST.FORM. <% Response.LCID = 1033 'USA LCID IF Request.ServerVariables("SERVER_NAME") <> Request.ServerVariables("SERVER_NAME") THEN Response.Write "ACESSO RESTRITO!" ELSE G_TOKEN = Request.Form("campo_token") 'google token G_KEY_URL = "https://www.google.com/recaptcha/api/siteverify?secret=" 'google url G_KEY_SITE = "" 'google chave do site G_KEY_SECRET = "" 'google chave secreta IF Request.ServerVariables("REQUEST_METHOD") = "POST" THEN SET objXML = Server.CreateObject("MSXML2.ServerXMLHTTP") objXML.Open "GET", ""& G_KEY_URL & G_KEY_SECRET &"&response=" & G_TOKEN & "", false objXML.Send IF InStr(objXML.ResponseText, "TRUE") THEN campo_nome = Request.Form("campo_nome") campo_email = Request.Form("campo_email") campo_mensagem = Replace(Request.Form("campo_mensagem"), Chr(13), "<br>") cdoSERVER = "mail.teste.com.br" cdoORIGEM = "teste@teste.com.br" cdoPASS = "senha" cdoPORT = 587 cdoTIMEOUT = 120 cdoUSING = 2 cdoAUT = 1 cdoSSL = 0 cdoDE = campo_nome &" <"& campo_email &">" cdoPARA = "teste@teste.com.br" cdoASSUNTO = "teste - contato" cdoTEXT = "Envio de mensagem usando CDOSYS" SET objCDOSYSmail = Server.CreateObject("cdo.message") SET objCDOSYScon = Server.CreateObject("cdo.configuration") objCDOSYScon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = cdoPORT objCDOSYScon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoUSING objCDOSYScon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoAUT objCDOSYScon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = cdoTIMEOUT objCDOSYScon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = cdoSSL objCDOSYScon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = cdoSERVER objCDOSYScon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = cdoORIGEM objCDOSYScon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = cdoPASS objCDOSYScon.Fields.Update SET objCDOSYSmail.Configuration = objCDOSYScon objCDOSYSmail.From = cdoORIGEM objCDOSYSmail.To = cdoPARA objCDOSYSmail.Subject = cdoASSUNTO objCDOSYSmail.TextBody = cdoTEXT ON ERROR RESUME NEXT IF objCDOSYSmail.SEND = "" THEN Response.Write "Mensagem enviada com sucesso!" ELSE IF NOT ERR.NUMBER = "0" THEN Response.Write "Não foi possível enviar a mensagem!" Response.Write "OCORREU UM ERRO: " & Err.Number & " | " & Err.Description Err.Clear() END IF END IF ON ERROR GOTO 0 SET objCDOSYSmail = Nothing SET objCDOSYScon = Nothing ELSE Response.Write "recaptcha errado!" END IF SET objXML = Nothing END IF END IF %> Quem tiver tempo, e quiser dar uma olhada, só falta isso para finalizar o código, PASSAR o bendito parametro que não consigo do input para o ASP. No demais, agradeço. Até....
  5. Fiz um site simples, contém um formulário de contato com o objetivo de salvar os dados preenchidos num banco do access, como estou aprendendo falaram que era melhor começar criando um banco no access, mas não consegui fazer com que o formulário salve lá. Criei um código ASP para salvar os dados do formulário mas preciso de ajuda para conseguir Coloquei o print dos códigos. Alguém pode me ajudar a resolver esse problema? <!DOCTYPE html> <html lang="pt-br"> <head> <meta charset="utf-8"> <meta charset="iso-8859-1" /> <link rel="stylesheet" type="text/css" href="css/estiloscontato.css"> <title>História da Informática</title> </head> <div class="menu"> <div class="collapse navbar-collapse navbar-right" id="myNavbar"> <ul class="nav navbar-nav"> <a href="index.html" target="principal">Home</a> <a href="historia.html" target="principal">História</a> <a href="evolucao.html" target="principal">Evolução</a> <a href="desvantagens.html" target="principal">Desvantagens</a> <a href="educacao.html" target="principal">Na educação</a> <a href="contato.html" target="principal">Contato</a> </ul> </div> </div> <div class="texto"> <body class="bg-color"> <!-- Estilos específicos de Seção --> <div id="conteudo" class="grupo" align=center> <p id="negrito"> <h1>Contato</h1> </p> <br> <p id="negrito">Entre em contato preenchendo o formulário abaixo:</p> <p name="contato"> <form name="f1" action="Contato" method="post"> <br> <fieldset> <br> <div class="campo"> <label for="nome">Nome</label> <input type="text" name="nome" id="nome"> </div> <br> <div class="campo"> <label for="email">E-mail</label> <input type="text" name="email" id="email"> <div> <br> <br><br> <!-- A PARTIR DESSA LINHA SÃO OS ""RADIO BUTTON"" --> <label>Departamento:</label> &nbsp; <label class="radio"> <input type="radio" name="departamento" value="suporte"> Suporte </label> <label class="radio"> <input type="radio" name="departamento" value="comercial"> Comercial </label> <label class="radio"> <input type="radio" name="departamento" value="conteudo"> Conteúdo </label> <div class="campo"> <p id="negrito"> </p> </div> <br> <!-- A PARTIR DESSA LINHA É O ""COMBO BOX"" --> <div class="assunto"> <p id="negrito"> <label for="assunto">Assunto<abbr title=!preenchimento obrigatório">*</abbr></label> <br> <select name="assunto"> <option>-- Selecione -- </option> <option value="duvidas">Dúvidas</option> <option value="solicitacoes">Solicitações</option> <option value="informacoes">Informações</option> <option value="outros">Outros</option> </select> </p> </div> <br><br> <!-- A PARTIR DESSA LINHA É O ""TEXTAREA"" --> <!-- <p id="negrito"> --> <div class="mensagem"> <p id="negrito"> <label id= "texto">Mensagem<abbr title=!preenchimento obrigatório">*</abbr></label> </p> <textarea name= "mensagem" rows="15" cols="80"></textarea> </div> <br> <br> <div class="botao"> <INPUT TYPE=SUBMIT VALUE="Enviar" align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<INPUT TYPE=RESET VALUE="Apagar" align="center"> </div> </div> </p> </form> </body> <div class="bg-color"> </div> <br> </fieldset> </form> <footer class="rodape"> <small>Copyright © 2020</small> </footer> </body> </html> ESSE É O CÓDIGO ASP <% Dim objConn, strCaminho, nome, email, departamento, assunto, mensagem nome = Request.Form("nome") email = Request.Form("email") departamento = Request.Form("departamento") assunto = Request.Form("assunto") mensagem = Request.Form("mensagem") strCaminho = Server.MapPath("banco.mdb") Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strCaminho & ";" objConn.execute("Insert Into contato (nome, email, departamento, assunto, mensagem) Values ('"&nome, email, departamento, assunto, mensagem&"')") response.Write("Cadastrado com sucesso") objConn.Close %>
  6. camisavp

    ASP Clássico, AJAX e Access

    Boa tarde. Estou com umas boas dificuldades aqui. Preciso que, em um formulário grande, eu ao digitar o numero do prontuário, caso já exista ele cadastrado, me retorne alguns campos preenchidos automaticamente. Estou tentando montar um formulário da seguinte maneira: form: input 1: - vai buscar a informação no banco de dados. se possível, com um autopreenchimento durante a digitação input 2: - caso já exista um prontuário, popular o input com os dados retirados do banco de dados input 3: - será preenchido manualmente input 4: - caso já exista um prontuário, popular o input com os dados retirados do banco de dados input 5: - caso já exista um prontuário, popular o input com os dados retirados do banco de dados input 6: - será preenchido manualmente input 7: - será preenchido manualmente ... mais uma série de inputs preenchidos manualmente /form. Não sou um estudioso e nem estou na minha área, pois sou engenheiro, haja visto que a aplicação é residencial e ainda em asp clássico com banco de dados access. kkkkkkkkkk Faço isso como hobby. Passei duas semanas já tentando achar uma solução, porém sem sucesso. Agradeço a ajuda de quem puder colaborar. Grato Marcelo Camisa
  7. Fala galera, boa tarde. Estou precisar criar uma página para recuperar algumas informações do PC. Achei um script, porém a informação não é visualizado na página. Segue script <% Set objShell = server.CreateObject("WScript.Shell") Set objExec = objShell.Exec("cmd /c powershell wmic cpu get loadpercentage") Set objStdOut = objExec.StdOut response.write "CPU:<BR>" While Not objStdOut.AtEndOfStream Response.write objStdOut.ReadLine &"<BR>" Wend objExec.StdIn.Close() %> Alguém tem alguma ideia do que está errado? Agradeço a atenção de todos!
  8. Bom dia, pessoal. A questão é que eu consigo acessar um endereço "dominio.com/modulo/id/titulo" e ele reescrever para "dominio.com/default.asp?link=artigo&id=123&titulo=teste", mas minha dúvida é se consigo fazer o processo reverso, ou seja, acessar "dominio.com/default.asp?link=artigo&id=123&titulo=teste" e ele alterar para "dominio.com/modulo/id/titulo". Códigos: WEB.CONFIG <?xml version="1.0" encoding="UTF-8"?> <system.webServer> <rewrite> <rules> <rule name="artigo" stopProcessing="true"> <match url="^artigo/?([a-zA-Z0-9_-]+)?/?([a-zA-Z0-9_-]+)?/?([a-zA-Z0-9_-]+)?$" /> <conditions> <add input="{REQUEST_FILENAME}" matchType="IsFile" negate="true" /> <add input="{REQUEST_FILENAME}" matchType="IsDirectory" negate="true" /> </conditions> <action type="Rewrite" url="default.asp?link={R:0}&id={R:1}&teste={R:2}" /> </rule> </rules> </rewrite> </system.webServer> ASP <!DOCTYPE html> <html lang="pt-br"> <head> <meta charset="utf-8"/> <title>Teste Isapi Rewrite</title> </head> <body> <p> Teste!<br> link: <%=request("link")%><br> id: <%=request("id")%><br> teste: <%=request("teste")%><br> </p> </body> </html> Desde já agradeço!
  9. marcelocardoso

    limitar itens paginação...

    olá pessoal. Estou disponibilizando um script para paginação de noticias, ele funciona, porém, ao adaptar codigo usado da internet, não encontrei maneiras de LIMITAR os REGISTROS. Se alguém quiser contribuir, na parte da paginação, agradeço. preciso limitar os registros em 10 em 10 a paginação primeiro < 1 2 3 4 5 6 7 8 9 10 > ultimo <section class="container-fluid"> <div class="row mb-5"> <div class="col-xl-12 col-lg-12 col-md-12 col-sm-12 col-xs-12 mb-5"> <h1 class="text-center"> Informações e noticias </h1> <h3 class="text-center"> Atualizações diárias de conteúdos advocatícios e judiciais </h3> </div> <div class="col-xl-8 col-lg-8 col-md-8 col-sm-8 col-xs-12 mt-2 p-5" style="height: auto;"> <% IF IsEmpty(Request.QueryString("idnot")) OR IsNull(Request.QueryString("idnot")) THEN SQL1 = "SELECT * FROM dbluz_noticias ORDER BY id DESC LIMIT 1" ELSE SQL1 = "SELECT * FROM dbluz_noticias WHERE id = "& Request.QueryString("idnot") &" ORDER BY id DESC LIMIT 1" END IF SET strNoticias = Server.CreateObject("ADODB.Recordset") strNoticias.Open SQL1, conexao, 3, 3 IF strNoticias.EOF THEN %> <div class="col-xl-12 col-lg-12 col-md-12 col-sm-12 col-xs-12 text-center"> <h1>AVISO!</h1> <h4 style="color: green;"> Não existem noticias cadastradas no momento, <br> ou não existe registro para este ID informado. </h4> </div> <% ELSE DO WHILE NOT strNoticias.EOF %> <div class="box-noticias-data"> <%=strNoticias("dbluz_data")%> </div> <div class="box-noticias-subtitulo"> <%=strNoticias("dbluz_subtitulo")%> </div> <div class="box-noticias-titulo mt-4"> <%=strNoticias("dbluz_titulo")%> </div> <div class="box-noticias-descricao mt-5 text-justify"> <%=strNoticias("dbluz_descricao")%> </div> <div class="col-xl-12 col-lg-12 col-md-12 col-sm-12 col-xs-12 text-right box-noticias-fonte line-dotted-top mt-3 mb-5 p-2"> <span class="mb-5 mt-2 p-2 bg-success"> <a href="index.asp?idnot=<%=strNoticias("id")%>" role="button" class="btn btn-clean"> <span class="fa fa-print fa-1x font-color-var1"></span> </a> </span> </div> <% strNoticias.MoveNext Loop SET strNoticias = Nothing %> </div> <div class="col-xl-4 col-lg-4 col-md-4 col-sm-4 col-xs-12 mt-5 p-0"> <% SQL2 = "SELECT * FROM dbluz_noticias " SET strNoticiasBlocos = Server.CreateObject("ADODB.Recordset") strNoticiasBlocos.Open SQL2, conexao, 3, 3 IF strNoticiasBlocos.EOF THEN %> <div class="row"> <div class="col-xl-12 col-lg-12 col-md-12 col-sm-12 col-xs-12 text-center"> <h1>AVISO!</h1> <h4 style="color: green;">Não existem noticias cadastradas no momento, <br> ou não existe registro para este ID informado.</h4> </div> </div> <% ELSE ItensExibidos = 1 'Qtde de Itens' NumeroDaPagina = Request.QueryString("pg") IF NumeroDaPagina = "" THEN NumeroDaPagina = 1 TotalDeRegistros = UBound(strNoticiasBlocos.GetRows,2)+1 InicioDaPagina = ((ItensExibidos*NumeroDaPagina)-ItensExibidos) FinalDaPagina = ItensExibidos IF TotalDeRegistros <= ItensExibidos THEN PaginaTotal = 1 ELSEIF (TotalDeRegistros MOD ItensExibidos = 0) THEN PaginaTotal = (TotalDeRegistros/ItensExibidos) ELSE PaginaTotal = (TotalDeRegistros/ItensExibidos) + 1 PaginaTotal = Cint(PaginaTotal) END IF strNoticiasBlocos.close SQL3 = SQL2 & "WHERE id != (SELECT max(id) FROM dbluz_noticias) ORDER BY id DESC LIMIT "& InicioDaPagina &" , "& FinalDaPagina &"" strNoticiasBlocos.Open SQL3, conexao, 3, 3 %> <div class="row"> <div class="col-xl-12 col-lg-12 col-md-12 col-sm-12 col-xs-12 mb-2"> <% DO WHILE NOT strNoticiasBlocos.EOF %> <div class="box-noticias-data-min"><%= strNoticiasBlocos("dbluz_data")%></div> <div class="box-noticias-titulo-min mt-1 mb-1"> <a href="index.asp?idnot=<%=strNoticiasBlocos("id")%>" class=""> <%= strNoticiasBlocos("dbluz_titulo")%> </a> </div> <div class="box-noticias-descricao-min hidden-sm hidden-xs mb-4 line-dotted-top"> <%= LEFT(strNoticiasBlocos("dbluz_descricao"),200)%> </div> <% strNoticiasBlocos.MoveNext Loop %> </div> <% END IF END IF %> </div> <div class="col-xl-12 col-lg-12 col-md-12 col-md-12 col-xs-12"> <ul class="pagination pagination-sm"> <% IF Cint(NumeroDaPagina) = 1 THEN %> <li class="page-item disabled"> <a class="page-link fa fa-home" href="?pg=1" tabindex="-1"></a> </li> <li class="page-item disabled"> <a class="page-link" href="?pg=<%=NumeroDaPagina-1%>" tabindex="-1">Anterior</a> </li> <% ELSE %> <li class="page-item"> <a class="page-link fa fa-home" href="?pg=1" tabindex="-1"></a> </li> <li class="page-item"> <a class="page-link" href="?pg=<%=NumeroDaPagina-1%>" tabindex="-1">Anterior</a> </li> <% END IF %> <% FOR intID = 1 TO PaginaTotal IF intID = Cint(NumeroDaPagina) THEN %> <li class="page-item active"><a class="page-link" href="#"><b><%=intID%></b></a></li> <% ELSE %> <li class="page-item"> <a class="page-link" href="?pg=<%=intID%>"> <%=intID%> </a> </li> <% END IF NEXT %> <% IF Cint(NumeroDaPagina) = PaginaTotal THEN %> <li class="page-item disabled"> <a class="page-link" href="?pg=<%=NumeroDaPagina+1%>">Proxima</a> </li> <li class="page-item disabled"> <a class="page-link fa fa-arrow-circle-right" href="?pg=<%=PaginaTotal%>"></a> </li> <% ELSE %> <li class="page-item"> <a class="page-link" href="?pg=<%=NumeroDaPagina+1%>">Proxima</a> </li> <li class="page-item"> <a class="page-link fa fa-arrow-circle-right" href="?pg=<%=PaginaTotal%>"></a> </li> <% END IF %> </ul> </div> <div class="col-xl-12 col-lg-12 col-md-12 col-md-12 col-xs-12"> <div class="text-right p-1" style="font-size: 10px;"> Navegando na página <b id="barra_numero"><%= NumeroDaPagina %></b> de <b id="barra_total"><%= PaginaTotal %></b> </div> <div class="text-right p-1" style="font-size: 10px; color: dimgray;"> TOTAL DE <b id="barra_registro"><%= TotalDeRegistros %></b> REGISTROS </div> </div> </div> </div> </section> CODIGO DA PAGINACAO EXTRAIDO DA PARTE DE CIMA, a parte que preciso ajustar.... <ul class="pagination pagination-sm"> <% IF Cint(NumeroDaPagina) = 1 THEN %> <li class="page-item disabled"> <a class="page-link fa fa-home" href="?pg=1" tabindex="-1"></a> </li> <li class="page-item disabled"> <a class="page-link" href="?pg=<%=NumeroDaPagina-1%>" tabindex="-1">Anterior</a> </li> <% ELSE %> <li class="page-item"> <a class="page-link fa fa-home" href="?pg=1" tabindex="-1"></a> </li> <li class="page-item"> <a class="page-link" href="?pg=<%=NumeroDaPagina-1%>" tabindex="-1">Anterior</a> </li> <% END IF %> <% FOR intID = 1 TO PaginaTotal IF intID = Cint(NumeroDaPagina) THEN %> <li class="page-item active"><a class="page-link" href="#"><b><%=intID%></b></a></li> <% ELSE %> <li class="page-item"> <a class="page-link" href="?pg=<%=intID%>"> <%=intID%> </a> </li> <% END IF NEXT %> <% IF Cint(NumeroDaPagina) = PaginaTotal THEN %> <li class="page-item disabled"> <a class="page-link" href="?pg=<%=NumeroDaPagina+1%>">Proxima</a> </li> <li class="page-item disabled"> <a class="page-link fa fa-arrow-circle-right" href="?pg=<%=PaginaTotal%>"></a> </li> <% ELSE %> <li class="page-item"> <a class="page-link" href="?pg=<%=NumeroDaPagina+1%>">Proxima</a> </li> <li class="page-item"> <a class="page-link fa fa-arrow-circle-right" href="?pg=<%=PaginaTotal%>"></a> </li> <% END IF %> Desde já obrigado...
  10. fsanchez

    WebHook's API

    Olá Pessoal! Para auxilio de outros desenvolvedores que estão iniciando com WEBHOOK, segue algumas dicas que obtive desenvolvendo um webhook. Webhook de forma resumida: - Webhooks permitem criar integrações que comunicam eventos ocorridos nos documentos da plataforma da Clicksign. Quando um evento ocorre, a Clicksign notifica a sua aplicação imediatamente, através de uma requisição HTTP POST para a URL previamente cadastrada. Eventos dentro do webhook - Quando ocorrerem eventos nos documentos, uma requisição HTTP POST será disparada para a URL previamente cadastrada nas configurações da conta. Aqui que vem a dica: O servidor cliente faz uma requisição, e aguarda uma resposta da sua aplicação, informando se você recebeu a requisição: - Responda a requisição do Webhook com uma resposta HTTP 200 OK. Qualquer resposta fora do intervalo 2XX informará que você não recebeu seu webhook. exemplo em ASP : Response.ContentType = "application/json" Response.Status="HTTP/1.1 200 OK" Depois é só alegria, tratar dados recebidos. exemplo: ATRAVES DO SERVERVARIABLES CONSIGO OBERTER O RESULTADO DA REQUISIÇÃO cabecalho_completo = Request.ServerVariables("ALL_HTTP") content_type = Request.ServerVariables("CONTENT_TYPE") ...etc... Pra voce conseguir pegar o json, isso em ASP, será necessario converte - lo em Tipo Byte, depois em String para você se quiser obter alguma tag do JSON para algum tratamento. exemplo: Dim lngBytesCount lngBytesCount = Request.TotalBytes jsonstring = BytesToStr(Request.BinaryRead(lngBytesCount)) Function BytesToStr(bytes) Dim Stream Set Stream = Server.CreateObject("Adodb.Stream") Stream.Type = 1 'tipo de dados binarios Stream.Open Stream.Write bytes Stream.Position = 0 Stream.Type = 2 'tipo de dados texto Stream.Charset = "iso-8859-1" BytesToStr = Stream.ReadText Stream.Close Set Stream = Nothing End Function 'Instancio o obejto JSON' Set oJSON = New aspJSON 'Carrego a String JSON oJSON.loadJSON(jsonstring) 'Obter valor simples nome_tag = oJSON.data("tagJSON").item("tagJSON")
  11. Como Posso recuperar o retorno do JSON que foi enviado via POST de uma requisição Webhook em asp classic. Precisaria mais ou menos assim: POST / HTTP/1.1 Host: testecrm.requestcatcher.com Accept: */* Accept-Encoding: gzip, deflate Content-Hmac: sha256=fc9e789996bdd63c0f03dacccb1ef992310d8516d9e8673bce5b1d0825100cda Content-Length: 5363 Content-Type: application/json Event: add_signer User-Agent: rest-client/2.0.2 (linux-musl x86_64) ruby/2.6.3p62 X-Newrelic-Id: VQUDV1JXGwICU1RWBggDUg== X-Newrelic-Transaction: PxQHAAQGDldRU1lWVgUGAFIIFB8EBw8RVU4aUllaUQRXBA5ZBQAHUwIADkNKQQoKA1IAVwAEFTs=
  12. s3c0

    Webservice JSON + ASP

    Fala pessoal, estou com um probleminha com uma integração, onde preciso ler um resposta JSON em ASP Clássico. a resposta é {"id":1,"name":"PAC","price":"45.65","custom_price":"45.65","discount":"7.41","currency":"R$","delivery_time":8,"delivery_range":{"min":8,"max":8},"custom_delivery_time":8,"custom_delivery_range":{"min":8,"max":8},"packages":{"price":"45.65","discount":"7.41","format":"box","dimensions":{"height":20,"width":20,"length":20},"weight":"1.00","insurance_value":"1000.00","products":{"id":"teste1","quantity":1}},"additional_services":{"receipt":true,"own_hand":false,"collect":false},"company":{"id":1,"name":"Correios","picture":"https:\/\/sandbox.melhorenvio.com.br\/images\/shipping-companies\/correios.png"}},{"id":2,"name":"EXPRESSO","price":"68.51","custom_price":"68.51","discount":"11.95","currency":"R$","delivery_time":5,"delivery_range":{"min":5,"max":5},"custom_delivery_time":5,"custom_delivery_range":{"min":5,"max":5},"packages":{"price":"68.51","discount":"11.95","format":"box","dimensions":{"height":20,"width":20,"length":20},"weight":"1.00","insurance_value":"1000.00","products":{"id":"teste1","quantity":1}},"additional_services":{"receipt":true,"own_hand":false,"collect":false},"company":{"id":1,"name":"Correios","picture":"https:\/\/sandbox.melhorenvio.com.br\/images\/shipping-companies\/correios.png"}},{"id":3,"name":".Package","price":"33.51","custom_price":"33.51","discount":"15.58","currency":"R$","delivery_time":6,"delivery_range":{"min":5,"max":6},"custom_delivery_time":6,"custom_delivery_range":{"min":5,"max":6},"packages":{"format":"box","dimensions":{"height":20,"width":20,"length":20},"weight":"1.00","insurance_value":"1000.00","products":{"id":"teste1","quantity":1}},"additional_services":{"receipt":true,"own_hand":false,"collect":false},"company":{"id":2,"name":"JadLog","picture":"https:\/\/sandbox.melhorenvio.com.br\/images\/shipping-companies\/jadlog.png"}},{"id":4,"name":".Com","price":"32.63","custom_price":"32.63","discount":"26.48","currency":"R$","delivery_time":5,"delivery_range":{"min":4,"max":5},"custom_delivery_time":5,"custom_delivery_range":{"min":4,"max":5},"packages":{"format":"box","dimensions":{"height":20,"width":20,"length":20},"weight":"1.00","insurance_value":"1000.00","products":{"id":"teste1","quantity":1}},"additional_services":{"receipt":true,"own_hand":false,"collect":false},"company":{"id":2,"name":"JadLog","picture":"https:\/\/sandbox.melhorenvio.com.br\/images\/shipping-companies\/jadlog.png"}} Tenho a seguinte página para receber essa resposta <!--#include file="includes/json2.asp"--> <% Dim objXML, Result Set objXML = Server.CreateObject("Microsoft.XMLHTTP") On Error Resume Next For i = 1 To 3 objXML.Open "POST" , url, False , "", "" objXML.setRequestHeader "content-type", "application/json" objXML.setRequestHeader "accept", "application/json" objXML.setRequestHeader "authorization", "Bearer " & Bearer objXML.Send variavel_json If Err.Number = 0 Then Result = objXML.ResponseText end if Exit For Next Set objXML = Nothing Result = replace(replace(Result,"[",""),"]","") a=Split(Result,".png""}},") For Each x In a set x = JSON.parse(Result) Response.write(x.name & vbNewline) Response.write(x.price & vbNewline) Response.write(x.delivery_time & vbNewline) Response.write(x.company.name & vbNewline) Next %> O que ocorre, é que imprimi somente a última linha Print .Com 32.63 5 JadLog .Com 32.63 5 JadLog .Com 32.63 5 JadLog .Com 32.63 5 JadLog Alguém poderia me dizer onde estou errando? Agradeço a atenção de todos! Abraços
  13. Pessoal se alguém puder me ajudar com alguma dica,exemplo ou como fazer isso em asp clássico , quero colocar emojis nas metas title e description mais não acho nenhum exemplo bom para usar. Quero fazer igual este site no link abaixo, eles usam um plug Wordpress é possível fazer isso em asp ? https://searchenginewatch.com/2017/02/22/google-brings-emoji-back-to-the-serps Achei este site aqui http://www.amp-what.com/unicode/search/weather teria alguma forma de usar api para trazer estes ícones para meu site, desde já agradeço a colaboração de todos. Quando insiro o código no meu campo titulo o emoji aparece o problema está na exibição do código font que aparece como mostrado abaixo: Aparece assim: <title> &#128574; | Criação de sites para empresas em Alta Floresta D'Oeste </title> Desejo fazer aparecer assim <title> aparecer imagem do emoji aqui | Criação de sites para empresas em Alta Floresta D'Oeste </title>
  14. Boa noite galera, tudo bem? Por favor, preciso fazer uma função em ASP onde tenho um campo data_gravacao, pegar essa data e verificar se está expirando após 365 dias. Exemplo: Data_gravacao = 27/06/2019 quando estiver chegando proximo a 27/06/2020 mudar a cor, informar na tela que está inspirando. Poderiam me orientar de como posso fazer? Colocar um exemplo? Muito obrigado desde já.
  15. s3c0

    ASP + PDF

    Amigos, boa noite. Estou tentando gerar um simples documento em PDF, porém sempre retorna erro quando adiciono imagem. Utilizo o componente FPDF. Abaixo a página que é gerada o erro. <!--#include file="fpdf.asp"--> <% dim pdf Dim imagem '// criando o pdf set pdf=CreateJsObject("FPDF") '// aki poderemos adcionar várias funções como titulos padroes para todas as páginasm numeração de páginas e etc. '// montando o corpo do pdf, setando o tipo da folha, tipo de medida e o tamanho da folha pdf.CreatePDF "P","mm","A4" pdf.SetPath("fpdf/") pdf.Open() '// adcionando página pdf.AddPage() pdf.Image "arquivos/background1.jpg",0,0,200 pdf.Close() Alguém saberia me dizer onde está o erro?
  16. Boa tarde pessoal, Sou nova por aqui e também sou nova na programação, e gostaria da ajuda de alguém, se possível. Eu montei uma pagina que cria questionários, onde o usuário pode criar perguntas com 4 tipos de respostas (Radio, Checkbox, Text e Number). Porém não sei como verificar se no questionário, foi criado pelo menos uma pergunta de cada tipo. Montei assim: <select name="tipoconsquestao" id="tipoconsquestao" style="color:#000000; font-size:9px; width:130px; "> <option value="1" selected >Única escolha</option> <option value="2">Múltipla escolha</option> <option value="3">Texto livre</option> <option value="4">Número livre</option> </select> Criei um bloco desses para cada tipo de pergunta: <%if (ArrayQuestions(6,i) = 1) then%> <td width="8%" align=center> <input name="<%=conta_grupo%>" data-sm-tipo="<%=ArrayQuestions(6,i)%>" data-sm-vrmaxquestao="<%=ArrayQuestions(11,i)%>" data-sm-questao-numero="<%=ArrayQuestions(2,i)%>" data-sm- alternativa="<%=ArrayQuestions(3,i)%>" data-sm-questao="<%=conta_grupo%>" id="<%=conta_Alternativa%>" type="radio" value="<%=ArrayQuestions(3,i) %>" <%if ArrayQuestions(4,i) = 1 then response.write "checked"%>/> </td> <td width="92%" >&nbsp;&nbsp;&nbsp;<b><%=ArrayQuestions(1,i)%><b></td> <% end if %> Recebo aqui: var arrayquestoes = []; var arrayalternativas = []; var questionarioRadio = []; var questionarioCheck = []; var questionarioText = []; var questionarioNum = []; for (var i = 1; i <= n_grupos; i++) { var countRadio = 0; var countCheck = 0; var countText = 0; var countVrText = 0; var countVariosVrText = 0; var countNum = 0; $("[data-sm-questao='" + i + "']").each(function (index, value) { var questao = $(this).attr("data-sm-questao-numero"); var alternativa = $(this).attr("data-sm-alternativa"); //alert(alternativa); var vralternativa = $(this).val(); var tipoalternativa = $(this).attr("data-sm-tipo"); vrmaxtotalizacao = $(this).attr("data-sm-vrmaxquestao"); arrayquestoes[i - 1] = questao; //============================================================================================================== // Verifica todos os campos tipo questão 1 (Radiobuttons) e carrega o array questionarioRadio com true ou false //============================================================================================================== if (eval(tipoalternativa) == 1) { if (this.checked) { questionarioRadio[countRadio] = true; if (textoalternativas == '') { textoalternativas = questao + '|' + alternativa + '|' + 1; } else { textoalternativas = textoalternativas + ';'+ questao + '|' + alternativa + '|' + 1; } } else { questionarioRadio[countRadio] = false; } countRadio = countRadio + 1; //console.log(cont); } Faço a validação aqui: for (var k = 0; k < questionarioRadio.length; k++) { if (questionarioRadio[k]) { if (!saidafinalRadio) { saidafinalRadio = true; } } } if (questionarioRadio.length == 1) { saidafinalRadio = true; } } if (!saidafinalRadio) { alert('Por favor responda todas as questões de única escolha.'); return; } E mando para o banco de dados.
  17. s3c0

    JSON + ASP

    Prezados, Estou precisando consumir um JSON em ASP Classic, porém nunca me deparei com um resultado JSON desta maneira. {"Generation":{"@attributes":{"version":"3.3.0","timestamp":"1554501899"}},"Options":{"@attributes":{"tempFormat":"c","byteFormat":"auto_binary","datetimeFormat":"utc","refresh":"60000","threshold":"90"}},"Vitals":{"@attributes":{"Hostname":"WIN2K","IPAddr":"127.0.0.1","Kernel":"6.1.7600 (64-bit)","Distro":"Microsoft Windows Server 2008 R2 Enterprise","Distroicon":"WinVista.png","Uptime":"381618","Users":"0","LoadAvg":"","CPULoad":"0","SysLang":"Portuguese - Brazil (1046)","CodePage":"windows-1252","Processes":"58","OS":"WINNT"}},"Network":{},"Hardware":{"@attributes":{"Name":"VMware, Inc. VMware Virtual Platform"},"PCI":{"Device":[{"@attributes":{"Name":"PCI standard PCI-to-PCI bridge","Count":"2"}},{"@attributes":{"Name":"PCI Express standard Root Port","Count":"32"}},{"@attributes":{"Name":"Standard AHCI 1.0 Serial ATA Controller","Manufacturer":"Standard AHCI 1.0 Serial ATA Controller"}},{"@attributes":{"Name":"Intel(R) PRO\/1000 MT Network Connection","Manufacturer":"Intel"}},{"@attributes":{"Name":"Intel(R) PRO\/1000 MT Network Connection #2","Manufacturer":"Intel"}},{"@attributes":{"Name":"Intel(R) PRO\/1000 MT Network Connection #3","Manufacturer":"Intel"}},{"@attributes":{"Name":"LSI Adapter, SAS 3000 series, 8-port with 1068","Manufacturer":"LSI"}},{"@attributes":{"Name":"Intel 82371AB\/EB PCI to ISA bridge (ISA mode)","Manufacturer":"Intel"}},{"@attributes":{"Name":"VMware SVGA 3D","Manufacturer":"VMware, Inc."}},{"@attributes":{"Name":"Intel(R) 82371AB\/EB PCI Bus Master IDE Controller","Manufacturer":"Intel"}},{"@attributes":{"Name":"VMware VMCI Bus Device","Manufacturer":"VMware, Inc."}},{"@attributes":{"Name":"Intel 82443BX Pentium(R) II Processor to PCI Bridge","Manufacturer":"Intel"}}]},"IDE":{"Device":{"@attributes":{"Name":"NECVMWar VMware SATA CD00 ATA Device"}}},"SCSI":{"Device":{"@attributes":{"Name":"VMware Virtual disk SCSI Disk Device","Capacity":"128849011200"}}},"CPU":{"CpuCore":[{"@attributes":{"Model":"Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz","CpuSpeed":"3400","Cache":"0"}},{"@attributes":{"Model":"Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz","CpuSpeed":"3400","Cache":"0"}},{"@attributes":{"Model":"Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz","CpuSpeed":"3400","Cache":"0"}},{"@attributes":{"Model":"Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz","CpuSpeed":"3400","Cache":"0"}}]}},"Memory":{"@attributes":{"Free":"1575329792","Used":"2719170560","Total":"4294500352","Percent":"63"},"Swap":{"@attributes":{"Free":"2833252352","Used":"900726784","Total":"3733979136","Percent":"24"},"Mount":{"@attributes":{"MountPointID":"1","FSType":"swap","Name":"SWAP","Free":"2833252352","Used":"900726784","Total":"3733979136","Percent":"24","MountPoint":"C:\\pagefile.sys"}}}},"FileSystem":{"Mount":[{"@attributes":{"MountPointID":"1","FSType":"","Name":"Removable Disk (3 1\/2 in.)","Free":"0","Used":"0","Total":"0","Percent":"0","MountPoint":"A:"}},{"@attributes":{"MountPointID":"2","FSType":"NTFS","Name":"Local Disk","Free":"16396288","Used":"128725663744","Total":"128742060032","Percent":"100","MountPoint":"C:"}},{"@attributes":{"MountPointID":"3","FSType":"","Name":"Compact Disc","Free":"0","Used":"0","Total":"0","Percent":"0","MountPoint":"D:"}}]},"MBInfo":{},"UPSInfo":{},"Plugins":{},"Errors":{}} Preciso pegar alguns valores desse resultado. Esses valores são CPULoad, Memory e Hard Disk. oJSON.loadJSON("http://127.0.0.1/xml.php?plugin=complete&json") 'Loop through collection For Each dados In oJSON.data("Vitals") Set this = oJSON.data("Vitals").item(dados) processador = this.item("CPULoad") Next For Each dados In oJSON.data("Memory") Set this = oJSON.data("Memory").item(dados) memoria = this.item("Total") Next For Each dados In oJSON.data("FileSystem") Set this = oJSON.data("FileSystem").item(dados) if this.item("MountPointID") = "2" then hd = this.item("Percent") end if Next Tentei de algumas formas, mas sem sucesso. Alguém teria alguma idéia de como posso pegar esses valores? Agradeço a atenção de todos.
  18. s3c0

    Ler XML ASP

    Prezados, boa noite. Estou precisando de um help! possuo um script que retorna o seguinte XML: <tns:phpsysinfo xmlns:tns="http://phpsysinfo.sourceforge.net/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://phpsysinfo.sourceforge.net/ phpsysinfo3.xsd"> <Generation version="3.3.0" timestamp="1554324372"/> <Options tempFormat="c" byteFormat="auto_binary" datetimeFormat="utc" refresh="60000" threshold="90"/> <Vitals Hostname="WIN" IPAddr="127.0.0.1" Kernel="6.1.7600 (64-bit)" Distro="Microsoft Windows Server 2008 R2 Enterprise" Distroicon="WinVista.png" Uptime="204091" Users="0" LoadAvg="" CPULoad="0" SysLang="Portuguese - Brazil (1046)" CodePage="windows-1252" Processes="56" OS="WINNT"/> <Network/> <Hardware Name="VMware, Inc. VMware Virtual Platform"> <PCI> <Device Name="PCI standard PCI-to-PCI bridge" Count="2"/> <Device Name="PCI Express standard Root Port" Count="32"/> <Device Name="Standard AHCI 1.0 Serial ATA Controller" Manufacturer="Standard AHCI 1.0 Serial ATA Controller"/> <Device Name="Intel(R) PRO/1000 MT Network Connection" Manufacturer="Intel"/> <Device Name="Intel(R) PRO/1000 MT Network Connection #2" Manufacturer="Intel"/> <Device Name="Intel(R) PRO/1000 MT Network Connection #3" Manufacturer="Intel"/> <Device Name="LSI Adapter, SAS 3000 series, 8-port with 1068" Manufacturer="LSI"/> <Device Name="Intel 82371AB/EB PCI to ISA bridge (ISA mode)" Manufacturer="Intel"/> <Device Name="VMware SVGA 3D" Manufacturer="VMware, Inc."/> <Device Name="Intel(R) 82371AB/EB PCI Bus Master IDE Controller" Manufacturer="Intel"/> <Device Name="VMware VMCI Bus Device" Manufacturer="VMware, Inc."/> <Device Name="Intel 82443BX Pentium(R) II Processor to PCI Bridge" Manufacturer="Intel"/> </PCI> <IDE> <Device Name="NECVMWar VMware SATA CD00 ATA Device"/> </IDE> <SCSI> <Device Name="VMware Virtual disk SCSI Disk Device" Capacity="128849011200"/> </SCSI> <CPU> <CpuCore Model="Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz" CpuSpeed="3400" Cache="0"/> <CpuCore Model="Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz" CpuSpeed="3400" Cache="0"/> <CpuCore Model="Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz" CpuSpeed="3400" Cache="0"/> <CpuCore Model="Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz" CpuSpeed="3400" Cache="0"/> </CPU> </Hardware> <Memory Free="1720385536" Used="2574114816" Total="4294500352" Percent="60"> <Swap Free="3048210432" Used="685768704" Total="3733979136" Percent="18"> <Mount MountPointID="1" FSType="swap" Name="SWAP" Free="3048210432" Used="685768704" Total="3733979136" Percent="18" MountPoint="C:\pagefile.sys"/> </Swap> </Memory> <FileSystem> <Mount MountPointID="1" FSType="" Name="Removable Disk (3 1/2 in.)" Free="0" Used="0" Total="0" Percent="0" MountPoint="A:"/> <Mount MountPointID="2" FSType="NTFS" Name="Local Disk" Free="732983296" Used="128009076736" Total="128742060032" Percent="99" MountPoint="C:"/> <Mount MountPointID="3" FSType="" Name="Compact Disc" Free="0" Used="0" Total="0" Percent="0" MountPoint="D:"/> </FileSystem> <MBInfo/> <UPSInfo/> <Plugins/> <Errors/> </tns:phpsysinfo> tenho o seguinte código em ASP: <% url_server = "http://127.0.0.1/xml.php?plugin=complete" Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP") Call xmlhttp.open("GET", url_server, false) Call xmlhttp.send() strRetorno = xmlhttp.responseText Set oXmlDom = Server.CreateObject("Msxml2.DOMDocument.3.0") oXmlDom.loadXML strRetorno Set oNodes = oXmlDom.selectNodes("tns:phpsysinfo/FileSystem/Mount") for each oNode in oNodes response.write "Cache " & oNode.selectSingleNode("Percent").Text next Set oXmlDom = Nothing %> ao tentar trazer alguns valores, sempre me retorna o seguinte erro: Erro de tempo de execução do Microsoft VBScript erro '800a01a8' Objeto necessário: 'oNode.selectSingleNode(...)' Preciso trazer os valores de: CPU Memory HD Alguém teria alguma dica de como consigo resolver? Agradeço a atenção de todos.
  19. laumello12

    Consumir web service c#

    Galera ajudinha Como faço para consumir um web service pronto em um projeto. Preciso só que ele busque no web service e traga na web HELP
  20. alecarnero

    Login obrigatorio em ASP classic

    Eu fiz uma pagina de login SiteMaster.asp trabalha com uma pagina verify.asp , coloque ela como documento padrao , problema que sim o usuario ja tem gravada alguma pagina de antes ele consegue accesar sem pasar pela login page http://localhost/teste/barra.asp quem souber o nome das paginas consegue acceso direito que tenho que agregar para somente accese qualquer pagina quem passo pelo login? Obrigado por qualquer orientaçao Alejandro
  21. mmalainho

    MySQL ODBC 5.3 ANSI DRIVER

    Tenho um site em ASP nas línguas Português, Espanhol e Romeno. O serviço de hospedagem alterou o MYSQL ODBC para a versão 5.3 ANSI e agora não consigo fazer o update de texto em romeno (por exemplo Lecția 8 - Îmbunătățirea confortului mișcării corpului - Amortizarea )na base dados através de um formulário HTML. Tenho uma conexão para listar tudo sem problemas em todas as línguas mas fazer o insert/update não funciona em nenhuma das línguas com palavras acentuadas. conn.ConnectionString="DRIVER={MySQL ODBC 5.3 ANSI Driver}; SERVER="&srv&"; DATABASE="&bd&"; UID="&uid&";PASSWORD="&pws&";PORT="&port&"; OPTION=3; charset=utf8; " Já experimentei retirar charset=utf8; e assim consigo inserir/atualizar em português e espanhol, mas Romeno não. conniu.ConnectionString="DRIVER={MySQL ODBC 5.3 ANSI Driver}; SERVER="&srv&"; DATABASE="&bd&"; UID="&uid&";PASSWORD="&pws&";PORT="&port&"; OPTION=3;" Versão do MySQL Versão do servidor: 5.1.73-community Charset: utf8_general_ci Tabela está também com utf8_general_ci Alguma sugestão ficaria muito grato
  22. Olá amigos, Preciso muito da ajuda de vocês, sou nova tanto aqui quanto nessa área e preciso de uma luz pra resolver esse pequeno probleminha. O código a seguir esta me dando este seguinte erro: erro '80020009' /smart/bridge/carne.asp, linha 106 Código: <% dim rsLancamento sql = "select * from vw_lancamento where id_parceiro="&request("id_parceiro")&" and tp_lancamento=1 and id_situacao_lancamento=1 order by dt_vencimento asc" set rsLancamento = GetRS(sql) dim rsParceiro sql = "select * from parceiro where id_parceiro="&request("id_parceiro") set rsParceiro = GetRS(sql) dim rsMatricula sql = "select * from matricula where id_aluno="&request("id_parceiro") set rsMatricula = GetRS(sql) dim rsCurso sql = "select * from curso where id_curso="&rsMatricula("id_curso") set rsCurso = GetRS(sql) %> </head> <body> <div style="width:80%; margin-left:10%;"><!--#include file = "topofixo.asp" --></div> <div id="CARNE"> <div id="print" align="center"><input type="button" name="imprimir" value="Imprimir" onClick="window.print();"></div> <div id="printable"> <DIV ID="TOPO"> <p>ALUNO: <%= rsParceiro("nome")%></p> <p>CPF: <%= rsParceiro("CPF")%></p> <p>ENDERE&Ccedil;O: <%= rsParceiro("endereco")%> </p> <p>BAIRRO: <%= rsParceiro("bairro")%> </p> <p>CURSO: <%= rsCurso("ds_curso")%></p> <p>ANO: <%=year(now)%></p> </DIV> <%if rsLancamento.eof then%> <p align="center">SEM LANÇAMENTOS CADASTRADOS</p> <%else%> <%dim cont%> <%do while not rsLancamento.eof%> <%cont = cont + 1%> <div id="c_1" style="BORDER-LEFT:dotted 1px #000;"> <p style="float:left; margin:0;">RECIBO DO CLIENTE</p> <p align="center" CLASS="PARCELA"><%=cont%></p> <p class="c_t">CLIENTE: <%= rsParceiro("respfinan")%></p> <p class="c_t">VENCIMENTO: <%=rsLancamento("dt_vencimento")%></p> <p class="c_t">VALOR A PAGAR: R$<%=formatnumber(rsLancamento("vr_curso"),2)%></p> <p class="c_t">VALOR PAGO: </p> <p class="c_t">AUTENTICA&Ccedil;&Atilde;O: <%=rsLancamento("id_lancamento")%></p> </div> <div id="c_1"> <p style="float:left; margin:0;">&nbsp;</p> <p align="center" CLASS="PARCELA"><%=cont%></p> <p class="c_t">CLIENTE: <%= rsParceiro("respfinan")%></p> <p class="c_t">VENCIMENTO: <%=rsLancamento("dt_vencimento")%></p> <p class="c_t">VALOR A PAGAR: R$<%=formatnumber(rsLancamento("vr_curso"),2)%></p> <p class="c_t">VALOR PAGO: </p> <p class="c_t">AUTENTICA&Ccedil;&Atilde;O: <%=rsLancamento("id_lancamento")%></p> </div> <%rsLancamento.movenext loop%> <%end if%></div> Se alguém puder ajudar ficarei eternamente grata.
  23. Bom dia pessoal. Estou desenvolvendo um script para cadastro de currículos e tenho uma dúvida. Em uma parte do meu formulário, a pessoa deverá cadastrar sua formação acadêmica, com 4 campos: curso, modalidade (bacharelado, mestrado, doutorado, etc), instituição e ano de conclusão. Ao clicar em um botão inserir, a mesma página deverá ser recarregada e as informações destes campos devem ser listadas logo abaixo desta parte do formulário (através de uma tabela). A pessoa poderá inserir quantas formações forem necessárias. A cada inserção, o script deverá considerar aquelas feitas anteriormente. Alguém tem algum script exemplo de como pode ser feito? Att. Giovanni Bohm Machado.
  24. Boa noite, estou em um projeto de Área de Membros que eu mesmo desenvolvi em ASP... É muito boa e está integrada com Hotmart. Agora, preciso mudar para PHP. Quem pode me ajudar nesta empreitada? Como pagamento, eu darei uma cópia desta Área de Membros como pagamento. O primeiro código é esse! CÓDIGO ASP... <% If Session("ADM_Email") <> "" Then Response.Cookies("LogosADM").item("EmailAdmin") = Session("ADM_Email") Response.Cookies("LogosADM").item("SenhaAdmin") = Session("ADM_Senha") Response.Cookies("LogosADM").Expires = DateAdd("d",7,Now) ' Se não for o primeiro acesso, recupera do cookie para a session ElseIf Session("ADM_Email") = "" Then Session("ADM_Email") = Request.Cookies("LogosADM").item("EmailAdmin") Session("ADM_Senha") = Request.Cookies("LogosADM").item("SenhaAdmin") 'Se for o primeiro acesso, cria a Session e também salva no cookie, para recuperar no próximo acesso. End If %> <% If Session("ADM_Email") = "" OR Session("ADM_Senha") = "" Then Response.Redirect("https://www.meusite1.com.br/gerenciador/login.asp") End If %> Como mudar para PHP? (Se você tiver interesse, acredito que em 1 semana, terei como migrar totalmente o sistema, pois desenvolvo em ASP.... Então, já tenho alguma noção de lógica... Só preciso do suporte, pois não tenho tempo suficiente para aprender a linguagem, e depois fazer a migração!) Farei todos os pedidos neste único tópico...
  25. Olá galera, Estou desenvolvendo uma página com um form disparado para um link externo, mas antes preciso salvar os dados em um banco de dados. Não manjo muito de Javascript, então sou grato pela ajuda de quem puder ajudar. O código está assim: Página do form: <form action="URL-pra-onde-vao-os-dados-do-form" method="post" onSubmit="javascript:return Valida(this)"> Na mesma página do Form: <script language="JavaScript"> function Valida(form) { var formulario = document.getElementById('id-do-form-aqui'); <% set BD=server.createobject("adodb.connection") BD.open MM_global_STRING Dim rsATV : Set rsATV = Server.CreateObject("adodb.recordset") rsATV.Open "usuarios",BD,3,3 'Tentativa de correção de acentuação no BD bem sucedida. 'Response.CharSet = "windows-1250" 'Session.LCID = 1046'PADRÃO BRASILEIRO rsATV.AddNew rsATV("us_nome_real") = Request.Form("FNAME") rsATV("us_email") = Request.Form("EMAIL") rsATV("us_nome") = Request.Form("USUARIO") rsATV("us_senha") = Request.Form("SENHA") rsATV("us_confirme_senha") = Request.Form("CONFIRMESENHA") rsATV.Update rsATV.Close %> formulario.submit(); return false }; end function </script> Os Form é enviado, o novo registro no banco é criado, mas sem os dados do form, ou seja, um registro em branco. Desde já agradeço a ajuda.
×

Important Information

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