¿Cómo utilizo el componente ASP Jpeg?

2

El componente ASP Jpeg disponible en nuestros planes en plataforma Microsoft Windows 2003 puede utilizarse de diferentes maneras.

A continuación encontrará un ejemplo de cambio de tamaño de una imagen, muy útil para generar thumbnails para su sitio:

<% 
' Se crea el objeto
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Se carga la imagen a transformar
Jpeg.Open Server.MapPath("/ejemplos/asp/test.gif")
' Nuevo largo
L = 100
' Se indican los nuevos valores
Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
'Se guarda la nueva imagen
Jpeg.Save Server.MapPath("/ejemplos/asp/test_small.gif")
%>

Imagen original: (/ejemplos/asp/test.gif)<br/>
<img src="/ejemplos/asp/test.gif" border="0" /><br/><br/>

Imagen modificada: (guardada en /ejemplos/asp/test_small.gif)<br/>
<img src="/ejemplos/asp/test_small.gif" border="0" />

¿Cómo envío e-mails con ASP y el componente ASP Mail?

2

El siguiente ejemplo genera un formulario y realiza las operaciones necesarias para el envio de e-mails mediante ASP y el componente ASP Mail, en plataformas Microsoft Windows 2003:

<%@LANGUAGE="VBSCRIPT" %> 
<!-- Formulario para completar con los datos -->
<form action="test_aspmail.asp" method="POST">
Usuario smtp: <input type="text" value="" name="usuario"></input> <br />
(El usuario puede encontrarlo en el panel de control, E-mail, Administrar cuentas)<br/>
Contraseña smtp: <input type="password" value="" name="passwd"></input><br/>
(La contraseña de su correo electrónico)<br/>
E-mail destinatario: <input type="text" name="destinatario" width="50"></input><br/>
<input type="submit" value="Enviar e-mail" />
<input type="hidden" name="enviar" value="1"/>
</form>
<!-- Fin Formulario para completar con los datos -->

<%
' Se verifica que los datos han sido enviados desde el formulario, para la validación con el SMTP
If Request("enviar") = 1 Then

If Not Request("usuario") = "" And Not Request("passwd") = "" And Not Request("destinatario") = "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "localhost"
Mail.Username = Request("usuario")
Mail.Password = Request("passwd")
Mail.AddAddress Request("destinatario")
Mail.From = "noreply@ferozowindows.com.ar"
Mail.FromName = "Ferozo Windows Edition"
Mail.Subject = "E-mail de prueba"
Mail.Body = "Este es un e-mail enviado desde la página de ejemplo de Ferozo Windows Edition"
Mail.Send

If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
End If

Set Mail = Nothing
Else
' Respuesta en caso de que no se completen todos los datos
Response.Write("Complete todos los campos para ejecutar el ejemplo")
End If
End If
%>

</body>
</html>

¿Cómo subir archivos con ASP y el componente ASP Upload?

299

Mediante el uso del componente ASP Upload, disponible en la plataforma Microsoft Windows, ud. podrá subir archivos en su sitio, a través de un formulario y un script ASP.
El siguiente ejemplo muestra el código de ambos archivos:

Archivo form.asp

<HTML>
<BODY BGCOLOR="#FFFFFF">
   <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="test_aspupload.asp">
      <INPUT TYPE="FILE" SIZE="40" NAME="FILE1">
   <INPUT TYPE=SUBMIT VALUE="Subir archivos!">
   </FORM>
</BODY>
</HTML>

archivo test_aspupload.asp

<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.SaveVirtual("/ejemplos")
Response.Write Count & " archivos(s) subidos correctamente en /ejemplos"
Set Upload = Nothing
%>
</BODY>
</HTML>

¿Cómo configuro la conexión a base de datos SQL Server con ASP?

277

Mediante el siguiente ejemplo, puede realizarse una conexión a SQL Server con código ASP

<% 
'Se crea el objeto de la conexión
set Conex = Server.CreateObject("ADODB.Connection")
'Se especifica la ubicación de la base de datos SQL Server 
Conex.ConnectionString = "Provider=SQLOLEDB.1;" & _
"Data Source=.;" & _
"Integrated Security=SSPI;" & _
"Persist Security Info=False;" & _
"Initial Catalog=testconndb"
'Provider: Proveedor 
'Integrated Security=SSPI: Seguridad integrada de windows
'Initial Catalog: Base de datos
'Data Source: SQL Server (. = localhost)
'Se abre la conexión y se ejecuta una consulta 
Conex.Open set Rs = Server.CreateObject("adodb.recordset")
set Rs = Conex.Execute("SELECT * FROM tabla")
Response.Write Rs("Campo")
Conex.Close
'Se eliminan los objetos de la memoria 
Set Rs = Nothing Set Conex = Nothing
%>

¿Que es ASP?

0

Es un lenguaje de scripting del lado del servidor.

ASP (Active Server Pages) es la tecnología desarrollada por Microsoft para la creación de páginas dinámicas del servidor. ASP se escribe en la misma página web, utilizando el lenguaje Visual Basic Script o Jscript (Javascript de Microsoft).

Un lenguaje del lado del servidor es aquel que se ejecuta en el servidor web, justo antes de que se envíe la página a través de Internet al cliente. Las páginas que se ejecutan en el servidor pueden realizar accesos a bases de datos, conexiones en red, y otras tareas para crear la página final que verá el cliente. El cliente solamente recibe una página con el código HTML resultante de la ejecución de la página ASP. Como la página resultante contiene únicamente código HTML, es compatible con todos los navegadores.

El tipo de servidores que emplean este lenguaje son todos aquellos que funcionan con sistema Windows NT sobre el servidor web para el que está pensado: Internet Information Server.

Con las ASP podemos realizar muchos tipos de aplicaciones distintas. Nos permite acceso a bases de datos, al sistema de archivos del servidor y en general a todos los recursos que tenga el propio servidor. También tenemos la posibilidad de comprar componentes ActiveX fabricados por distintas empresas de desarrollo de software que sirven para realizar múltiples usos, como el envio de correo, generar gráficas dinámicamente, y muchas otras cosas.

¿Cómo envío e-mails con ASP y CDO?

2270

El siguiente ejemplo genera un formulario y realiza las operaciones necesarias para el envio de e-mails mediante ASP y CDO, en plataformas Microsoft Windows 2003

<%@LANGUAGE="VBSCRIPT" %> 
<!--METADATA TYPE="TypeLib" FILE="E:\WINDOWS\system32\cdosys.dll" -->
<!-- Formulario para completar con los datos -->

<form action="test_mail.asp" method="POST">

Usuario smtp: <input type="text" value="" name="usuario"></input> <br />
(El usuario puede encontrarlo en el panel de control, E-mail, Administrar cuentas)<br/>

Contraseña smtp: <input type="password" value="" name="passwd"></input><br/>
(La contraseña de su correo electrónico)

E-mail destinatario: <input type="text" name="destinatario" width="50"></input><br/>

<input type="submit" value="Enviar e-mail" /><input type="hidden" name="enviar" value="1"/>
</form>

<!-- Fin Formulario para completar con los datos -->

<%
' Se verifica que los datos han sido enviados desde el formulario, para la validación con el SMTP
If Request("enviar") = 1 Then
If Not Request("usuario") = "" And Not Request("passwd") = "" And Not Request("destinatario") = "" Then
' Se crean los objetos necesarios para el envío del correo
Set oMail = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

' Se configuran los parametros necesarios para el envío
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "http://127.0.0.1"
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Se completan los datos del usuario y la contraseña necesarios para el envio
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Request("usuario")
'usuario smtp
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Request("passwd")
'password para STMP
iConf.Fields.Update
' Se asignan las propiedades de configuración al objeto
Set oMail.Configuration = iConf
' Destinatario del correo
oMail.To = Request("destinatario")
' Remitente del correo
oMail.From = "noreply@ferozowindows.com.ar"
' Subject o asunto
oMail.Subject = "E-mail de prueba"
' Cuerpo del mensaje
oMail.TextBody = "Este es un e-mail enviado desde la página de ejemplo de Ferozo Windows Edition"
' Se envía el correo
oMail.Send
' Se destruyen los objetos
Set iConf = Nothing
Set Flds = Nothing
Else
' Respuesta en caso de que no se completen todos los datos
Response.Write("Complete todos los campos para ejecutar el ejemplo")
End If
End If
%>

¿Cómo se realiza una conexión a Access con ASP?

0

El siguiente ejemplo realiza una conexión contra Microsoft Access y obtiene datos

<% 

'Se crea el objeto de la conexión
set Conex = Server.CreateObject("ADODB.Connection")

'Se especifica la ubicación de la base de datos Access, ya sea mediante una ruta absoluta
'o relativa a la ubicación de la página
'Conex.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\asp\test.mdb"
Conex.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath( "test.mdb" )

'Se abre la conexión y se ejecuta una consulta
Conex.Open

set Rs = Server.CreateObject("adodb.recordset")
set Rs = Conex.Execute("SELECT * FROM tabla")
Response.Write Rs("Campo")

Conex.Close
'Se eliminan los objetos de la memoria
Set Rs = Nothing
Set Conex = Nothing

%>

¿Cómorealizo la conexión a base de datos MS Access con PHP?

3020

Ud. puede realizar conexiones a bases de datos MS Access mediante código PHP.

El siguiente ejemplo ilustra cómo:

<?php // Se especifica la ubicación de la base de datos Access (directorio actual) 
$db = getcwd() . "\\" . 'test.mdb';
 // Se define la cadena de conexión
$dsn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=$db";
// Se realiza la conexón con los datos especificados anteriormente
$conn = odbc_connect( $dsn, '', '' );
 if (!$conn) { exit( "Error al conectar: " . $conn);
}
// Se define la consulta que va a ejecutarse
$sql = "SELECT * FROM Tabla";
// Se ejecuta la consulta y se guardan los resultados en el recordset rs
$rs = odbc_exec( $conn, $sql );
if ( !$rs ) { exit( "Error en la consulta SQL" ); }
// Se muestran los resultados
while ( odbc_fetch_row($rs) ) {
$resultado=odbc_result($rs,"Campo");
 echo $resultado;
}
// Se cierra la conexión
odbc_close( $conn );
?>

¿Cómo realizo la conexión a base de datos SQL Server con MSSQL en PHP?

309

Los planes en Microsoft Windows incluyen SQL Server, el cual podrá ser accedido mediante PHP.

La forma de realizar una conexión para obtener datos puede verse en el siguiente ejemplo:

<?php 
// Se realiza la conexón con los datos especificados anteriormente
$conn = mssql_connect( 'localhost', '', '' );
mssql_select_db( 'testconndb');
if (!$conn) { exit( "Error al conectar: " . $conn);
}
// Se define la consulta que va a ejecutarse $sql = "SELECT * FROM Tabla";
// Se ejecuta la consulta y se guardan los resultados en el recordset rs
$rs = mssql_query( $sql ); if ( !$rs ) { exit( "Error en la consulta SQL" );
}
// Se muestran los resultados $resultado=mssql_result($rs, 0,"Campo");
echo $resultado;
// Se cierra la conexión
mssql_close( $conn );
?>

¿Qué es PHP?

0

PHP es el acrónimo de Hipertext Preprocesor. Es un lenguaje de programación del lado del servidor gratuito e independiente de plataforma, rápido, con una gran librería de funciones y mucha documentación.



Un lenguaje del lado del servidor es aquel que se ejecuta en el servidor web, justo antes de que se envíe la página a través de Internet al cliente. Las páginas que se ejecutan en el servidor pueden realizar accesos a bases de datos, conexiones en red, y otras tareas para crear la página final que verá el cliente. El cliente solamente recibe una página con el código HTML resultante de la ejecución de la PHP. Como la página resultante contiene únicamente código HTML, es compatible con todos los navegadores.

Go to Top