Validar un campo de Correo Electrónico (email)

Para validar una dirección de correo vamos a usar una expresión regular con la función preg_match , esta función nos devolverá un numero mayor que 0 si es correcto o 0 si no coincide el texto con la expresión regular, el código es: if (!preg_match('{^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$}',$_POST['email'])) { echo "error, no es un correo valido"; } La explicación de ese código seria: "si NO (!) devuelve un valor (no coincidió)" quitandole el ! seria: if (preg_match('{^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$}',$_POST['email'])) { echo "Correo Valido"; } En PHP existe una función que permite validar si un campo de correo electrónico está o no bien escrito, por alguna razón (en mi caso no me funciona, la función es filter-var. si…

Detectar Llegada por Buscador en PHP

Este código sirve para detectar si un usuario llegó o no por algún buscador como por ejemplo Google, Bing, etc, aquí se hace uso de la superglobal $_SESSION. este tipo de código se usa por ejemplo para mostrar cierto datos si llegó por Google o para controlar las impresiones de Adsense. Si tienes un sitio web bastante visitado y estás con el problema de impresiones de Adsense que a la larga te bajan el ingreso (muchas impresiones, pocos clicks) quizás quieras limitar las impresiones de publicidad. Por regla general si un usuario es recurrente a tu sitio web (la visita siempre) este…

Como usar foreach con Arrays

La estructura foreach se utiliza normalmente en variables de tipo arrays, es una simplificación al código de contar el numero de elementos en un array y luego recorrerlo para realizar algún código en particular, usando el famoso $i++; esta clausula nos permite ejecutar un bloque por cada elemento existente en un array, además de manipular tanto el índice como el contenido en variables más accesible <?php $matriz[1]="Primer Elemento"; $matriz[2]="Segundo Elemento"; $matriz[3]="Tercer Elemento"; $matriz[4]="Cuarto Elemento"; $matriz[5]="Quinto Elemento"; foreach ($matriz as $item) { echo $item . "<br />"; } ?> el resultado será: Primer Elemento Segundo Elemento Tercer Elemento Cuarto Elemento Quinto Elemento Ese…

Proyecto: Decimal a Binario en Visual Basic 6.0

Este es un mini proyecto que acabo de hacer para convertir un número decimal en binario programado en Visual Basic 6.0, si quieres un articulo más completo sobre conversión de Decimal a Binario de manera manual aquí hay tema al respecto: Convertir Decimales a Binarios de forma manual. adicionalmente si lo que quieres es lo inverso,  es decir, el proyecto para convertir de Binario a Decimal lo puedes encontrar aquí: Proyecto: Binario a Decimal en Visual Basic 6.0 En este ejemplo lo que se hace es obtener el Residuo del numero dividido entre 2, lo que nos puede dar un 1 o un 0,…

Script para cambiar juego de caracteres en la base de datos MySQL

Si tienes problemas con los juegos de caracteres, ya sea porque no coincidan en todas las tablas o porque el formato que usas no es que el necesitabas. tendrías que ir de tabla en tabla y editarla para que tenga el mismo formato (Juego de caracteres). Aquí te doy un script que puede facilitar esa tarea, Advertencia: antes de ejecutar el script, es sumamente recomendable hacer un backup <?php $juegocaracteres= "latin1"; //juego de caracteres $collate = "latin1_general_ci"; //collate $nombre_base_datos = "NOMBRE"; //nombre de la base de datos a modificar $db = mysql_connect('localhost','user','password'); //datos de conexión MySQL if(!$db) echo "Error al…

Filtro múltiple (like ‘%código%’ and like ‘%fuente%’)

Esta función les va a servir un montón cuando tengan que hacer filtros ya sea con la propiedad filter del RecordSet o haciéndolo en consulta Solo tienen que pasarle como parámetros lo que va a buscar Ejemplo: FiltroMultiple "Juan Pérez","Nombre" Y les va a crear el Filtro así: Nombre like '%Juan%' and Nombre like '%Perez%' Private Function FiltroMultiple(strCadena As String,strCampo as String) As String Dim strFiltro As String Dim Posicion As Byte While Len(strCadena) &gt; 0 Posicion = InStr(2, Trim(strCadena), " ") If Posicion = 0 Then FiltroMultiple = strFiltro & strCampo & " like '%" & ReemplazaComilla(Trim(strCadena)) & "%'"…