albin - RecorteX - Recortes de código útiles.

Elimina ficheros referenciados por conjunto de registros

Elimina ficheros en una ruta obteniendo sus nombres de los registros de una tabla. Útil para borrar ficheros referenciados por un registro antes de borrar el registro.

$dbLink es la conexión a la base de datos MySQL
$sFields son los campos separados por comas.

descargar 
function db_deleteFiles($sPath, $sFields, $sTable, $sWhere) {
	global $dbLink;
	$query  = "SELECT ".$sFields." FROM ".$sTable." WHERE ".$sWhere;
	$result = mysql_query($query, $dbLink);
	while($line = mysql_fetch_array($result, MYSQL_ASSOC)) {
		$aFields = split(",", $sFields);
		while(list($a, $b)=each($aFields)) {
			if($line[$b]!="") unlink($sPath.$line[$b]);
		}
	}
	mysql_free_result($result);
}

por albin en elimina-ficheros mysql php | Comentarios

Saber si existe un registro que cumpla unas condiciones

Devuelve un boolean indicando si existe un campo con un valor en concreto dentro de un conjunto de registros.

$dbLink es la conexión a la base de datos MySQL

descargar 
function db_existRecord($sField, $sValue, $sTable, $sWhere) {
	global $dbLink;
	$query  = "SELECT count(*) as nCount FROM ".$sTable;
	if($sWhere!="") {
		$query .= " WHERE ".$sWhere." AND ".$sField."='".$sValue."'";
	} else {
		$query .= " WHERE ".$sField."='".$sValue."'";
	}
	$result = mysql_query($query, $dbLink);
	$line = mysql_fetch_array($result, MYSQL_ASSOC);
	$retval = ($line["nCount"]>0 ? TRUE : FALSE);
	mysql_free_result($result);
	return $retval;
}

por albin en existe-registro mysql php | Comentarios

Elementos option para un select desde MySQL

Genera las etiquetas "option" para el interior de un "select" obteniendo los valores de una consulta a base de datos.

$dbLink es la conexión a la base de datos MySQL

descargar 
function db_getSelect($sValue, $sText, $sTable, $sWhere = "", $sSelected) {
	global $dbLink;
	if($sValue!=$sText) {
		$query  = "SELECT ".$sValue.", ".$sText." FROM ".$sTable;
	} else {
		$query  = "SELECT ".$sValue." FROM ".$sTable;
	}
	if($sWhere!="") $query .= " WHERE ".$sWhere;
	$result = mysql_query($query, $dbLink);
	while($line = mysql_fetch_array($result, MYSQL_ASSOC)) {
		echo "<option value=\"".$line[$sValue]."\"";
		if($sSelected==$line[$sValue]) { echo "selected=\"true\""; }
		echo ">";
		echo $line[$sText];
		echo "</option>";
	}
	mysql_free_result($result);
}

por albin en genera-select mysql php | Comentarios

Número de registros que cumplen una condición.

Obtiene el número de registros de una tabla o consulta, con opción a filtrar el conjunto.

$dbLink es la conexión a la base de datos MySQL

descargar 
function db_getCount($sTable, $sWhere = "") {
	global $dbLink;
	$query  = "SELECT Count(*) as nCount FROM ".$sTable;
	if($sWhere!="") $query .= " WHERE ".$sWhere;
	$result = mysql_query($query, $dbLink);
	$line   = mysql_fetch_array($result, MYSQL_ASSOC);
	$nCount = $line["nCount"];
	mysql_free_result($result);
	return $nCount;
}

por albin en cuenta-registros mysql php | Comentarios (1)

Valor máximo de un campo en un conjunto de registros

Obtiene el valor máximo de un campo en una tabla o consulta.

$dbLink es la conexión a la base de datos MySQL

descargar 
function db_getMax($sField, $sTable, $sWhere = "") {
	global $dbLink;
	$query  = "SELECT Max(".$sField.") as nMax FROM ".$sTable;
	if($sWhere!="") $query .= " WHERE ".$sWhere;
	$result = mysql_query($query, $dbLink);
	$line   = mysql_fetch_array($result, MYSQL_ASSOC);
	$nMax   = intval($line["nMax"]);
	mysql_free_result($result);
	return $nMax;
}

por albin en mysql php valor-maximo | Comentarios

Valor mínimo de un campo en un conjunto de registros

Obtiene el valor mínimo de un campo en una tabla o consulta.

$dbLink es la conexión a la base de datos MySQL

descargar 
function db_getMin($sField, $sTable, $sWhere = "") {
	global $dbLink;
	$query  = "SELECT Min(".$sField.") as nMin FROM ".$sTable;
	if($sWhere!="") $query .= " WHERE ".$sWhere;
	$result = mysql_query($query, $dbLink);
	$line   = mysql_fetch_array($result, MYSQL_ASSOC);
	$nMax   = intval($line["nMin"]);
	mysql_free_result($result);
	return $nMax;
}

por albin en mysql php valor-minimo | Comentarios

Obtener un contenido text/xml con una petición HTTP

No hay mucho que decir, a veces sencillamente solo quieres poder leer ficheros XML, y luego meterlo con un .innerHTML a lo bestia, no necesitas todo un framework ajax para eso.

descargar
function getContent(sURL) {
	var xmlhttp;
	if(window.XMLHttpRequest) {
		xmlhttp = new XMLHttpRequest();
		xmlhttp.open("GET", sURL, false);
		xmlhttp.send(null);
	} else if (window.ActiveXObject) {
		xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
		if(xmlhttp) {
			xmlhttp.open("GET", sURL, false);
			xmlhttp.send();
		}
	}
	return xmlhttp.responseXML;
}

...

por albin en ajax javascript js XMLHttpRequest | Comentarios

Obtener un contenido text/plain con una petición HTTP

No hay mucho que decir, a veces sencillamente solo quieres poder leer ficheros de texto plano, y luego procesarlos por tu cuenta, no necesitas todo un framework ajax para eso.

descargar
function getContent(sURL) {
	var xmlhttp;
	if(window.XMLHttpRequest) {
		xmlhttp = new XMLHttpRequest();
		xmlhttp.open("GET", sURL, false);
		xmlhttp.send(null);
	} else if (window.ActiveXObject) {
		xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
		if(xmlhttp) {
			xmlhttp.open("GET", sURL, false);
			xmlhttp.send();
		}
	}
	return xmlhttp.responseText;
}

...

por albin en Ajax JavaScript JS XMLHttpRequest | Comentarios

anti-Spam para forms en ASP

Se trata de saber si previamente a la petición POST ha habido una petición GET de manera que denote un comportamiento humano, y además introducir algunos valores en cookies, para que no puedan hacer peticiones a saco con un robot cutre (tendrían que currarse un robot que gestione cookies).

descargar 
 
	bSubmited  = (Request.ServerVariables("REQUEST_METHOD")="POST")
	bFromHere1 = (InStr(Request.ServerVariables("HTTP_REFERER"), "contacto.asp")>0)
	bFromHere2 = (Request.ServerVariables("REMOTE_ADDR")=Session("cv"))
	bFromHere3 = (Request.ServerVariables("REMOTE_ADDR")=Request.Cookies("cv"))
 
	if not bSubmit then
		Response.Cookies("cv") = Request.ServerVariables("REMOTE_ADDR")
		Session("cv")          = Request.ServerVariables("REMOTE_ADDR")
	end if
 
	if bSubmited and bFromHere1 and bFromHere2 and bFromHere3 then
		' todo
        end if

...

por albin en antispam asp forms | Comentarios