ASP

Buen dia!!, hoy iniciaremos un tutorial Asp, para crear una aplicacion web, basada en una agenda de contactos...


  • Primero debemos tener instalado Internet Information Server(IIS), para crear las paginas utilizando un servidor local. Para esto solo requiere ir a Panel de control entrar a Agregar o quitar programas y elejir agregar o quitar componentes de Windows , en el asistente de componentes para windows, active la casilla Servicios de Internet Information Server.
  • Utilizaremos como editor de nuestro código Asp, Dreamweaver en cualquiera de sus versiones.
  • En Dreamweaver debe configurar un sitio web, entre a Dreamweaver y elija crear sitio de Dreamweaver, y escriba por nombre Agenda.
  • En direccion http(url),escriba:http://localhost.
  • En tecnologia de servidor, escoja Asp Vbscript.
  • En la etapa de desarrollo, elija editar y comprobar localmente, para almacenar los archivos especifique la ruta C:/Inetpub/wwwroot (esta ruta es la predeterminada para asp)
  • En servidor de prueba, escoja configurar más tarde.

Listo ya configuro su sitio web Asp, ahora cree su primer pagina, asi como se muestra en la imagen y llamela captura.html.



  • Ahora crearemos una nueva pagina que será Dinámica AspVBscript, la cual llamara altas.asp, en ella introduzca el siguiente código:
    'asignamos a variables el contenido de los campos del formulario
    cve=request.Form("clave")
    nom=request.Form("nombre")
    ape=request.Form("apellidos")
    edad=request.Form("edad")
    dire=request.Form("direccion")
    tel=request.Form("telefono")
    mail=request.Form("email")
    fecha=request.Form("cumple")
    'creamos la conexion
    set conexion=server.CreateObject("adodb.connection")
    'creamos el recordset
    set rst=server.CreateObject("adodb.recordset")
    'abrimos la conexion sin utilizar dns
    conexion.provider ="Microsoft.Jet.OLEDB.4.0"
    conexion.open Server.MapPath("/wwwroot/agenda.mdb")
    'ejecutamos una consulta sql a la bd
    sqltext="select * from clientes"
    rst.open sqltext,conexion,3,3
    'almacenamos los datos en variables que son tomadas de un formulario
    with rst
    .addnew
    .fields ("nombre")=nom
    .fields ("apellidos")=ape
    .fields ("edad")=edad
    .fields ("direccion")=dire
    .fields ("telefono")=tel
    .fields ("email")=mail
    .fields ("fecha cumpleaños")=fecha
    .update
    end with
    'cerramos el recordset y la conexion
    rst.close
    conexion.close
    response.redirect "altas.html"

El código para mostrar los datos




'creamos la conexion a la bd y el recordset
set conexion=server.CreateObject("adodb.connection")
set rst=server.CreateObject("adodb.recordset")
'abrimos la conexion
conexion.provider="microsoft.jet.oledb.4.0"
conexion.open server.MapPath("/wwwroot/agenda.mdb")
'ejecutamos una consulta sql a la bd
sqltext="select * from clientes"
rst.open sqltext,conexion,3,3
‘guardamos la clave en una variable
clave=rst.fields("clave")
' imprime el contenido de la agenda, puede estar dentro de una tabla
do while not rst.eof
response.write rst("nombre")
response.write rst("apellidos")
response.write rst("edad")
response.write rst("direccion")
response.write rst("telefono")
response.write rst("email")
response.write rst("fecha cumpleaños")
response.write link='modificar.asp?clave="& rst.fields("clave")&"'>Modificar"
response.write link='eliminar.asp?clave="& rst.fields("clave")&"'>Eliminar"
'avanza al siguiente registro
rst.movenext
loop
'cerramos la bd y el recordset
rst.close
conexion.close


Código para modificar los datos
'creamos la conexion y el recordset
set conexion=server.CreateObject("adodb.connection")
set rst=server.CreateObject("adodb.recordset")
'abrir la conexion
conexion.provider= "microsoft.jet.oledb.4.0."
conexion.open server.MapPath("/wwwroot/agenda.mdb")
'ejecutar la consulta sql a la bd de datos
sqltext = "select * from clientes where clave =" &_
request.QueryString("clave")
rst.open sqltext,conexion,3,3
'almacenar los valores en variables
clave=rst.fields("clave")
nom=rst.fields("nombre")
ape=rst.fields("apellidos")
edad=rst.fields("edad")
dire=rst.fields("direccion")
tel=rst.fields("telefono")
mail=rst.fields("email")
fecha=rst.fields("fecha cumpleaños")
'mostrar los datos de la agenda en un formulario
input name="nombre" type="text" id="nombre" value="nom"
input name="apellidos" type="text" id="apellidos" value="ape"
input name="edad" type="text" id="edad" value="edad"
input name="direccion" type="text" id="direccion" value="dire"
input name="telefono" type="text" id="telefono" value="tel"
input name="email" type="text" id="email" value="mail"
input name="cumple" type="text" id="cumple" value="fecha"
'Toma los datos del formulario , ya que son modificados
nombre=request.Form("nombre")
apellidos=request.Form("apellidos")
edad=request.Form("edad")
direccion=request.Form("direccion")
telefono=request.Form("telefono")
email=request.Form("email")
fecha=request.Form("cumple")
'inserta los datos en la agenda
with rst
.fields("nombre")=nombre
.fields("apellidos")=apellidos
.fields("edad")=edad
.fields("direccion")=direccion
.fields("telefono")=telefono
.fields("email")=email
.fields("fecha cumpleaños")=fecha
.update
end with
'cerramos la conexion y el recordset
rst.close
conexion.close

Ahora el código para eliminar
'creamos las var de conexion
set conexion=server.CreateObject("adodb.connection")
set rst=server.CreateObject("adodb.recordset")
'abrimos la conexion
conexion.provider="Microsoft.Jet.Oledb.4.0."
conexion.open server.mappath("/wwwroot/agenda.mdb")
'creamos la cadena de conexion en sql
sqltext="select * from clientes where clave="&_
request.QueryString("clave")
rst.open sqltext,conexion,3,3
rst.delete
'cerramos el recordset y la conexion
rst.close
conexion.close
response.Redirect("mostrar.asp")

Listo, terminado el ABM en asp, espero este tutorial, haya sido util...