 |
|
|
|
|
|
Portada | Monotemáticos | Secciones | Desarrolladores | Comunidad | Servicios | Servicios profesionales | RSS | |
||
|
||||
|
|
|||
 |
|
 |
||
|
||||
Borrar mensaje del libro de visitas
Página ASP para eliminar un mensaje del libro de visitas
11/12/03 - 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
%>
+ 1 categoria relacionada
+ 1 comentario no revisado
| Autoría, licencia y acciones sobre este artículo | ||||||
|
Informe de Eugenia Bahit*
Desarrolladora ASP y PHP URL: http://www.cmzk.com.ar Atención: Copyright. Este artículo no se puede reproducir sin la autorización expresa del autor. * Para consultas técnicas utilizar la lista de correo.
|
| Comentarios sin revisar |
| Entre los comentarios no revisados puede haber algunos interesantes que se hayan enviado recientemente. |
 | Ver los comentarios no revisados |
 | Añadir un comentario del artículo |
| Enlaces: |
| Maestrosdelweb |
Ir arriba
Lectura recomendada  Compra este libro en Agapea, la librería urgente a domicilio. |
||||||||
Tienda DesarrolloWeb
