Serie de dominio y entrada intermedia del componente asp

Autor：Eve Cole Fecha de actualización：2009-06-20 17:20:11

He escrito siete tutoriales primarios,

uno de la serie de entrada intermedia y dominio de componentes Asp

. Definitivamente hay algunas cosas básicas que deben escribirse. Poco a poco complementaré

el contenido de los tutoriales intermedios:

esto también puede ser lo que todos hacen. Lo que más le preocupa: tales como: operación y empaquetado de bases de datos. Uso de objetos integrados en Asp. Dedicaré mucho tiempo a explicar estas partes. Esta parte requiere que usted sea más competente en el uso de ADO para operar la base de datos y esté familiarizado con los cinco objetos principales de ASP.

Echemos un vistazo a parte de la información que circula en línea:
Como todos sabemos, ASP tiene cinco objetos integrados: Respuesta, Solicitud, Servidor, Sesión y Aplicación. De hecho, estos cinco objetos integrados son los cinco componentes DLL de ActiveX inicializados por la consola IIS. cinco componentes para usar en ASP. Por supuesto, también podemos hacer referencia directa a estos componentes en nuestra DLL ActiveX para implementar nuestra programación, lo que significa que podemos lograr la función de acceder a objetos integrados de ASP haciendo referencia a estos componentes en aplicaciones VB.

Siempre que instale un servidor WEB con PWS4 o IIS4 o superior, tendrá una biblioteca de objetos llamada "Objeto de páginas de Microsoft Active Server". Podemos hacer referencia a esta biblioteca de objetos en la aplicación DLL ActiveX de VB. Obtuve un objeto (clase): ScriptingContext, que también es el objeto central de todo nuestro artículo. La relación dentro de la biblioteca de objetos es la siguiente:

Clase de biblioteca de objetos Miembro de clase

ASPTypeLibrary ScriptingContext

Solicitud

de aplicación

Respuesta

Servidor

de sesión

A través del diagrama de relaciones anterior, podemos comprender fácilmente la clase ScriptingContent.

Echemos un vistazo a un ejemplo específico:

abra vb6 y cree un nuevo proyecto Activex Dll. Cambie el nombre del proyecto a fCom y el nombre de la clase a fZ1
Referencia a la biblioteca de objetos "Objeto de páginas de Microsoft Active Server".
Cree dos eventos de componentes: OnStartPage y OnEndPage
Cree una referencia a la clase ScriptingContent en el evento OnStartPage.
Crear una instancia de la clase ScriptingContent.

El código es el siguiente:

'Este evento se activa cuando se destruye el componente
Sub pública OnEndPage()
myResponse.Write "¡El componente DLL ActiveX ha sido destruido!"
'Destruye el objeto
Establecer miRespuesta = Nada
Establecer miSolicitud = Nada
Establecer miServidor = Nada
Establecer miAplicación = Nada
Establecer mi sesión = Nada
End Sub

'Definir un método componente propio
Sub público Hola Mundo()
myResponse.Write "Esto está escrito usando objetos integrados en ASP"
Subtítulo final

Pruebe abrir visual interdev6.0 y generar un archivo asp

código de programa
<%@ Idioma=VBScript %>
<HTML>
<CUERPO>
<%
establecer obj=server.CreateObject("fCom.fZ1")
llamar a obj.HelloWorld()
%>
</CUERPO>
</HTML>

Configure el directorio virtual y ejecute este archivo asp en IE. Los resultados son los siguientes:
¡Se ha creado el componente ActiveX DLL! ¡Este componente ActiveX DLL escrito con objetos integrados de ASP ha sido destruido!

Serie de dominio y entrada intermedia del componente ASP Parte 2

Veamos primero el objeto Aplicación Anteriormente, el objeto Aplicación se usaba a menudo para contadores. y bases de datos para la cadena de conexión, tomamos el contador como ejemplo:
Primero veamos el archivo global.asa. Esto es relativamente simple.

código de programa
<lenguaje de secuencia de comandos =vbscript runat=servidor>
subAplicación_onstart
Aplicación("Contador")=0
sub final
</script>

Luego

abra vb6 y cree un nuevo proyecto Activex Dll. El nombre del proyecto se cambia a fCom y el nombre de la clase se cambia a fZ2
Referencia a la biblioteca de objetos "Objeto de páginas de Microsoft Active Server".
Cree dos eventos de componentes: OnStartPage y OnEndPage
Cree una referencia a la clase ScriptingContent en el evento OnStartPage.
Crear una instancia de la clase ScriptingContent.

El código es el siguiente:

código del programa
Opción explícita
'Declaración de objeto
Atenuar myResponse como respuesta
Atenuar myRequest como solicitud
Atenuar myApplication como aplicación
Atenuar myServer como servidor
Atenuar mySession como sesión
'Este evento se activará cuando se cree el componente.
Public Sub OnStartPage (myScriptingContent como ScriptingContext)
'Ejecutar creación de instancias de objetos
Establecer myResponse = myScriptingContent.Response
Establecer miRequest = myScriptingContent.Request
Establecer myServer = myScriptingContent.Server
Establecer miAplicación = myScriptingContent.Application
Establecer mySession = myScriptingContent.Session
Subtítulo final
'Este evento se activa cuando el componente se destruye
Sub pública OnEndPage()
'Destruye el objeto
Establecer miRespuesta = Nada
Establecer miSolicitud = Nada
Establecer miServidor = Nada
Establecer miAplicación = Nada
Establecer mi sesión = Nada
Subtítulo final
'Puedes ver que el método de escritura es el mismo después de mover lo escrito en asp a vb.
Sub ShowCounter público()
Dim intcounter siempre y cuando
miAplicación.Lock
intcontador = miAplicación("contador")
contadorint = contadorint + 1
miAplicación("contador") = intcontador
miAplicación.Desbloquear
myResponse.Write CStr(intcounter)
Subtítulo final

Pruebe

abrir visual interdev6.0 y generar un archivo asp

código de programa
<%@ Idioma=VBScript %>
<HTML>
<CUERPO>
<%
objeto oscuro
establecer obj=server.CreateObject("fCom.fZ2")
obj.ShowCounter()
%>
</CUERPO>
</HTML>

Después de configurar el directorio virtual, debe colocar el archivo global.asa en el directorio raíz, ejecutar este archivo asp en IE, actualizar la página y verá un número cambiante.
Eso es todo por el uso de la Aplicación.

En comparación con

el nivel de entrada intermedio del componente Asp y la serie de dominio tres,

Session, es mucho más simple

. Abra vb6 y cree un nuevo proyecto Activex Dll. Cambie el nombre del proyecto a fCom y el nombre de la clase a fZ3
Referencia a la biblioteca de objetos "Objeto de páginas de Microsoft Active Server".
Cree dos eventos de componentes: OnStartPage y OnEndPage
Cree una referencia a la clase ScriptingContent en el evento OnStartPage.
Crear una instancia de la clase ScriptingContent.

El código es el siguiente:

código de programa
Opción explícita
'Declaración de objeto
Atenuar myResponse como respuesta
Atenuar myRequest como solicitud
Atenuar myApplication como aplicación
Atenuar myServer como servidor
Atenuar mySession como sesión
'Este evento se activará cuando se cree el componente.
Public Sub OnStartPage (myScriptingContent como ScriptingContext)
'Ejecutar creación de instancias de objetos
Establecer myResponse = myScriptingContent.Response
Establecer miRequest = myScriptingContent.Request
Establecer myServer = myScriptingContent.Server
Establecer miAplicación = myScriptingContent.Application
Establecer mySession = myScriptingContent.Session
End Sub

'Este evento se activa cuando se destruye el componente
Sub pública OnEndPage()
'Destruye el objeto
Establecer miRespuesta = Nada
Establecer miSolicitud = Nada
Establecer miServidor = Nada
Establecer miAplicación = Nada
Establecer mi sesión = Nada
Subtítulo final
'Puedes ver que el método de escritura es el mismo después de mover lo escrito en asp a vb.
'Obtener todas las variables y valores de la sesión
Sesión pública secundaria()
'Puedes establecer un tiempo de espera de 20 minutos
miSesión.Tiempo de espera = 20
Atenuar mi artículo
'Obtener todas las sesiones
Para cada myitem en mySession.Contents
myResponse.Write myitem & ": " & mySession.Contents(myitem)
myResponse.Escribe "<br>"
Próximo
Subtítulo final

Pruebe

abrir visual interdev6.0, genere un archivo asp para configurar el directorio virtual, ejecute este archivo asp en IE, puede ver

el nombre: tornado
edad: 26
Especialidad:

Eso es todo por el uso del componente Session. Otros usos de Session son similares.

Serie cuatro de dominio y entrada intermedia del componente asp,

aprendemos a solicitar
Para ver cómo obtener el contenido enviado por la página en el componente

, abra vb6 y cree un nuevo proyecto Activex Dll. El nombre del proyecto se cambia a fCom y el nombre de la clase se cambia a fZ4
Referencia a la biblioteca de objetos "Objeto de páginas de Microsoft Active Server".
Cree dos eventos de componentes: OnStartPage y OnEndPage
Cree una referencia a la clase ScriptingContent en el evento OnStartPage.
Crear una instancia de la clase ScriptingContent.

El código es el siguiente:

'Puedes ver que el método de escritura es el mismo después de mover lo escrito en asp a vb.
Solicitud de presentación secundaria pública ()
Atenuar mi artículo
'Publicar camino
Para cada myitem en myRequest.Form
myResponse.Write myitem & ": " & myRequest.Form(myitem)
myResponse.Escribe "<br>"
Próximo
'Obtener método
Para cada myitem en myRequest.QueryString
myResponse.Write myitem & ": " & myRequest.QueryString(myitem)
myResponse.Escribe "<br>"
Próximo
'mensaje único
myResponse.Write "Uno de los mensajes es " & ": " & myRequest("nombre de usuario")
myResponse.Escribe "<br>"
Subtítulo final

Pruebe

abrir visual interdev6.0 y generar un

código de programa

de archivo fz41.asp

<%@ Idioma=VBScript %>
<HTML>
<CUERPO>
<formulario acción="fz4_result.asp" método="publicación">
<ENTRADA id=texto1 nombre=nombre de usuario>
<ENTRADA id=texto2 nombre=edad>
<ENTRADA id=enviar1 tipo=enviar valor=Enviar nombre=enviar>
</formulario>
</CUERPO>
</HTML>

También necesita generar un

código de programa

de archivo fz4_result.asp enviado

<%@ Idioma=VBScript %>
<HTML>
<CUERPO>
<%
objeto oscuro
establecer obj=server.CreateObject("fCom.fZ4")
llamar a obj.ShowRequest
%>
</CUERPO>
</HTML>

Además, también debemos echar un vistazo al método de envío, por lo que necesitamos un

código de programa

de archivo fz42.asp.

<%@ Idioma=VBScript %>
<HTML>
<CUERPO>
<formulario action="fz4_result.asp?username='"& nombre de usuario &"'& edad='"& edad &"'" método="get" id=form1 nombre=form1>
<ENTRADA id=texto1 nombre=nombre de usuario>
<ENTRADA id=texto2 nombre=edad>
<ENTRADA id=enviar1 tipo=enviar valor=Enviar nombre=enviar>
</formulario>
</CUERPO>
</HTML>

Configure el directorio virtual y ejecute el archivo fc41.asp en IE. Después de ingresar el contenido, haga clic en el botón y verá

el nombre de usuario: Tornado.
edad: 26
Enviar: Enviar
Uno de los mensajes es: Tornado.

Ejecutemos el archivo fc42.asp en IE. Después de ingresar el contenido, haga clic en el botón y podrá ver

el nombre de usuario: Tornado.
edad: 26
Enviar: Enviar
Uno de los mensajes es: Tornado

y la barra de direcciones se vuelve
http://yang/xml/fz4_result.asp?username=%C1%FA%BE%ED%B7%E7&age=26&%CC%E1%BD%BB=Enviar

Continuará

Serie de dominio y entrada intermedia del componente Asp Parte 5

Echemos un vistazo al objeto Respuesta. De hecho, hemos estado usando el método Write de este objeto en tutoriales anteriores.

Aquí utilizamos el objeto Respuesta para configurar cookies.

Abra vb6 y cree un nuevo proyecto Activex Dll. Cambie el nombre del proyecto a fCom y el nombre de la clase a fZ5
Referencia a la biblioteca de objetos "Objeto de páginas de Microsoft Active Server".
Cree dos eventos de componentes: OnStartPage y OnEndPage
Cree una referencia a la clase ScriptingContent en el evento OnStartPage.
Crear una instancia de la clase ScriptingContent.

El código es el siguiente:

'Este evento se activará cuando se cree el componente
Public Sub OnStartPage (myScriptingContent como ScriptingContext)
'Ejecutar creación de instancias de objetos
Establecer myResponse = myScriptingContent.Response
Establecer miRequest = myScriptingContent.Request
Establecer myServer = myScriptingContent.Server
Establecer miAplicación = myScriptingContent.Application
Establecer mySession = myScriptingContent.Session
End Sub

'Establecer cookies de la página y obtenerlas del componente
Sub público GetCookie()
Atenuar mi artículo
'Toda la información
Para cada myitem en myRequest.Cookies
myResponse.Write myitem & ": " & myRequest.Cookies.Item(miitem)
myResponse.Escribe "<br>"
Próximo
'mensaje único
myResponse.Write "donde el nombre de usuario es " & ": " & myRequest.Cookies("nombre de usuario")
myResponse.Escribe "<br>"
myResponse.Write "donde está la edad del usuario" & ": " & myRequest.Cookies("edad")
myResponse.Escribe "<br>"
End Sub

'Establecer cookies en el componente y obtenerlas en la página
Subconjunto públicoCookie()
myResponse.Cookies("com_username") = "Tornado"
miRespuesta.Cookies("com_age") = 26
miRespuesta.Expira = #13/9/2004#
Subtítulo final

Compílelo en un archivo Dll y el sistema lo registrará automáticamente.
De lo contrario, registre Regsvr32 manualmente f:testfcom.dll

para probar

visual interdev6.0 abierto, genere un archivo fz5.asp

y configure el directorio virtual, ejecute el archivo fc5.asp en IE, podrá ver

el tornado
26
edad: 26
nombre de usuario: tornado
com_edad: 26
com_username: Tornado donde el nombre de usuario es: Tornado donde la edad del usuario es: 26

Continuará

Introducción intermedia y dominio de los componentes de Asp Serie No. 6

Como objeto integrado de Asp, finalmente aprendemos sobre el objeto Servidor

. El objeto utiliza más codificación HTML y redirección y transmisión de páginas web.

Abra vb6 y cree un nuevo proyecto Activex Dll. El nombre del proyecto se cambia a fCom y el nombre de la clase se cambia a fZ6
Referencia a la biblioteca de objetos "Objeto de páginas de Microsoft Active Server".
Cree dos eventos de componentes: OnStartPage y OnEndPage
Cree una referencia a la clase ScriptingContent en el evento OnStartPage.
Crear una instancia de la clase ScriptingContent.

El código es el siguiente:

Public Sub ShowHtml (ByVal strHtml como cadena)
myResponse.Write myServer.HTMLEncode(strHtml)
End Sub

Public Sub ShowUrl (ByVal strUrl como cadena)
myResponse.Write myServer.URLEncode(strUrl)
Fin Sub

Public Sub ExecuteUrl()
myServer.Transfer "fz5.asp"
Subtítulo final

Compílelo en un archivo Dll y el sistema lo registrará automáticamente.

De lo contrario, registre manualmente Regsvr32 f:testfcom.dll

para probar

visual interdev6.0 abierto, genere un archivo fz6.asp

configure el directorio virtual. Ejecute el archivo fc6.asp en IE para verlo

C1 %FA%BE%ED%B7%E7&age=26

Puede usar IE para ver el archivo fuente y ver la codificación HTML.

Esta es la introducción temporal de los objetos integrados de ASP, y continuaremos estudiándolos más adelante.

También puede sacar inferencias de un ejemplo y aprender propiedades y métodos que no se han introducido.

La serie siete de dominio y entrada intermedia del componente ASP

inicia las operaciones de la base de datos.

Embalaje de componentes comunes

1. Encapsule la información de conexión de la base de datos.

1> Devuelve directamente la cadena de conexión de la base de datos, como

el código del programa

en el componente

Fuente de datos de función pública () como variante
fuente de datos = "controlador = {servidor sql}; servidor = yang; uid = sa; pwd =; base de datos = viento del norte"
Función final

código del programa

de llamada asp

establecer obj=server.CreateObject("webdb.getinfo")

Las deficiencias de

oconn=obj.datasource()

son obvias. En el archivo asp, Response.write oconn puede mostrar directamente la cadena de conexión de la base de datos, lo que no tiene el efecto esperado.

2> Devolver

el código del programa

objeto adodb.connection

Función pública GetConn() como ADODB.Connection
Establecer conexión = Nueva conexión ADODB.
conn.ConnectionString = "Proveedor=SQLOLEDB.1;Persist Security Info=False;ID de usuario=sa;contraseña=;Catálogo inicial=Northwind;Fuente de datos=yang"
conexión.Abierto
Establecer GetConn = conexión
Función final

código del programa

de llamada asp

Consulta de datos tenue
Establecer DataQuery=Server.CreateObject("WebDbtest.GetInfomation")
establecer rs=servidor.createobject("adodb.recordset")
sql="seleccionar * de empleados"
Rs.open sql,DataQuery.getconn,1,3
respuesta.Escribir Rs("Apellido")
Respuesta.escribir DataQuery.getconn.ConnectionString
set Rs=nada

se ve bien, pero Response.write DataQuery.getconn.ConnectionString seguirá mostrando la cadena de conexión de la base de datos. Puedes probarlo.

2. Para encapsular componentes en un conjunto de registros, puede leer lo que escribí hace algún tiempo : http://blog.csdn.net/online/archive/2003/12/11/7764.aspx
Lo malo de este código es que la conexión de la base de datos se juzga en la página. Una vez que la conexión es exitosa, se accede a los datos. Personalmente, creo que la mejor manera es

encapsularlos en un conjunto de registros y conectarse a la base de datos en el. Método del componente. Una vez completada la operación, ciérrelo a

tiempo e intente generar código HTML en el componente para encapsular todo. Como el siguiente método

en lugar de encapsulación parcial.

La serie de dominio y entrada intermedia de componentes Asp No. 8

ha estado bastante ocupada durante este período Jaja, hoy veremos un ejemplo completo de paginación y encapsulación de datos.

Abra vb6 y cree un nuevo proyecto Activex Dll. El nombre del proyecto se cambia a fCom y el nombre de la clase se cambia a fZ8
Referencia a la biblioteca de objetos "Objeto de páginas de Microsoft Active Server", "Biblioteca de objetos de datos de Microsoft Activex 2.7".

Cree dos eventos de componentes: OnStartPage y OnEndPage
Cree una referencia a la clase ScriptingContent en el evento OnStartPage.
Crear una instancia de la clase ScriptingContent.

El código es el siguiente:

código del programa
Opción explícita
'************************************************ *
'Autor: Tornado
'Función: Componente simple, personalizable y completamente encapsulado
'Hora:2005-01-01
'************************************************ *

'Declaración de objeto
Atenuar MyResponse como respuesta
Atenuar MyRequest como solicitud
Atenuar myApplication como aplicación
Atenuar myServer como servidor
Dim mySession As Session

'Variables privadas
Tamaño de página privada siempre y cuando
mstrSql privado como cadena
'Este evento se activará cuando se cree el componente.
Public Sub OnStartPage (myScriptingContent como ScriptingContext)
'Ejecutar creación de instancias de objetos
Establecer MiRespuesta = myScriptingContent.Response
Establecer MyRequest = myScriptingContent.Request
Establecer myServer = myScriptingContent.Server
Establecer miAplicación = myScriptingContent.Application
Establecer mySession = myScriptingContent.Session
End Sub

'Este evento se activa cuando se destruye el componente
Sub pública OnEndPage()
'Destruye el objeto
Establecer MiRespuesta = Nada
Establecer Mi Solicitud = Nada
Establecer miServidor = Nada
Establecer miAplicación = Nada
Establecer mi sesión = Nada
Fin Sub

'Mostrar tabla
Función pública ShowTable()
Conexión tenue como nueva conexión ADODB
Dim rs como nuevo ADODB.Recordset
Atenuar i como entero
Dim j como entero
Atenuar intPage como entero
Dim intPageCount como entero
Dim strScriptName como cadena
Dim intPos como entero
Dim intFieldCount como entero

'Obtén el camino
strScriptName = MyRequest.ServerVariables("Script_Name")
intPos = InStrRev(strScriptName, "/")
Si intPos <> 0 Entonces
strScriptName = Medio(strScriptName, intPos + 1)
Terminar si
Si está vacío (Mi solicitud ("página")) Entonces
intPágina = 1
Demás
intPágina = CInt(MiSolicitud("página"))
Terminar si
En caso de error Ir a errar
conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=localhost"
rs.Open mstrSql, conexión, adOpenStatic, adLockReadOnly
'Obtener el número de registros
intFieldCount = rs.Fields.Count
'Tabla de salida
MyResponse.Write "<borde de tabla=1 espacio entre celdas=0 relleno de celdas=2>"
Si no es rs.EOF entonces
rs.Tamaño de página = mTamaño de página
rs.AbsolutePage = intPágina
'Obtener el número de página
intPageCount = rs.PageCount
'Manejar paginación
Si intPágina < 1 Entonces intPágina = 1
Si intPage > intPageCount Entonces intPage = intPageCount
'Encabezado de salida
MiRespuesta.Escribir "<tr>"
Para i = 0 Para intFieldCount - 1
MiRespuesta.Escribir "<th>" & rs(i).Nombre & "</th>"
Próximo
MiRespuesta.Escriba "</tr>"
'Contenido de salida
Para i = 1 a mPageSize
Si rs.EOF Entonces
Salir por
Terminar si
MiRespuesta.Escribir "<tr>"
Para j = 0 Para intFieldCount - 1
MyResponse.Write "<td>" & rs.Fields(j).Value & "</td>"
Próximo
MiRespuesta.Escriba "</tr>"
rs.MoverSiguiente
Próximo
'Paginación de salida
MiRespuesta.Escribir "<tr>"
Si intPage <> 1 Entonces
MyResponse.Write "<a href=" & strScriptName & "?page=1>[Primera página]</a>"
MyResponse.Write "<a href=" & strScriptName & "?page=" & intPage - 1 & " >[Página anterior]</a>"
Terminar si

Si intPage <> intPageCount Entonces
MyResponse.Write "<a href=" & strScriptName & "?page=" & intPage + 1 & ">[página siguiente]</a>"
MyResponse.Write "<a href=" & strScriptName & "?page=" & intPageCount & ">[última página]</a>"
Terminar si

MyResponse.Write "Página:<FONT COLOR='Red'>" & intPage & "/ " & intPageCount & "</FONT>"
MiRespuesta.Escriba "</tr>"
Terminar si

MiRespuesta.Escribir "</table>"

'Liberar recursos
Si no rs no es nada entonces
Si rs.State = 1 Entonces
rs.Cerrar
Terminar si
Configurar=Nada
Terminar si
Si no conn no es nada entonces
Si estado de conexión = 1 entonces
conexión.Cerrar
Terminar si
Establecer conexión = Nada
Terminar si

Error

de función de salida

:
MiRespuesta.Escribir error.Número y error.Descripción
Si no rs no es nada entonces
Si rs.State = 1 Entonces
rs.Cerrar
Terminar si
Configurar=Nada
Terminar si
Si no conn no es nada entonces
Si estado de conexión = 1 entonces
conexión.Cerrar
Terminar si
Establecer conexión = Nada
Terminar si
Función final
'Definir atributos
La propiedad pública obtiene ShowPageSize() como variante
MostrarTamaño de página = mTamaño de página
Propiedad final

Propiedad pública Let ShowPageSize(ByVal vNewValue As Variant)
mPageSize = vNuevoValor
Propiedad final

Propiedad pública Obtener strSQL() como variante
strSQL = mstrSql
Propiedad final

Propiedad pública Let strSQL(ByVal vNewValue As Variant)
mstrSql = vNuevoValor
Propiedad final

Compílelo en un archivo Dll y el sistema lo registrará automáticamente.
De lo contrario, registre manualmente Regsvr32 f:testfcom.dll

para probar

visual interdev6.0 abierto y generar un archivo fz8.asp.

código de programa
<%@ Idioma=VBScript %>
<HTML>
<CUERPO>
<%
objeto oscuro
establecer obj=servidor.CreateObject("fcom.fz8")
'El número de registros mostrados en cada página.
obj.ShowPageSize=10
'Declaración SQL mostrada
obj.strSQL="seleccione ID de cliente, nombre de empresa, nombre de contacto, título de contacto, dirección de los clientes"
obj.ShowTable()
%>
</CUERPO>
</HTML>