DesarrolloWeb.com > Manuales > Libro de visitas ASP y Access

Borrar mensaje del libro de visitas

11 de diciembre de 2003

Valoración del artículo:

Enviar un comentario

Ver comentarios del artículo (3)

Página ASP para eliminar un mensaje del libro de visitas

Por Eugenia Bahit

Atención: Contenido exclusivo de DesarrolloWeb.com. No reproducir. Copyright.

Esta página se encargará de eliminar (uno a uno) los mensajes que indiquemos. En la página default.asp, habrá un botón al lado de cada mensaje, el cual, al pulsarlo, nos traerá a Borrar.asp.

El primer paso que efectuará Borrar.asp, será pedirnos la contraseña, a través de un formulario (la contraseña es admin4517).

Si la contraseña es correcta, el segundo paso, será eliminarlo de la base de datos (a través de la sentencia SQL delete from...).

Y por último, si el mensaje es eliminado, nos dará un alerta avisándonos del proceso.

Borrar.asp

<%
id = request.querystring("id")
if id = "" then
response.redirect "Default.asp"
end if
pass = request.form("pass")
'la contraseña para eliminar mensajes es admin4517. Puedes modificarla
if pass = "admin4517" then
administrador = 1
end if
if administrador <> 1 then
Response.Write "<form method='post' action='borrar.asp?id="&id
Response.write "'>" & vbCrLf
Response.Write "<center><font face='Ms Sans Serif' size='1'>" & vbCrLf
Response.Write "Para <b>eliminar este mensaje</b>, por favor introduce tu <b>contraseña</b>:" & vbCrLf
Response.Write "<br><br>" & vbCrLf
Response.Write "<input type='password' name='pass' size='6'>" & vbCrLf
Response.Write "<input type='submit' value='enviar'>" & vbCrLf
Response.Write "</form></font>"
else
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("libvis.mdb"))
set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
id=request.querystring("id")

sqlstr="delete from mensajes where id="&id
set ors=Conn.execute(sqlstr)
Conn.close

Response.Write "<body onload=""alert('El mensaje ha sido eliminado')"">"
Response.Write "<a href='Default.asp'>Regresar</a>"
end if
%>

Enviar un comentario a este artículo

Ver comentarios del artículo (3)

Compartir en redes sociales

Comparte este manual en tus redes sociales

MANUAL: Libro de visitas ASP y Access

Introducir un mensaje en el libro de visitas ASP

Comentarios

Enviar un comentario al artículo

Fueron enviados 3 comentarios al artículo

2 comentarios no revisados

1 comentario revisado:

santiag...

LIBRO DE VISITAS

26/12/2010

Muy bueno todo lo descriptivo, pero para nosotros los que nada sabemos de html, que es lo que debemos insertar en nuestra página. Reformé el formulario y lo adapté a mi gusto:
<html>
<head>
<title>Firmar libro de visitas</title>
<style>

</style>
</head>

<body>
<p><font face="Arial" size="6">Firmar libro de visitas</font></p>
<p><font face="Arial" size="1"><a href="Default.asp">VER LIBRO</a></font></p>
<p> </p>
<%
if request.querystring("Mensaje")=2 then
%>
<p align="center"><b><font color="#12030C" face="MS Sans Serif" size="1">
El mensaje no ha podido ser publicado debido a que uno o más campos obligatorios
se encontraban vacíos.<br>
Por favor, intenta nuevamente.</font></b></p>
<%
end if%>
<div align="center">
<center>
<form method="post" action="addmensaje.asp">
<table border="0" cellpadding="2" cellspacing="2" width="80%">
<tr>
<td width="21%" align="right">
<p align="right"><font face="Arial" size="2">Nombre:</font></td>
<td width="79%" align="left" height="18">
<input type="text" name="Nombre" size="20"><font face="Arial" size="2"><b>*</b></font></td>
</tr>
<tr>
<td width="21%" align="right">
<font face="Arial" size="2">País:</font></td>
<td width="79%" align="left">
<input type="text" name="Pais" size="20"></td>
</tr>
<tr>
<td width="21%" align="right">
<font face="Arial" size="2">E-mail:</font></td>
<td width="79%" align="left">
<input type="text" name="email" size="37"><font face="Arial" size="2"><b>*</b></font></td>
</tr>
<tr>

<tr>
<td width="21%" align="right">
<font face="Arial" size="2">Asunto:</font></td>
<td width="79%" align="left" height="13">
<input type="text" name="Asunto" size="37"><font face="Arial" size="2"><b>*</b></font></td>
</tr>
<tr>
<td width="21%" align="right">
<font face="Arial" size="2">Mensaje:</font></td>
<td width="79%" align="left">
<textarea rows="4" name="Mensaje" cols="39"></textarea><font face="Arial" size="2"><b>*</b></font></td>
</tr>
<tr>
<td width="21%" align="right">
</td>
<td width="79%" align="left">
<font face="MS Sans Serif" size="1" color="#FF0000"><b>*</b> campo obligatorio</font>
<p><input type="submit" value="Firmar Libro"></td>
</tr>
</table>
</center>
</div>
</body>
</html>

Ahora que mas debo agregar, para que todo funcione

Ver otros 2 comentarios pendientes de revisar

Enviar un comentario al artículo