quarta-feira, 12 de junho de 2002

0

Formata e valida CPF na hora que a pessoa esta escrevendo.

Essa função que estou mandando serve para validar e formatar CPF na hora que a pessoa esta escrevendo.


// DICIONARIO DE FUNCOES
// formato: 999.999.999-99

////////////////////////////////////////////////////////////////////////////////////
function FormataCpf(campo,tammax,teclapres) {
 var tecla = teclapres.keyCode;
  
 vr = event.srcElement.value;
 vr = vr.replace( "/", "" );
 vr = vr.replace( "/", "" );
 vr = vr.replace( ",", "" );
 vr = vr.replace( ".", "" );
 vr = vr.replace( ".", "" );
 vr = vr.replace( ".", "" );
 vr = vr.replace( ".", "" );
 vr = vr.replace( "-", "" );
 vr = vr.replace( "-", "" );
 vr = vr.replace( "-", "" );
 vr = vr.replace( "-", "" );
 vr = vr.replace( "-", "" );
 tam = vr.length;


 if (tam < tammax && tecla != 8){ tam = vr.length + 1 ; }


 if (tecla == 8 ){ tam = tam - 1 ; }
  
 if ( tecla == 8 || tecla >= 48 && tecla <= 57 || tecla >= 96 && tecla <= 105 ){
  if ( tam <= 2 ){
    event.srcElement.value = vr ; }
   if ( (tam > 2) && (tam <= 5) ){
    event.srcElement.value = vr.substr( 0, tam - 2 ) + '-' + vr.substr( tam - 2, tam ) ; }
   if ( (tam >= 6) && (tam <= 8) ){
    event.srcElement.value = vr.substr( 0, tam - 5 ) + '.' + vr.substr( tam - 5, 3 ) + '-' + vr.substr( tam - 2, tam ) ; }
   if ( (tam >= 9) && (tam <= 11) ){
    event.srcElement.value = vr.substr( 0, tam - 8 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + '-' + vr.substr( tam - 2, tam ) ; }
   if ( (tam >= 12) && (tam <= 14) ){
    event.srcElement.value = vr.substr( 0, tam - 11 ) + '.' + vr.substr( tam - 11, 3 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + '-' + vr.substr( tam - 2, tam ) ; }
   if ( (tam >= 15) && (tam <= 17) ){
    event.srcElement.value = vr.substr( 0, tam - 14 ) + '.' + vr.substr( tam - 14, 3 ) + '.' + vr.substr( tam - 11, 3 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + '-' + vr.substr( tam - 2, tam ) ;}
 }  
}
//////////////////////////////////////////////////////////////////////////////////////////////////


forma de usar:
<input name="cpCNPJ" size="15" maxlength="80" onKeyPress="FormataCpf('cpCPFinformante',11,event)">



Esta matéria foi postada originalmente no ASP4Developers por Allan Torres (site), que na época era "Analista de sistemas, trabalho com ASP, Oracle, PHP, C, Ferramentas Case e estudo Eng. Elétrica. Sempre as ordens! ]:)". Hoje, vai saber...

1

Tirando os acentos das palavras

Essa função deve ser usada quando você precisa tirar toda a acentuação das palavras na hora de fazer uma busca


'#Função que tira todos os acentos das palavras
function TiraAcento(StrAcento)
 for i = 1 to len(StrAcento) 
  Letra = mid(StrAcento, i, 1)
  Select Case Letra
   Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"
   Letra = "A"
   Case "é","É","ê","Ê","Ë","ë","È","è"
   Letra = "E"
   Case "í","Í","ï","Ï","Ì","ì"
   Letra = "I"
   Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"
   Letra = "O"
   Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"
   Letra = "U"
   Case "ç","Ç"
   Letra = "C"
   Case "ñ"
   Letra = "N"
  End Select
  texto = texto & Letra
 next
 TiraAcento = texto
end function


Forma de usar:
TiraAcento ("[ÁÀáàÂâãÃÄeéèÈÈëíÌïÌíÓÒóòöÖõÕôÔúùÚÚÙÛûüÜ]")



Esta matéria foi postada originalmente no ASP4Developers por Allan Torres (site), que na época era "Analista de sistemas, trabalho com ASP, Oracle, PHP, C, Ferramentas Case e estudo Eng. Elétrica. Sempre as ordens! ]:)". Hoje, vai saber...

segunda-feira, 10 de junho de 2002

0

Caracteres especiais em XML + ASP

Grandes amigos, quem nunca teve um problema com XML e não sabia o que podia ser, pois bem, o XML tem alguns caracteres que são proprietários como &, ", ', <, > e vírgula.


Sendo assim, fiz essa função que deve ser usada na hora em que se esta escrevendo o XML, pois ela troca automaticamente os caracteres especiais por seus equivalente evitando erros no código.


function trocaEspecial(strCampo)
 strCampo = replace(strCampo,Chr(38),"&amp;")
 strCampo = replace(strCampo,Chr(39),"&apos;")
 strCampo = replace(strCampo,Chr(62),"&gt;")
 strCampo = replace(strCampo,Chr(60),"&lt;")
 strCampo = replace(strCampo,chr(34),"&quot;")
 trocaEspecial = strCampo
end function



Esta matéria foi postada originalmente no ASP4Developers por Allan Torres (site), que na época era "Analista de sistemas, trabalho com ASP, Oracle, PHP, C, Ferramentas Case e estudo Eng. Elétrica. Sempre as ordens! ]:)". Hoje, vai saber...

0

Debugando seu ASP + XML

Quando você esta trabalhando com ASP e XML temos uns problemas no XML que sempre pensamos que é o ASP, mas nem sempre ele é o culpado, o XML pode ter problemas tb.


Ao final do codigo coloque a chamada desta sub.

- Outra grande diga é sempre abrir seu código XML do IE, porque ele sempre verifica se o arquivo tem estrutura de XML válido.


Sub Debugar
 Response.write("<font face=""tahoma"" size=""1"">")
 Response.write("Error:<br>")
 Response.write("---------------------------------"&"<br>")
 Response.Write "Código: "& Objxml.Parseerror.Errorcode &"<Br>"
 Response.Write "Razão: "& Objxml.Parseerror.Reason &"<Br>"
 Response.Write "Arquivo: "& Objxml.Parseerror.Filepos &"<Br>"
 Response.Write "Linha: "& Objxml.Parseerror.Line &"<Br>"
 Response.Write "Url: "& Objxml.Parseerror.Url &"<Br>"
 Response.Write "Columa: "& Objxml.Parseerror.Linepos &"<Br>"
 Response.write("---------------------------------"&"<br>")
 Response.write("</font>")
End Sub



Esta matéria foi postada originalmente no ASP4Developers por Allan Torres (site), que na época era "Analista de sistemas, trabalho com ASP, Oracle, PHP, C, Ferramentas Case e estudo Eng. Elétrica. Sempre as ordens! ]:)". Hoje, vai saber...