ASPTutor.com Codigo de un Libro de visitas(IV)

Demo Tienda Virtual Tutorcar

Navegacion->Inicio | Active Server Pages

La web de los recursos y ejemplos de asp

Alojado en:

urbe-networks.com

Recomienda esta pagina a un amigo

Servicios Gratuitos

Postales virtuales

Articulos relacionados

Utilizar GetRows()

Tienda Virtual - Carrito de compra

Messenger a través de BD en ASP

Miniaplicacion de comercio electronico

Objeto Datagrid de ASP.NET en ASP

Acotación de resultados

Un Contador de visitas

Componentes ActiveX

Compactar una BD Access

Un Generador de claves aleatorias

Ejemplos de codigo ADO

Un calendario en ASP (Revision 2)

Ejemplos de objeto Response

Un Sistema de postales Virtuales en ASP (I)

Paginacion de resultados Basica

Ejemplo de una aplicación de Foros

Enlaces recomendados

Mi Blog de Fotografía

Paisajes matritenses

Sakura Reiki, Técnica metamórfica y Quiromasaje

Hosting gratis

web amigas

Tutorial ASP

Codigo de un Libro de visitas(IV)
Este articulo ha sido leído 53.778 veces

Un libro de visitas en ASP (IV)

Módulos de la aplicación:

deletereg.asp

Este modulo es un formulario simple que nos permite introducir la clave de administración para borrado de registros (esta palabra clave la tendremos almacena en la tabla "CLAVE" de nuestra base de datos)

<html>

<head>
<title>Borrado de registro(I)</title>
</head>

<body>

<form method="POST" action="deletereg2.asp">
<div align="center">
<center>
<table border="1" width="50%">
<tr>
<td width="100%" align="center" bgcolor="#00CCFF"><font color="#FFFFFF">Teclea
la clave de administración</font></td>
</tr>
<tr>
<td width="100%" align="center" bgcolor="#000000"><input type="password" name="clave" size="20"><input type="hidden" name="id" size="20" value="<%=request.querystring("id")%>"></td>
</tr>
<tr>
<td width="100%" bgcolor="#000000">
<p align="center"><input type="submit" value="Enviar" name="B1"></td>
</tr>
</table>
</center>
</div>
</form>

</body>

</html>

deletereg2.asp

Este modulo recibe la password tecleada en deletereg.asp, la comprueba y borra en registro. Si la clave es erronea da un mensaje, si todo va bien, nos devuelve a la página principal del libro de visitas y nos da un mensaje de confirmación de que todo ha ido bien.

<%if request.form("clave")="" or request.form("id")="" then
response.redirect "default.asp"
end if

Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\dirdb\librovisitas.mdb"))

set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
sqltxt="select * from clave"
rs.open sqltxt,conn
if rs("clave")<> request.form("clave") then%>

<html>

<head>
<title>Borrado de registro(II)</title>
</head>

<body>
<div align="center">
<center>
<table border="0" width="50%">
<tr>
<td width="100%">
<table border="10" width="100%" bgcolor="#FF0000" bordercolor="#000000">
<tr>
<td width="100%">
<p align="center"><font color="#FFFFFF">Clave ERRONEA</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<p align="center"><a href="javascript:window.history.back()">Intentalo de nuevo</a>
</td>
</tr>
</table>
</center>
</div>
</body>

</html>
<%else
rs.close
sqltxt="delete from visitas where id="&request.form("id")
conn.execute sqltxt
conn.close
response.redirect "default.asp?borrado=si"

end if%>

Siguiente >>

¿Estas empezando y este articulo es muy complejo para tí?
Empieza por el principio, visita Ejemplos Básicos

Puedes obtener un listado completo de todos los artículos y ejemplos de ASP en http://www.asptutor.com/asp/todoslosarticulos.asp

22 usuarios han valorado este articulo. Valoracion media:

Nota: Para cualquier consulta u opinión sobre este articulo puedes usar los foros

AspTutor lo hacemos entre todos ¿Como vas a colaborar hoy?


¿Como puedo colaborar?	Escribe tu articulo	Participa en los foros

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
Libro de visitas ¦Crea un enlace con ASPTutor