Foros del web, para los que viven de bits

P: ¿Como puedo agilizar la carga de mis páginas en ASP?

R:En muchos casos, estas cargan lentamente ya que están programadas con algunos errores que llevan a sobrecargar los recursos del servidor dejando el sitio sin funcionar o con escasos recursos.

Estado de las sesiones (Session State)
Si no vamos a utilizar ninguna variable de tipo session dentro del sitio, podemos deshabilitarlas. Debemos ubicar las siguientes líneas al principio del archivo .asp:

<%
@ language = "VBScript"
ENABLESESSIONSTATE = False
%>

Response.Buffer
Esta línea le dirá al Servidor que ejecute todo el código después de enviar cualquier información al cliente.

<%
Response.Buffer = True
%>

Cerrar las conexiones y recordsets
Cuando realizamos cualquier tipo de conexión debemos
asegurarnos de cerrarla al finalizar el script. Además de practicar la codificación en ASP nos permite prevenir la corrupción de una base de datos Access.

<%
recorset.close
conexion.close
set recordset=Nothing
set conexion=Nothing
%>

Option Explicit
Usando esta opción es posible debuguear los scripts más rápidamente. Además ayudará a aprender a la fuerza la codificación en ASP, ya que habilitando esta opción deberemos declarar todas las variables.

<%
OPTION EXPLICIT
%>

La idea es realizar gráficos de barras horizontales y verticales, podemos utilizar estos gráficos para mostrar estadísticas o resultados de encuestas o votaciones de forma mas vistosa, para que vean como quedaría este ejemplo aplicado les muestro este gráfico...

CODIGO FUENTE

<p>Gráfico Horizontal</p>
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr><td>
<%
Dim ancho
ancho = 240
Response.Write ("<img src=azul.gif width=" & ancho & " height=20>")
%>
</td></tr>
<tr><td>
<%
ancho = 140
Response.Write ("<img src=rojo.gif width=" & ancho & " height=20>")
%>

</td></tr>
<tr><td>
<%
ancho = 270
Response.Write ("<img src=verde.gif width=" & ancho & " height=20>")
%> </td></tr>
</table>

El código ASP si se fijan esta mezclado con una tabla de 3 renglones (rows) y una columna (cols) obviamente si queremos hacer un gráfico horizontal debemos colocar las imágenes en los renglones de la tabla e ir modificando mediante código ASP su propiedad "width"...

<%
Dim ancho
ancho = 240
Response.Write ("<img src=azul.gif width=" & ancho & " height=20>")
%>

Observen que "ancho" es una variable a la cual le dimos un valor de 240, y de que sirve? quizás a simple vista no se dan cuenta pero esa variable "ancho" puede ser el valor de un campo que hay en una base de datos el cual puede ir cambiando dinámicamente según el contexto, por ejemplo si trabajamos con un sistema de votación el valor de "ancho" seguramente ira variando a lo largo que se van desarrollando las votaciones. Quizás les sea mas cómodo un gráfico vertical, pues aquí el código...

<p>Gráfico Vertical</p>
<table width="19%" border="0" cellspacing="2" cellpadding="0" height="10">
<tr valign="bottom">
<td height="2">
<% Dim alto
alto = 120
Response.Write ("<img src=azul.gif width=50 height=" & alto & ">")
%>
</td>
<td height="2">
<%
alto = 54
Response.Write ("<img src=rojo.gif width=50 height=" & alto & ">")
%>
</td>
<td height="2">
<%
alto = 60
Response.Write ("<img src=verde.gif width=50 height=" & alto & ">")
%>
</td>
</tr>
</table>

Aquí es lo mismo que en el gráfico anterior pero en ves de poner los gráficos en los 3 renglones creamos una tabla de 1 renglón y 3 columnas y en estas colocamos los gráficos, otro cambio es que en ves de modificar la propiedad "width" modificamos "height".

Con la función isObject de ASP podremos saber si el usuario tiene instalado un objeto determinado.

Para determinar si el reproductor Shockwave Flash está o no instalado, deberemos utilizar el siguiente código:

<%
if isObject(createObject("ShockwaveFlash.ShockwaveFla sh")) then
flash = "Flash está instalado"
else
flash = "Flash no está instalado"
end if

response.write flash
%>

Hay una solución basada en puro código ASP para "banear" (to ban, echar fuera) algún visitante molesto al más puro estilo IRC de vuestras páginas.

Si conocéis su IP (que se puede sacar de los logs del servidor), podéis poner el siguiente código:


<%
'La IP es sólo un ejemplo!!!
if Request.ServerVariables("REMOTE_ADDR")="200.200.14 .3.2" then
Response.Buffer=True
Response.Status=("401 Unauthorized")
Response.End
end if
%>

Que comprobará su IP con la que no queremos, y le expulsará si es igual. ¡Perro guardián en ASP!

Cuando salió ASP e incluso hoy en día todo el mundo utiliza ODBC (con y sin DSN) para conectarse a una base de datos. Uno de los mayores motivos es que todos los ejemplos de código usan ODBC. Bien, aunque es correcto, OLEDB está aquí ya y es más rápido, más estable y lo más importante: funciona con prácticamente todo tu código anterior.

Simplemente hay que cambiar la cadena de conexión. Si antes tenías:

"DSN=nombredsn"
ó
"DBQ=C:\data\basedatos.mdb; DRIVER={Microsoft Access Driver (*.mdb)}"

tienes que cambiarlo por:
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\data\database.mdb;"
o en caso de usar SQL Server:
"Provider=SQLOLEDB; Data Source=sql_server; Initial Catalog=sql_database; User Id=username; Password=password;"

Por defecto los proxys no almacenan en caché los contenidos dinámicos de una página ASP. Esto está bien para una página que cambie habitualmente, pero para páginas que no cambien apenas o scripts que sean "librerías", permitir que se almacenen en caché incrementará la velocidad para usuarios que naveguen a través de un proxy.

Para hacer que una ASP sea cacheada, pon la siguiente línea al principio del script:

<%Response.CacheControl = Public %>

Notarán la diferencia.

Aunque quizá no lo hayáis visto nunca, hay dos formas de crear un objeto de un componente de servidor. Una es la que hemos usado el 99.9% de la veces:

set oRS=Server.CreateObject("ADODB.Recordset")

Y la otra es escribiendo (fuera del código ASP) la marca HTML <OBJECT> con el atributo que indica dónde se ejecuta puesto a Server. De esta forma:

<OBJECT RUNAT=Server ID=oRS ProgID="ADODB.Recordset"></OBJECT>

¿Hay alguna diferencia? Sí, la hay, y permite ahorrar algo de recursos del servidor con el segundo método.

Cuando utilizamos el método Server.CreateObject, el servidor reserva el espacio, memoria, etc. que necesita el objeto en ese mismo momento. En cambio, utilizando la marca <OBJECT> el servidor reservará todo esto cuando SEA LLAMADO EL PRIMER MÉTODO O LA PRIMERA PROPIEDAD del objeto. Piensa en el típico script que abre una conexión a bd y al final, después de verificar los datos, no la utiliza y la cierra sin más. Utilizando la segunda forma, no habríamos gastado ni un solo byte de memoria.

Por cierto, si utilizáis la segunda forma, NO TENES que usar al final oRS.Close, simplemente poned set ORS=nothing. Peculiaridades de <OBJECT>.

CONEXIONES DISPONIBLES EN :


http://www.connectionstrings.com/

¿Qué es AspEmail?

AspEmail es un componente realizado por la empresa Persits Software Inc. que permite el envío de emails a través de las páginas web ASP. Soporta múltiples recipientes, CC, BCC, archivos adjuntos, formato html, imágenes, entre otros.

Requerimientos

Para hacerlo funcionar se necesita instalar sobre plataforma Windows (95/98/Nt/2000) y contar con un servidor SMTP para el envío de los emails. También hay requerimientos específicos como: Internet Information Server 3.0, 4.0 o 5.0 y Active Server Pages, o Personal Web Server en cualquier versión, o hasta Visual Basic, Visual C++, o cualquier otro paquete con soporte de componentes COM.

Instalación

Para bajar el componente debemos dirigirnos a www.aspemail.com/download.html y descargamos la versión que se ajuste a nuestras necesidades.

Al ejecutar el archivo Aspemail.exe se iniciará el programa de instalación del mismo, en donde entre otras cosas elegimos el directorio en donde instalar el componente, en nuestro caso elegimos c:\AspEmail. Una vez instalada se habrá copiado a nuestro sistema la librería correspondiente. Para registrarla solo ejecuta lo siguiente en el DOS o en Ejecutar del menú Inicio:

c:\regsvr32 c:\AspEmail\Bin\AspEmail.dll

Junto a AspEmail viene incluida una versión de evaluación del componente AspUpload, el cual permite subir archivos hacia el servidor. Para registrar el AspUpload ejecuta de la misma forma que el anterior:

c:\regsvr32 c:\AspEmail\Bin\AspUpload.dll

AspUpload no necesita que esté registrado el AspEmail.

Usando AspEmail

Como en todos los componentes que forman parte de una página Asp es necesario crear el objeto que se va a utilizar:

<%
...
Set Mail = Server.CreateObject("Persits.MailSender")
...
%>

Luego se crea la instancia del objeto:

Para enviar emails desde las páginas ASP se debe especificar el servidor SMTP a utilizar:

Mail.Host = "smtp.tuservidor.com"
Mail.Port = 25 ' Opcional: El puerto predeterminado es 25

Luego se debe especificar las direcciones de envío y en forma opcional, el nombre:

Mail.AddAddress "webmaster@webexperto.com", "WebExperto"
Mail.AddCC "fabian@webexperto.com", "Fabian Muller" ' El campo CC, Bcc, son opcionales

Se usan las propiedades Subject y Body para especificar el Asunto y Cuerpo del mensaje, respectivamente. El cuerpo puede ser en modo texto o modo html, en este caso se declara la propiedad IsHTML con el valor True.

Mail.Subject "Consulta desde la pagina"
Mail.Body "Aquí iría el cuerpo del mensaje, el cual llegara a los recipientes antes mencionados"

O en formato Html:

Mail.Subject "Consulta desde la pagina"
Mail.Body "<html><body>Se pueden especificar las etiquetas html, como por ejemplo texto en <b>negrita</b> o <i>cursiva</i> y hasta tablas.</body></html>"
Mail.IsHTML = True

Para enviar un archivo adjunto se utiliza el método AddAttachement. Se debe especificar la ruta completa del archivo a adjuntar:

Mail.AddAttachement "c:\directorio\archivo.ext"

Y por último hay que enviar el mensaje, con el método Send. Se puede especificar, que en caso de producirse un error, continúe el programa y muestre el error:

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Ha ocurrido el siguiente error: " &Err.Description
End If

Ejemplo de envío de email a partir de un formulario

Un ejemplo del uso que se le puede dar al AspEmail es el de envío de formularios. En el siguiente ejemplo veremos un formulario y en archivo sendmail.asp que procesará el formulario y enviará el email correspondiente:

<form method="POST" action="sendmail.asp">
<p>De:<br>
<input type="text" name="de" size="20"></p>
<p>Para:<br>
<input type="text" name="para" size="20"></p>
<p>Asunto:<br>
<input type="text" name="asunto" size="20"></p>
<p>Mensaje:<br>
<textarea rows="2" name="mensaje" cols="20"></textarea></p>
<p><input type="submit" value="Enviar" name="enviar"></p>
</form>

Sendmail.asp

<%
'Recogemos los datos del formulario
de = Request.Form("de")
para = Request.Form("para")
mensaje = Request.Form("mensaje")
asunto = Request.Form("asunto")

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.tusitio.com"
Mail.From = de
Mail.AddAddress para

Mail.Subject = asunto

'El mensaje en formato html
Mail.IsHTML = True
Mail.Body = "<HTML><BODY><p><font face=verdana size=2>De: "&de&"<br>Mensaje: "&mensaje&"<br><br></p><br>Enviado el "& Now() &"</font></BODY></HTML>"

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Ha ocurrido el siguiente error: " &Err.Description
End If
%>

Próximamente

Más adelante, escribiremos artículos sobre como enviar archivos adjuntos, utilizar con bases de datos, y también veremos el componente AspUpload.

...y un buen foro en castellano conoces?

...y un buen foro en castellano conoceis?

P: ¿COMO PUEDO UTILIZA JAVA EN MIS PAGINAS ASP?
R:/

En primer lugar deberás crear y compilar la clase. Para ello utiliza tu editor de textos habitual. Para compilar la clase deberás tener instalado el JDK de Sun.

Crea el archivo "testJava.java". Deberás tener en cuenta que los métodos que quieres que sean accesibles desde la página ASP deben ser públicos.

public class javaTest {
public String bienvenida() {
return "Bienvenido al ejemplo de ASP y Java";
}
}

A continuación deberás compilarlo, por ejemplo, mediante el programa "javac" del JDK. Ejecútalo desde línea de comandos mediante la siguiente sentencia:

c:\jdk1.2.2\bin> javac javaTest.java
Como resultado, de esta acción tendrás la clase compilada en un archivo "testJava.class"

Instalar la clase

Para instalar la clase y hacerla accesible desde tu página ASP, deberás copiarla en el directorio de clases de tu ordenador (denominado habitualmente CLASSPATH). En sistemas windows 95/98 este directorio se encuentra en la siguiente ruta: "c:\windows\java\classes\"

Para conocer la ruta del classpath en tu sistema puedes acceder al registro de windows y buscar la cadena de texto "classpath". Recuerda que puedes abrir citado registro mediante la opción ejecutar del menú Inicio e introduciendo el texto "regedit". Una vez estes en el editor del registro pulsa F3 para visualizar la ventana de búsqueda.

Crear la página ASP

Para finalizar el proceso tan solo falta crear la página ASP que utilizará la clase Java creada anteriormente.

Se utilizará la función de VBScript denominada GetObject y se llamará a los métodos que la clase tenga implementados.

<html>
<head>
<title>Ejemplo de ejecución de código java desde ASP</title>
</head>
<body>
<%
Dim javaTestObj
set javaTestObj = GetObject("java:javaTest")
%>

Este texto lo escribe el método bienvenida de la clase javaTest:<br>
<%
response.write javaTestObj.bienvenida()
%>

<% set javaTestObj = nothing %>

P:¿Cómo usar AspUpload?

R:/ Ejemplo explicativo:

Para usar AspUpload, precisa de un archivo HTML conteniendo un formulario y de un script ASP que se encarga de gestionar el anterior.

El código siguiente correspondería a un archivo HTML con el formulario para la subida de dos archivos al servidor:

<HTML>
<BODY BGCOLOR="#FFFFFF">

<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="Upload.asp">

<INPUT TYPE=FILE SIZE=60 NAME="FILE1"><BR>
<INPUT TYPE=FILE SIZE=60 NAME="FILE2"><BR>
<INPUT TYPE=FILE SIZE=60 NAME="FILE3"><BR>
<INPUT TYPE=SUBMIT VALUE="Upload!">

</FORM>

</BODY>
</HTML>

Tenga en cuenta que precisa especificar el atributo ENCTYPE="multipart/form-data" , dado que indica que se envíe el contenido del archivo y no sólo el nombre. Si no lo hace así, no le funcionará el upload de ficheros.

Veamos ahora cómo sería el script asociado Upload.asp:


<HTML>
<BODY>

<%

Set Upload = Server.CreateObject("Persits.Upload.1")
Count= Upload.Save("d:\xvrt\midominio.com\html\upload")

%>
<% = Count %> ficheros subidos.

</BODY>
</HTML>

La primera línea del script crea la instancia del objeto. Luego se llama al método Save, que es el que realmente realiza el trabajo de upload. El método devuelve el número de ficheros subidos con éxito. En caso de error, devuelve una excepción.

Algunas características especiales

Esta versión del componente, ofrece algunas mejoras frente a sus predecesoras:

Soporte completo para ADO. Le permite usar estos objetos para insertar/extraer ficheros en bases de datos.

Paso automático de Mac a PC. Se detecta si la subida del archivo se hace desde un Mac y realiza una conversión.

Extracción del tamaño de imágenes. Determina el tamaño de imágenes JPEG, BMP y gif.

Nuevas propiedades y métodos como File.SaveAs o Upload.OpenFile