destacados

Gabriel Da Silva

Portafolio del ilustrador y director de arte brasileño, aunque afincado en Madrid, Gabriel Da Silva.

B&W Helmut Newton

Selección de fotografías en blanco y negro de uno de los fotógrafos más conocidos de las últimas décadas, Helmut Newton.

Judith Erwes

Fotógrafa afincada en Londres con un estilo que combina la moda, el humor y la estética retro.

Jody Rogac

Nacida en Inglaterra y criada en Canadá, Jody Rogac en la actualidad vive y trabaja en Brooklyn. Sus trabajo ha obtenido diversos galardones.

Publicaciones

Eliminar código HTML mediante ASP

, , 14/02/2008 10:46:53

Función, que hoy me ha sido muy útil, para eliminar las etiquetas html de una cadena de texto:

Function RemoveHTML( strText )
	Dim RegEx
	Set RegEx = New RegExp
	RegEx.Pattern = "<[^>]*>"
	RegEx.Global = True
	strText = Replace(LCase(strText), "", chr(10))
	RemoveHTML = RegEx.Replace(strText, "")
End Function

Vía Steve Smith » »

Convertir HTML a ASP, PHP o JSP

, , , 22/01/2008 00:00:00

Response.Right es una herramienta web, tan simple como útil puede llegar a sernos. Convierte el HTML que le pasemos a una variable en el lenguaje que previamente le hayamos indicado (ASP, PHP o JSP). Esta herramienta puede facilitar el trabajo en una de las tareas más odiosas a la hora de programar: convertir HTML que debe ser servido por un lenguaje de servidor. Por ejemplo, supongamos este comienzo de un newsletter que deseamos enviar a través de PHP. Tendríamos un código similar a éste:

<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Newsletter Sample</title>
</head>
<body background="background.gif">

que la herramienta nos devolverá:

<?php
$contenido.='<html>'."\n";
$contenido.='<head>'."\n";
$contenido.='<meta http-equiv="Content-Language" content="en-us">'."\n";
$contenido.='<meta http-equiv="Content-Type" content="text/html; charset=utf-8">'."\n";
$contenido.='<title>Newsletter Sample</title>'."\n";
$contenido.='</head>'."\n";
$contenido.='<body background="background.gif">'."\n";
?>

Response.Right » »

ASP.NET Ajax Control Toolkit

, , , 02/07/2007 09:00:00

ASP.NET Ajax Control Toolkit es un paquete que permite incorporar de una forma cómoda componentes Ajax a nuestros proyectos en Asp.net. El paquete contiene componentes con funcionalidades como: AutoComplete,  Calendar, DropDown, DragPanel,... Resulta gratificante encontrar también este tipo de recursos para desarrollos con ASP.NET.

ASP.NET Ajax Control Toolkit » »

VisorWEB: albúm fotográfico en asp.

, , 21/03/2007 13:39:03

VisorWEB de Imágenes son dos ficheros ASP (Active Server Pages) realizados en HTML y VBScript preparados para ver en una página Web las imágenes situadas en una carpeta.
VisorWEB de imágenes permite construir de forma fácil y rápida un álbum fotográfico Web, un catalogo Web de productos, una galería o biblioteca Web de imágenes… que se integre con el diseño del sitio web.

Visor Web de Imágenes » »

Lector RSS con ASP

, , 20/04/2006 00:00:00

Script en asp para montar un lector de rss. El ejemplo lee el rss de digg, que presenta la siguiente estructura:

<item>
           <title></title>
           <link></link>
           <description></description>
           <pubDate></pubDate>
           <guid isPermaLink="true"></guid>
           <digg:diggCount></digg:diggCount>
</item>

Esta información es la que puede variar y sólo tendríamos que recoger el nodo adecuado a nuestros propósitos con objItem.childNodes(), de acuerdo a la estructura del xml que deseasemos recoger.

CSS: 
.titulo_rss a{
         font: bold 13px "Trebuchet MS", Verdana, Arial;
         color: #676D46;
         text-decoration:none;
         display:block;
         margin-top:30px;
}
.titulo_rss a:hover{
         color: #666;
}
.descripcion_rss {
         font: 11px Verdana, Arial, Helvetica, sans-serif;
         color: #888;
         display:block;
         margin-top:10px;
}
.fecha_rss {
         font: 10px "Lucida Sans Unicode", Verdana, Arial, Georgia;
         color: #CC6633;
}
ASP: 
<%
Response.Charset = "iso-8859-1"
Dim objXML
Dim objItemList
Dim objItem
Dim strHTML


Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
objXML.async = False
objXML.setProperty "ServerHTTPRequest", True
objXML.Load("http://www.digg.com/rss/index.xml")


If objXML.parseError.errorCode <> 0 Then
     Response.Write "<code>" & vbCrLf
     Response.Write "<strong>Error:</strong> " & objXML.parseError.reason
     Response.Write "<strong>Linea:</strong>  " & objXML.parseError.line & vbCrLf
     Response.Write "<strong>Texto:</strong>  " & Server.HTMLEncode(objXML.parseError.srcText) & vbCrLf
     Response.Write "</code>" & vbCrLf
End If
'OBTENEMOS TODOS LOS ITEM
Set objItemList = objXML.getElementsByTagName("item")
Set objXML = Nothing
For Each objItem In objItemList

'OBTENEMOS LOS DISTINTOS NODOS
TituloRSS = objItem.childNodes(0).text
LinkRSS = objItem.childNodes(1).text
DescripcionRSS = objItem.childNodes(2).text
FechaRSS = objItem.childNodes(3).text
Response.Write ("<span class=""titulo_rss""><a
href='" & LinkRSS & "'>" & TituloRSS & "</a></span>")
Response.Write ("<span class=""fecha_rss"">" &  FechaRSS & "</span>")
Response.Write ("<span class=""descripcion_rss"">" & DescripcionRSS & "</span>")

Next

Set objItemList = Nothing
Application.Lock
Application("LectorRSSContenido") = strHTML
Application("LectorRSSActualizado") = Now()
Application.UnLock
%>
<%= Application("LectorRSSContenido") %>
<%= Application("LectorRSSActualizado") %>

Medir el tiempo que tarda en cargarse un ASP

, 14/11/2005 00:00:00

Este script mide el tiempo de procesamiento de nuestro asp. El script consta de dos partes, una debe colocarse al comienzo de la página y la otra al final

<%
////COLOCAR AL PRINCIPIO////
Dim comienzo
comienzo = Timer()
Dim tt 
Do While tt < 30000
  tt = tt + 1 
Loop 
%>


<% 
////COLOCAR AL FINAL////
Dim final 
final = Timer() 
Response.Write "Carga en " & final-comienzo & " segundos = "
Response.Write " (" & (final-comienzo)*1000 & " millisegundos)."
%>

Depuración ASP. Mostrar las variables de sesión

, 06/09/2005 00:00:00

Este pequeño código muestra todas las variables de session activas en la aplicación en la que estás trabajando. Se puede abrir en una ventana nueva -o pestaña- y en otra ir ejecutando la página ASP. Al actualizar, verás los valores de las variables que se han ido incorporando.

<%
dim i
dim j
j=Session.Contents.Count
Response.Write("Variables de Session: " & j&"")
For i=1 to j
	Response.Write(Session.Contents(i) & "")
Next
%>

Response.Write

, 01/03/2005 00:00:00

Sintaxis:

Response.Write (argumento)

Este método devuelve una cadena. El argumento puede ser escrito como una cadena, un número o también puede ser el nombre de una variable. El argumento no puede contener la combinación de caracteres %>

Ejemplo:

<%
Response.Write "Hola Mundo"
%>

Salida:

Hola Mundo

Concurrencias en cadenas con Instr

, 25/01/2005 00:00:00

La función InStr devuelve la posición de la primera concurrencia de una cadena dentro de otra. La función puede devolver los siguientes valores:

- Si string1 es "" - InStr devuelve 0
- Si string1 es Null - InStr devuelve Null
- Si string2 es "" - InStr devuelve start
- Si string2 es Null - InStr devuelve Null
- Si string2 no se encuentra - InStr devuelve 0
- Si string2 es encontrado dentro de string1 - InStr devuelve la posición en que la coincidencia ha sido encontrada
- Si start > Len(string1) - InStr devuelve 0

Sintaxis: 
InStr([start,]string1,string2[,compare])

start (opcional). Especifica el punto de partida para la búsqueda. Por defecto empieza en el primer caracter. El parámetro es requerido si 'compare' ha sido especificado.
string1 (obligatorio). La cadena donde será buscado.
string2 (obligatorio). La cadena a buscar.
compare (opcional). Especifica el tipo de comparación. Por defecto es 0.
Puede tener uno de los siguientes valores:

* 0 = vbBinaryCompare - Comparación binaria
* 1 = vbTextCompare - Comparación textual.

Ejemplo: 
dim txt,pos
txt="Esto es una frase de ejemplo !"
pos=InStr(txt,"frase")
Response.write(pos)
Devuelve: 
13
Páginas: 1 2 Siguiente >