-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathModLibro.asp
109 lines (104 loc) · 4.31 KB
/
ModLibro.asp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<title>Modificar Libro</title>
<link href="biblio.css" rel="stylesheet" type="text/css" media="screen" />
<script type="text/javascript">
function comprobar(){
correcto=true;
Título= document.Reg.Título.value;
Autora= document.Reg.Autora.value;
Editorial= document.Reg.Editorial.value;
AñoPub= document.Reg.AñoPub.value;
IDLibro= document.Reg.IDLibro.value;
//Comprueba que ningún campo esté vacío
if(Título=="" || Autora=="" || Editorial=="" || AñoPub=="" || IDLibro==""){
alert("Debes rellenar todos los campos");
correcto=false;
}
//Si todos los campos están completos, se comprueba que el año de publicación y el identificador son números
else{
if(isNaN(AñoPub)){
alert("El año de publicación debe tener formato numérico");
correcto=false;
}
else if(isNaN(IDLibro)){
alert("El identificador debe tener formato numérico");
correcto=false;
}
}
return correcto;
}
</script>
</head>
<body>
<div id="ola">
<div id="cabecera">
<div id="logo" style="height: 69px">
<h1>biblioteca</h1>
<br />
<br />
<br />
>> Catálogo online
</div>
<div id ="cerrar">
<a href="Cerrar.asp">Cerrar Sesión</a>
</div>
<br/>
<div id="miga" style=" width: 330px">
<a href="default.htm">Área Pública</a>
><a href="Admin.htm">Administradora</a>
><a href="MostrarLibros.asp">Seleccionar Libro</a>
><a href="ModLibro.asp">Modificar Libro</a>
</div>
</div><!-- fin #cabecera -->
<div id="menu">
<ul>
<li><a href="default.htm">ÁREA PÚBLICA</a></li>
<li><a href="Catálogo.asp">CATÁLOGO</a></li>
<li><a href="Mapa.html">MAPA WEB</a></li>
</ul>
</div>
</div><!-- fin #menu -->
<div id="page" style="height: 390px">
<%
'creo conexión
Set oConn = Server.CreateObject ("ADODB.Connection")
'abro conexión con base de datos
oConn.Open "Data Source="& Server.MapPath("biblio.mdb") &";Provider=Microsoft.Jet.OLEDB.4.0"
'obtengo los datos de la base
SQL = "Select * From Libros where IDLibro="&Request.form("IDLibro")&";"
Set oRS = oConn.Execute(SQL)
If Err.Description <> "" then
Response.Write "<b>Error:" & Err.Description & "</b>"%>
<a href="default.htm">Volver</a>
<%Else
If oRS.EOF then
Response.Write("<script type=""text/javascript"">alert('No existe ningún libro con ese identificador');window.location.href='MostrarLibros.asp';</script>")
Else%>
<form method="post" name="Reg" action="ModLibro2.asp" onsubmit="return comprobar(this)">
<h2>Modifica los datos del libro</h2>
Título:
<input type="text" name="Título" value="<% = oRS("Título") %>"/><br />
Autor(a):
<input type="text" name="Autora" value="<% = oRS("Autora") %>"/><br />
Editorial:
<input type="text" name="Editorial" value="<% = oRS("Editorial") %>"/><br />
Año de Publicación: <input type="text" name="AñoPub" value="<% = oRS("AñoPub") %>"/><br /><br/>
<input type="hidden" name="IDLibro" value="<% = oRS("IDLibro") %>"/>
<input type= "submit" value="Enviar"/>
<input class="button" type="reset" value="Borrar"/>
</form>
<%End If
End If
oConn.Close
Set oRS = Nothing
Set oConn = Nothing%>
</div><!-- fin #page -->
<div id="pie">Página realizada por Paula Mesa Macías
<form><input type="button" name="imprimir" value="Imprimir" onclick="window.print();"></form>
</div>
</body>
</html>