Ir para conteúdo
Fórum Script Brasil

Ted k'

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    252

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Ted k'

  1. Alterar valor a cada tecla pressinada...

    em Ajax, JavaScript, XML, DOM

    Postado

    teste!!!

    <script>
function calculo(){
    var campo01 = new Number(document.getElementById("qtde1").value);
    var campo02 = new Number(document.getElementById("valor1").value);
    var mult;
    
    mult = new Number(parseFloat(campo01) * parseFloat(campo02));
    mult = mult.toFixed(2);
    mult = mult.replace(".",",");
    document.getElementById("subtotal1").value = mult;    
}
</script>
<form>
<input name="qtde1" type="text" id="qtde1" size="10" onfocus="calculo()">
<input name="valor1" type="text" id="valor1" size="13" onfocus="calculo()">
<input name="subtotal1" type="text" id="subtotal1" size="13">
</form>

  2. Lendo arquivo XML no ASP

    em ASP

    Postado · Editado por Ted k'

    isso é duvida de ASP

    mude isso aqui, ele está antes no "next"

    <%=rootElement.childNodes(i).attributes(1).text%>
    mude para isso: 
    <%=rootElement.childNodes(i).attributes(0).text%>

    EDITADO:

    OBS: ele também não está configurado para receber o xml desse segundo jeito!

  5. Texto com parágrafo

    em ASP

    Postado

    mais não é isso que deseja, agora deixa ver se entendi, você quer contar quantas linhas tem em um texto??, você pode contar as quantidades de <br> em uma string e passar esse parâmentro, assim você tem a quantidade de linhas mais fáceis:

    <%
stringVar = "asdasda<br>asdasdas<br>asdasdas<br>asdasd<br>"
stringVar = Split(stringVar,"<br>")
response.Write(Ubound(stringVar))
%>

  18. Cadastrando, Listando e Deletando com AJAX / ASP

    em Repositório de Scripts - ASP

    Postado · Editado por bareta
    */ sem comentários /* BARETA

    Código bem simples e útil para a galera que gosta de usar AJAX e não tem muita referência!

    Página para carregar o AJAX, funcionalidades:

    ajaxCarregar.js

    function GetXMLHttp() {   
    var xmlHttp;   
    try {   
        xmlHttp = new XMLHttpRequest();   
    }   
    catch(ee) {   
        try {   
            xmlHttp = new ActiveXObject("Msxml2.XMLHTTP");   
        }   
        catch(e) {   
            try {   
                xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");   
            }   
            catch(e) {   
                xmlHttp = false;   
            }   
        }   
    }   
    return xmlHttp;   
}   
  
var Enviar = GetXMLHttp();   
  
// Início - Cadastro   
function CadastrarDados() {   
    var Nome = document.getElementById("Nome");   
    var EMail = document.getElementById("EMail");   
  
    var URL = "Cadastro.asp?Cadastrar=Ok&Nome="+Nome.value+"&EMail="+EMail.value+"";   
    Enviar.open("GET", URL, true);   
    Enviar.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");   
    document.getElementById("Resposta").innerHTML = "Cadastrado com Sucesso!!!";   
  
    Nome.value = "";   
    EMail.value = "";   
  
    Enviar.send(null);   
    Enviar.onload = lerTexto;   
}   
// Final - Cadastro   
  
// Início - Deletar   
function apagar(id, rowIndex) {   
    if (confirm('Tem certeza que deseja excluir este registro?')) {   
        document.getElementById("tabela").deleteRow(rowIndex);   
  
        Enviar.open("POST",'Cadastro.asp?Deletar=Ok&id='+ id, false);   
        Enviar.send(null);   
    }   
}   
// Final - Deletar   
  
// Início - Carregar Página   
function lerTexto() {   
    var URLler = "Ler.asp";   
    Enviar.onreadystatechange = stateChanged;   
    Enviar.open("GET", URLler, true);   
    Enviar.send(null);   
}   
  
function stateChanged() {   
    if (Enviar.readyState==4) {   
        document.getElementById("ler_Dados").innerHTML = Enviar.responseText;   
    }   
}   
  
window.onload = lerTexto;   
// Final - Carregar Página
    ler.asp 
    <%@ Language="JavaScript" %>  
<%   
var Conexao;   
var Conexao = Server.CreateObject("Adodb.Connection");   
Conexao.ConnectionString = "Driver=MySQL ODBC 3.51 Driver; DataBase=banco; Server=localhost; Uid=root; PassWord=root;";   
Conexao.Open;   
%>  
<table width="407" border="1" cellspacing="0" cellpadding="0" id="tabela">  
  <tr>  
    <td width="164"><strong>NOME</strong></td>  
    <td width="159"><strong>EMAIL</strong></td>  
    <td width="76"><strong>Acionar</strong></td>  
  </tr>  
  <%   
  var rs = Conexao.Execute("Select * From Teste");   
  if (rs == null) {   
    Response.Write("NADA");   
  }   
  else {   
  while (!rs.EOF) {   
  %>  
  <tr>  
    <td><%=rs("Nome")%></td>  
    <td><%=rs("EMail")%></td>  
    <td><a href="#" onClick="apagar('<%=rs("Codigo")%>', this.parentNode.parentNode.rowIndex);">deletar</a></td>  
  </tr>  
  <%   
  rs.MoveNext();   
  }   
  }   
  %>  
</table>
    Cadastro.asp 
    <%@ Language="JavaScript" %>  
<%   
var Conexao;   
var Conexao = Server.CreateObject("Adodb.Connection");   
Conexao.ConnectionString = "Driver=MySQL ODBC 3.51 Driver; DataBase=banco; Server=localhost; Uid=root; PassWord=root;";   
Conexao.Open;   
%>  
<head>  
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />  
<title>Cadastrar</title>  
<script language="javascript" src="ajaxCarregar.js"></script>  
</head>  
<body>  
<div id="Resposta"></div><br>  
<form id="Form">  
    Nome: <input type="text" id="Nome" name="Nome" value=""><br>  
    E-Mail: <input type="text" id="EMail" name="EMail" value=""><br>  
    <input type="button" id="Cadastrar" value="Cadastrar" name="Cadastrar" onClick="CadastrarDados();">  
</form><br>  
<br>  
<br>  
<div id="ler_Dados"></div>  
</body>  
</html>  
<%   
if (Request.QueryString("Cadastrar") == "Ok") {   
    Conexao.Execute("Insert Into Teste (Nome, EMail) Values ('"+Request.QueryString("Nome")+"', '"+Request.QueryString("EMail")+"')");   
    Response.Write("");   
}   
  
if (Request.QueryString("Deletar") == "Ok") {   
    Conexao.Execute("Delete From Teste Where Codigo = '"+Request.QueryString("id")+"'");   
    Response.Write("");   
}   
%>  

<%@ Language="JavaScript" %>
<%
var Conexao;
var Conexao = Server.CreateObject("Adodb.Connection");
Conexao.ConnectionString = "Driver=MySQL ODBC 3.51 Driver; DataBase=banco; Server=localhost; Uid=root; PassWord=root;";
Conexao.Open;
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Cadastrar</title>
<script language="javascript" src="ajaxCarregar.js"></script>
</head>
<body>
<div id="Resposta"></div><br>
<form id="Form">
    Nome: <input type="text" id="Nome" name="Nome" value=""><br>
    E-Mail: <input type="text" id="EMail" name="EMail" value=""><br>
    <input type="button" id="Cadastrar" value="Cadastrar" name="Cadastrar" onClick="CadastrarDados();">
</form><br>
<br>
<br>
<div id="ler_Dados"></div>
</body>
</html>
<%
if (Request.QueryString("Cadastrar") == "Ok") {
    Conexao.Execute("Insert Into Teste (Nome, EMail) Values ('"+Request.QueryString("Nome")+"', '"+Request.QueryString("EMail")+"')");
    Response.Write("");
}

if (Request.QueryString("Deletar") == "Ok") {
    Conexao.Execute("Delete From Teste Where Codigo = '"+Request.QueryString("id")+"'");
    Response.Write("");
}
%>
Deixe seu Comentário

  19. Formatar datas para salvar no banco ou apresentar na tela

    em Repositório de Scripts - ASP

    Postado · Editado por Ted k'

    Escolha a melhor função (melhor dizendo, a adequada) para seu banco de dados:

    Formato: aaaa-mm-dd

    <%
Function ConverterDataBanco(ConDataBanco)
    ConDataBanco = Year(ConDataBanco) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2)
    ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>
    Formato: dd-mm-aaaa 
    <%
Function ConverterDataBanco(ConDataBanco)
    ConDataBanco = Right("0"&Day(ConDataBanco),2) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Year(ConDataBanco)
    ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>
    Formato: mm-dd-aaaa 
    <%
Function ConverterDataBanco(ConDataBanco)
    ConDataBanco = Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2) &"-"& Year(ConDataBanco)
    ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>
    Formato: mm/dd/aaaa 
    <%
Function ConverterDataBanco(ConDataBanco)
    ConDataBanco = Right("0"&Month(ConDataBanco),2) &"/"& Right("0"&Day(ConDataBanco),2) &"/"& Year(ConDataBanco)
    ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>

    Uma dica bem simples, nada de complicado!!

×
×
  • Criar Novo...