![]() |
|
||||||||
|
|
Alojado en: Recomienda esta pagina a un amigo ![]() Servicios Gratuitos
Articulos relacionados
Enlaces recomendados |
|
<html> <head> <title>Borrado de registro(I)</title> </head> <body> <form method="POST" action="deletereg2.asp"> <div align="center"> <center> <table border="1" width="50%"> <tr> <td width="100%" align="center" bgcolor="#00CCFF"><font color="#FFFFFF">Teclea la clave de administración</font></td> </tr> <tr> <td width="100%" align="center" bgcolor="#000000"><input type="password" name="clave" size="20"><input type="hidden" name="id" size="20" value="<%=request.querystring("id")%>"></td> </tr> <tr> <td width="100%" bgcolor="#000000"> <p align="center"><input type="submit" value="Enviar" name="B1"></td> </tr> </table> </center> </div> </form> </body> </html> |
deletereg2.asp
Este modulo recibe la password tecleada en deletereg.asp, la comprueba y borra en registro. Si la clave es erronea da un mensaje, si todo va bien, nos devuelve a la página principal del libro de visitas y nos da un mensaje de confirmación de que todo ha ido bien.
<%if request.form("clave")="" or request.form("id")="" then response.redirect "default.asp" end if 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("\dirdb\librovisitas.mdb")) set rs=createobject("ADODB.Recordset") rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic sqltxt="select * from clave" rs.open sqltxt,conn if rs("clave")<> request.form("clave") then%> <html> |
¿Estas
empezando y este articulo es muy complejo para tí? Puedes obtener
un listado completo de todos los artículos y ejemplos de ASP en
http://www.asptutor.com/asp/todoslosarticulos.asp |
22 usuarios han valorado este
articulo.
Valoracion media:
![]() |
AspTutor lo hacemos entre todos ¿Como vas a colaborar hoy?
Descargas
de manuales¦ Ejemplos
de código ¦ Artículos
mas visitados ¦ Envía
tu articulo ¦ Foros ¦ |
© 2001-Hasta hoy Pedro Rufo Martín contactar |
|