Portada | Monotemáticos | Secciones | Desarrolladores | Comunidad | Servicios | Servicios profesionales | RSS
Desde 0 | HTML | CSS | ASP | PHP | AJAX | Javascript | Promoción de webs | Rentabilidad de webs
Directorio | Manuales | Scripts | FAQs | Programas | Artículos Copyleft | Actualidad | La Cosecha | Colabora
Registrarse | Vuestras páginas | Foros del web | Lista de correo | Boletín de novedades
Generador METAs | Compras | Busca cursos
Alojamiento | Dominios.es | Micropagos SMS | Buscadores | Patentes, marcas | Creación web | Multimedia | Videos
Desarrollo Freelance | Buscar proyectos | Buscar profesionales | Solicitar desarrollo

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

 Seguir navegando a partir aquí:
+ 1 manual relacionado
+ 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.

Versión imprimible Versión imprimible del artículo
Enviar artículo por e-mail Enviar artículo por e-mail
Añadir un comentario al artículo Publicar un comentario del artículo

Manuales relacionados con este artículo
Dentro de Libro de visitas ASP y Access

Categorias relacionadas
A través de las categorías de nuestro directorio se pueden encontrar otro tipo de recursos relacionados con este artículo:
+ Entrar en Scripts en ASP


 Comentarios sin revisar
Entre los comentarios no revisados puede haber algunos interesantes que se hayan enviado recientemente.
 Se ha encontrado un comentario sin revisar

Ver el comentario no revisadoVer los comentarios no revisados
Añadir un comentario al artículo Añadir un comentario del artículo



Enlaces:
Maestrosdelweb
  Ir arriba

Manuales relacionados
+Libro de visitas ASP y Access
Categorías
+Scripts en ASP

Lectura recomendada

Compra este libro en Agapea, la librería urgente a domicilio.

Tienda DesarrolloWeb

DesarrolloWeb.com | Copyright | Anunciese | Acerca de | Datos legales | Contacta | Por GuiarteMultimedia