Introducción

1. ¿Qué son las ASP?

  • Son páginas HTML con guiones de servidor incrustados (server-side scripts) (~ PHP). Tienen extensión .asp
  • Los Scripts se procesan dinámicamente en el servidor y sus resultados se envían al navegador del cliente en formato Html. El código sólo existe en el lado servidor.
  • No utilizan una sintaxis propia: admiten VBScript, JScript, Perl, Pyton ...
  • Desarrollado por Microsoft para su arquitectura IIS. ASP 1.0 se incluyó en IIS 3.0; última revisión: ASP 3.0 con IIS 5.0

 

2. Modelo


 

3. Ejemplos

Algo trivial: ejemplo1.asp


<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<TITLE>Saludito</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">

<%
' Declaración de variables
   Dim strSaludo
   If Hour(Now) < 14 Then
      strSaludo = "¡Buenos días!"
   ElseIf Hour(Now) > 13 And Hour(Now) < 20 Then
      strSaludo = "Buenas tardes"
   ElseIf Hour(Now) > 19 Then
   strSaludo = "¡Buenas noches!"
   End If
%>

<H1><%=strSaludo%></H1>
</BODY>
</HTML>

Ver ejemplo


Estructuras de control: ejemplo2.asp



<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD><TITLE>Algunos bucles</TITLE></HEAD>
<BODY BGCOLOR="#FFFFFF">

<TABLE BORDER=0 WIDTH=95% HEIGHT=95% CELLSPACING=0 CELLPADDINT=0><TR>
<%
   ' Declaración de variables
   Dim Anyo
   Dim Mes
   Dim Dia

   Anyo = 2000
   FOR Mes = 1 TO 12
     IF Mes MOD 2 = 1 THEN Response.Write "<TR VALIGN=TOP>"
         Response.Write "<TH>"
         Response.Write UCase (MonthName (Mes)) & " del " & Anyo
         Response.Write "<TABLE BORDER=1><TR><TH>LUN<TH>MAR"
         Response.Write "<TH>MIE<TH>JUE<TH>VIE<TH>SAB<TH>DOM"
         J = 2
         DO WHILE J <> WeekDay (CDate ("1/" & Mes & "/" & Anyo))
            IF J = 2 THEN Response.Write "<TR>"
            Response.Write "<TD>"
            J = J MOD 7 + 1
         LOOP
         Dia = 1
         DO UNTIL Dia > 31
              IF NOT IsDate (Dia & "/" & Mes & "/" & Anyo)
                   THEN Exit Do
          IF WeekDay (CDate (Dia & "/" & Mes & "/" & Anyo)) = 2
                    THEN Response.Write "<TR>"
                Response.Write "<TD>" & Dia
                Dia = Dia + 1
         LOOP
     Response.Write "</TABLE>"
NEXT
%>

</TABLE>
</BODY>
</HTML>

Ver ejemplo


Acceso a datos con ADO: ejemplo3.asp

<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD><TITLE>Datos con ADO</TITLE></HEAD>
<BODY BGCOLOR="#FFFFFF">
<%
' Se instancian una nueva conexión y registro

SET Ob_Conn = Server.CreateObject ("ADODB.Connection")
SET Ob_RS = Server.CreateObject ("ADODB.RecordSet")
' Se asocian a una conexión ODBC con DSN "Ejemplo"
' y a su tabla "Fichas"

Ob_Conn.Open "Ejemplos"
Ob_RS.Open "Fichas", Ob_Conn

' Se vuelca el contenido de los registros en una tabla html

Response.Write "<TABLE BORDER=1 ALIGN=CENTER>"
Response.Write "<TR><TH>DNI<TH>NOMBRE<TH>APPELLIDOS"
Response.Write "<TH>DIRECCION<TH>TELEFONO"

DO WHILE NOT Ob_RS.Eof
   Response.Write "<TR>"
   Response.Write "<TD>" & Ob_RS ("DNI")
   Response.Write "<TD>" & Ob_RS ("NOMBRE")
   Response.Write "<TD>" & Ob_RS ("APELLIDOS")
   Response.Write "<TD>" & Ob_RS ("DIRECCION")
   Response.Write "<TD>" & Ob_RS ("TELEFONO")
   Ob_RS.MoveNext
LOOP

Response.Write "</TABLE>"

' Se cierran las instancias

Ob_RS.Close
Ob_Conn.Close
%>

</BODY>
</HTML>

Ver ejemplo


Anterior

Siguiente