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)
Código HTML:
<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.
Código HTML:
<%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%> Como habéis visto son solo cuatro módulos (default.asp, firmar.asp, deletereg.asp y deletereg2.asp) que lo único que hacen es aplicar lo visto en ejemplos anteriores.
------------------------------------------------------------------------
Bueno este es todo el ejemplo a aplicar de esta paguna ASPtutor
Algun experto que me explique como va cada cosa?
Otra cosita, si me pudieran decir como hago la base de datos, como la tengo que guardar, y como la tengo que subir...
Tengo un espacio web de paga, que soporta, php y asp.
Muchas gracias de antemano 