ASP

El siguiente ejemplo realiza una conexión contra SQL Server mediante autenticación integrada y obtiene datos

Sub Page_Load(sender as object, e as System.EventArgs) 

'Se define el objeto conexión dim conn as System.Data.SqlClient.SqlConnection dim reader as System.Data.SqlClient.SqlDataReader dim sql as System.Data.SqlClient.SqlCommand 

'Se especifica el string de conexión conn = New System.Data.SqlClient.SqlConnection() conn.ConnectionString = "data source=.;integrated security=SSPI;initial catalog=TestConnDb" 

'Se abre la conexión y se ejecuta la consulta conn.Open() sql = new System.Data.SqlClient.SqlCommand sql.CommandText = "SELECT * FROM tabla" sql.Connection = conn reader = sql.ExecuteReader() 

Do while reader.Read() Response.Write( reader.GetValue(0) + "<br/>" ) Loop 

End Sub 

El resultado de esta función es un número decimal, y buscandolo en la siguiente tabla puede verse el tipo de cultura

http://www.w3schools.com/vbscript/func_getlocale.asp

Tambien es posible cambiar este valor utilizando  otra función en ASP llamada SetLocale.

Un ejemplo para cambiar la cultura  sería:

SetLocale("es-ar")

Ejemplo para crear un formulario de envío de correos en ASP:

<%@LANGUAGE="VBSCRIPT" %>

<!– Ejemplo de Formulario de envio de correos utilizando ASP –>

<!– Este codigo debe ser colocado en un archivo de extension .asp –>





<!–METADATA TYPE="TypeLib" FILE="E:\WINDOWS\system32\cdosys.dll" –>



<!– Formulario para completar con los datos –>

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

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

        Titulo Consulta: <input type="text" name="TituloConsulta" width="50" ></input><br/>

      Texto Consulta: <TEXTAREA NAME="Consulta"      ROWS="10"  COLS="50">    </TEXTAREA>   <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



 DestinatarioCorreo = Request("destinatario")

 CuentaDesdeDondeSeEenvia = "CuentaDeCorreo" ‘debe ser una creada desde el panel de control nombre@dominio

 TextoConsulta= Request("Consulta")

 TituloConsulta= Request("TituloConsulta")



If Request("enviar") = 1 Then

    If Not Request("usuario") = "" 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.Update

        ‘ Se asignan las propiedades de configuración al objeto

        Set oMail.Configuration = iConf

                oMail.To = DestinatarioCorreo

                oMail.From = CuentaDesdeDondeSeEenvia

                oMail.Subject = TituloConsulta

                oMail.TextBody = TextoConsulta

        ‘ 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

%>

En programación es necesario conocer la cultura del servidor por dos grandes motivos.



1- Separación de decimales y separador de miles

Por ejemplo: 1.234,56



2- Formato de fecha

Por ejemplo: 13/06/2006 09:13:05 a.m.



Nuestros servidores Windows, por defecto, tienen la cultura:


English – United States, (en-us), 1033

Esto se puede obtener fácilmente utilizando una función en ASP llamada GetLocale()

El resultado de ésta función es un número decimal, y buscándolo en la siguiente tabla puede verse el tipo de

cultura:

También es posible cambiar este valor utilizando otra función en ASP llamada SetLocale.



Un ejemplo para cambiar la cultura sería:


SetLocale("es-ar")

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" /> 

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> 

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>

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 
%>

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.

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 
%> 

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 

%>