Valoración del artículo:
Página ASP para eliminar un mensaje del libro de visitas
Publicado: 11/12/03
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
%>
Usuarios: 
