> Manuales > Libro de visitas ASP y Access

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

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
%>

Eugenia Bahit

Analista Programadora LAMP y Scrum Coach

Manual