Codigo de un Libro de visitas(IV)


http://www.asptutor.com


Un libro de visitas en ASP (IV)

Módulos de la aplicación:

deletereg.asp

Este modulo es un formulario simple que nos permite introducir la clave de administración para borrado de registros (esta palabra clave la tendremos almacena en la tabla "CLAVE" de nuestra base de datos) 

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

<head>
<title>Borrado de registro(II)</title>
</head>

<body>

<div align="center">
<center>
<table border="0" width="50%">
<tr>
<td width="100%">
<table border="10" width="100%" bgcolor="#FF0000" bordercolor="#000000">
<tr>
<td width="100%">
<p align="center"><font color="#FFFFFF">Clave ERRONEA</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<p align="center"><a href="javascript:window.history.back()">Intentalo de nuevo</a>
</td>
</tr>
</table>
</center>
</div>
</body>

</html>

<%else
rs.close
sqltxt="delete from visitas where id="&request.form("id")
conn.execute sqltxt
conn.close
response.redirect "default.asp?borrado=si"

end if%>

 

Siguiente >>