[tccbolsajoin commit] r183 - trunk/Códigos
codesite...@google.com
Date: Tue Apr 8 15:37:28 2008
New Revision: 183
Added:
trunk/Códigos/
trunk/Códigos/ValidaEmail.asp
trunk/Códigos/validaFormulario.html
Log:
Added: trunk/Códigos/ValidaEmail.asp
==============================================================================
--- (empty file)
+++ trunk/Códigos/ValidaEmail.asp Tue Apr 8 15:37:28 2008
@@ -0,0 +1,38 @@
+ <%
+ '-----------------------------------------------------
+ 'Funcao: IsEmail(ByVal strEmail)
+ 'Sinopse: Verifica se o valor passado � um Email v�lido
+ 'Parametro: strEmail
+ 'Retorno: Booleano
+ 'Autor: Gabriel Fr�es - www.codigofonte.com.br
+ '-----------------------------------------------------
+ Function IsEmail(ByVal strEmail)
+ Dim regEx
+ Dim ResultadoHum
+ Dim ResultadoDois
+ Dim ResultadoTres
+ Set regEx = New RegExp ' Cria o Objeto Express�o
+ regEx.IgnoreCase = True ' Sensitivo ou n�o
+ regEx.Global = True ' N�o sei exatamente o que faz
+
+ ' Caracteres Excluidos
+ regEx.Pattern = "[^@\-\.\w]|^[_@\.\-]|[\._\-]{2}|[@\.]{2}|(@)[^@]*\1"
+ ResultadoHum = RegEx.Test(strEmail)
+ ' Caracteres validos
+ regEx.Pattern = "@[\w\-]+\."
+ ResultadoDois = RegEx.Test(strEmail)
+ ' Caracteres de fim
+ regEx.Pattern = "\.[a-zA-Z]{2,3}$"
+ ResultadoTres = RegEx.Test(strEmail)
+ Set regEx = Nothing
+
+ If Not (ResultadoHum) And ResultadoDois And ResultadoTres Then
+ IsEmail = True
+ Else
+ IsEmail = False
+ End If
+ End Function
+
+ 'EXEMPLO DE CHAMADA
+ Response.Write IsEmail("em...@provedor.com.br")
+ %>
\ No newline at end of file
Added: trunk/Códigos/validaFormulario.html
==============================================================================
--- (empty file)
+++ trunk/Códigos/validaFormulario.html Tue Apr 8 15:37:28 2008
@@ -0,0 +1,105 @@
+<html>
+<head>
+<title>Validar formulário com JS e CSS</title>
+<style type="text/css">
+<!--
+.campo1 {
+ font-family: Verdana, Arial, Helvetica, sans-serif;
+ font-size: 12px;
+ color: #000000;
+ background-color: #FFFFFF;
+ border: 1px solid #000000;
+}
+.campo2 {
+ font-family: Verdana, Arial, Helvetica, sans-serif;
+ font-size: 12px;
+ color: #000000;
+ background-color: #eeeeee;
+ border: 1px solid #000000;
+}
+.texto {
+ font-family: Verdana, Arial, Helvetica, sans-serif;
+ font-size: 12px;
+ color: #000000;
+}
+-->
+</style>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+<script>
+function verifica() {
+document.all.msg1.innerHTML = ' ';
+document.all.msg2.innerHTML = ' ';
+document.all.msg3.innerHTML = ' ';
+document.Form1.campo1.className = 'campo1';
+document.Form1.campo2.className = 'campo1';
+document.Form1.campo3.className = 'campo1';
+
+if ((document.Form1.campo1.value == "") || (document.Form1.campo1.value== null)) {
+document.all.msg1.innerHTML = '<b>Campo 1 em branco</b>';
+document.Form1.campo1.focus();
+document.Form1.campo1.className = 'campo2';
+return false;
+}
+else
+if ((document.Form1.campo2.value == "") || (document.Form1.campo2.value== null)) {
+document.all.msg2.innerHTML = '<b>Campo 2 em branco</b>';
+document.Form1.campo2.focus();
+document.Form1.campo2.className = 'campo2';
+return false;
+}
+else
+if ((document.Form1.campo3.value == "") || (document.Form1.campo3.value== null)) {
+document.all.msg3.innerHTML = '<b>Campo 3 em branco</b>';
+document.Form1.campo3.focus();
+document.Form1.campo3.className = 'campo2';
+return false;
+}
+else
+document.all.msg1.innerHTML = ' ';
+document.all.msg2.innerHTML = ' ';
+document.all.msg3.innerHTML = ' ';
+document.Form1.campo1.className = 'campo1';
+document.Form1.campo2.className = 'campo1';
+document.Form1.campo3.className = 'campo1';
+return true;
+}
+</script>
+
+</head>
+
+<body>
+<form action="" method="post" name="Form1" id="valida" onSubmit="Valida()" class="texto">
+
+ <table width="526" border="0" cellspacing="0" cellpadding="1" class="texto">
+ <tr>
+ <td height="25"> Campo 1:
+ <input type="text" name="campo1" class="campo1">
+ </td>
+ <td width="227"><div id="msg1"></div></td>
+ </tr>
+ <tr>
+ <td height="25">Campo 2:
+ <input name="campo2" type="text" class="campo1" id="campo2">
+
+ </td>
+ <td><div id="msg2"></div></td>
+ </tr>
+ <tr>
+ <td height="25">Campo 3:
+ <input name="campo3" type="text" class="campo1" id="campo3">
+
+ </td>
+ <td><div id="msg3"></div></td>
+ </tr>
+ <tr>
+ <td height="80" colspan="2">
+ <p>
+ <input type="Button" name="Submit" value="Envia" onClick="return verifica(this.form)" class="campo1" style="CURSOR:hand">
+ </p>
+ <p class="texto">Obs: Deixe algum campo em branco e clique em "Envia"
+ para ver o efeito.</p></td>
+ </tr>
+ </table>
+</form>
+</body>
+</html>
\ No newline at end of file