Buscar en Asptutor     
Demo Tienda Virtual Tutorcar
 Navegacion->Inicio | Active Server Pages  

La web de los recursos y ejemplos de asp

Versión para imprimir

 

Alojado en:


urbe-networks.com

Recomienda esta pagina a un amigo

Servicios Gratuitos

Articulos relacionados

Utilizar GetRows()

Tienda Virtual - Carrito de compra

Messenger a través de BD en ASP

Miniaplicacion de comercio electronico

Objeto Datagrid de ASP.NET en ASP

Acotación de resultados

Compactar una BD Access

Adaptación de la hora de un servidor extranjero (II)

Sugerencias Microsoft sobre ASP (I)

Utilizar GetRows()

Proyecto ASP.NET Web Matrix

Como Hacer un combobox desde un array

Compactar una BD Access

El Objeto Application

A vueltas con el Response.Redirect

Experiencias de un diseñador web


Enlaces recomendados

   

Tutorial ASP

Codigo de un Libro de visitas(II)
Este articulo ha sido leído 57.064 veces


Un libro de visitas en ASP (II)

Módulos de la aplicación:

default.asp

Situaremos nuestro libro de visitas en un directorio propio, por lo cual nuestra página de inicio se llamara default.asp, a fin de que se abra por defecto cuando alguien entre al directorio.
Esta pagina nos mostrara al abrirse el contenido de todo el libro de visitas, si por volumen de datos, necesitáramos mostrar los datos en varias páginas, aplicaríamos lo aprendido en los ejemplos de paginación simple y paginación profesional de resultados

Esta página nos servirá tanto para visualizar los datos como para introducir un nuevo texto mediante el formulario que situaremos en el pie de página. (los datos recibidos serán procesados por el modulo firmar.asp que veremos en la siguiente página).

También, desde esta página podremos acceder al modulo de borrado de un mensaje. 

<html>
<head>
<title>ASPTutor.com Libro de visitas</title>
</head>
<body>
<br><div align="right">
<table border="1" width="200" bgcolor="#3399FF" bordercolor="#FFFFFF">
<tr>
<td width="100%">
<p align="center"><a href="#firmar">Firmar el Libro</a></td>
</tr>
</table>
</div>
<p align="center">
<%
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

if request.querystring("insertado")<> "" then%>

Tu mensaje ha sido insertado, muchas gracias
<%end if
if request.querystring("borrado")<> "" then%>

El mensaje seleccionado ha sido borrado
<%end if

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 

rs.open "select * from visitas order by id desc",conn
if not rs.EOF then
do while not rs.EOF%>

<p align="center">

<table border="1" width="700" bordercolor="#3399FF">
<tr>
<td width="501" bgcolor="#3399FF"><font color="#FFFFFF"><b><%=rs("nombre")%></b></font>
<%if rs("mail")<>"" then%>
&nbsp;&nbsp;<a href="mailto:<%=rs("mail")%>"><img border="0" src="gb_mail.gif"></a>
<%end if%>
<%if rs("web")<>"" then%>
&nbsp;&nbsp;<a href="http://<%=rs("web")%>"><img border="0" src="gb_www.gif"></a>
<%end if%></td>

<td width="20" bgcolor="#3399FF"><a href="deletereg.asp?id=<%=rs("id")%>"><img border="0" src="gb_delmsg.gif"></a></td>
<td width="233" bgcolor="#3399FF">
<p align="right"><font size="1" color="#FFFFFF"><%=rs("fecha")%>&nbsp;</font></p>
</td>
</tr>

<tr>
<td width="511" bgcolor="#C0C0C0" colspan="2" valign="top"><img border="0" src="gb_msg.gif"><font size="2"><%=rs("comentarios")%></font><br><br>
<font size="1"><b>Host:
<%=rs("ip")%></b></font></td>
<td width="233" bgcolor="#C0C0C0">
<% if rs("Pais")<>"" then%>
<b><font size="1">Pais</b>
<hr>
<%=rs("pais")%></font>


<p>


<%end if%> 

<% if rs("como")<>"" then%>

¿<font size="1"><b>Como nos conociste?</b>

<hr>
<%=rs("como")%></font>


<p>


<%end if%> 
<% if rs("opinion")<>"" then%>


<font size="1"><b>¿Que opinión te merecen estas páginas</b>
<hr>
<%=rs("opinion")%></font>


<%end if%> 


</td>
</tr>
</table>

<%rs.movenext
loop
end if

rs.close
conn.close
set rs=nothing
set conn=nothing%>

<br>
<div align="center">
<center>
<table border="0" width="500" height="454">
<tr>
<td width="100%" bgcolor="#3399FF" height="22"><font color="#FFFFFF"><a name="firmar"></a>Firmar</font></td>
</tr>
<tr>
<td width="100%" height="420">
<form method="POST" action="firmar.asp">
<table border="0" width="100%" bgcolor="#C0C0C0">
<tr>
<td width="30%" align="right">Nombre</td>
<td width="70%"><input type="text" name="nombre" size="20" maxlength ="50"></td>
</tr>
<tr>
<td width="30%" align="right">E-Mail</td>
<td width="70%"><input type="text" name="mail" size="20" maxlength ="50"></td>
</tr>
<tr>
<td width="30%" align="right">Web&nbsp;&nbsp;&nbsp; <font color="#0000FF">http://</font></td>
<td width="70%"><input type="text" name="web" size="32" maxlength ="50"></td>
</tr>
<tr>
<td width="30%" align="right">País</td>
<td width="70%"><input type="text" name="pais" size="20" maxlength ="50"> </td>
</tr>
<tr>
<td width="30%" align="right">¿Como nos conociste?</td>
<td width="70%"><input type="text" name="como" size="37" maxlength ="50"></td>
</tr>
<tr>
<td width="30%" align="right">¿Que opinas de estas páginas?</td>
<td width="70%"><select size="1" name="opinion">
<option>No opino</option>
<option>Muy Buenas</option>
<option>Buenas</option>
<option>Regulares</option>
<option>Malas</option>
<option>Muy Malas</option>
</select></td>
</tr>
<tr>
<td width="100%" colspan="2">
<p align="center">Comentarios/Mensaje <font size="1">(puedes
usar etiquetas html)</font></td>
</tr>
<tr>
<td width="100%" colspan="2">
<p align="center"><textarea rows="7" name="comentarios" cols="44"></textarea></td>
</tr>
<tr>
<td width="100%" align="center" colspan="2"><input type="submit" value="Enviar" name="enviar">
<input type="reset" value="Borrar" name="borrar"></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</center>
</div>


</body>

</html>

 

Siguiente >>     

 


 

¿Estas empezando y este articulo es muy complejo para tí?
Empieza por el principio, visita Ejemplos Básicos

Puedes obtener un listado completo de todos los artículos y ejemplos de ASP en http://www.asptutor.com/asp/todoslosarticulos.asp
 

Valora este articulo   Malo Excelente  
21 usuarios han valorado este articulo. Valoracion media:

Nota: Para cualquier consulta u opinión sobre este articulo puedes usar los foros

 

 

AspTutor lo hacemos entre todos ¿Como vas a colaborar hoy?


Google

 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar