Publicentral.com - alta en buscadores, registro buscadores, promocionaPromocion en buscadores y negocios online
Mostrando Codigo - Asp
Code

Asp - Simple libro de visitas no Db - Archivo texto .txt

Códigos Asp

Con este script podemos ofrecer a nuestros visitantes un libro de visitas bastante basico donde puedan poner sus comentarios o firmas. No necesita base de datos access o Mysql, simplemente basta con un archivo de texto, que en este caso hemos denominado libro_visitas.txt, el cual debe de estar incluido en la misma carpeta donde ejecutemos el script. El codigo debemos de guardarlo con nombre Libro.asp
Visitas: 28,324 - 19/01/2004 1:19:06
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO
Codigo probado en ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1. <%
  2. Const bDeleteEntries = True
  3. Dim bForce
  4. bForce = Request.QueryString("force")
  5. Dim strFile
  6. strFile = Server.MapPath("libro_visitas.txt")
  7. If Request.Form.Count = 0 Then
  8.     %>
  9.     <h3>Firma nuestro libro de visitas:</h3>
  10.     <form action="Libro.asp" method="post">
  11.     <table>
  12.         <tr>
  13.     <th align="right">Nombre:</td>
  14.       <td><input type="text" name="name" size="15"></input></td>
  15.         </tr>
  16.         <tr>
  17.      <th align="right">Comentario:</td>
  18.       <td><input type="text" name="comment" size="35"></input></td>
  19.         </tr>
  20.     </table>
  21.     <input type="submit" value="FIRMAR!!"></input>
  22.     </form>
  23. <br />
  24. <h3>Comentarios:</h3>
  25.     <table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
  26.   <tr>
  27.     <td>
  28.       <!-- #include file="libro_visitas.txt" -->
  29.     </td>
  30.   </tr>
  31. </table>
  32. <%
  33. Else
  34.     Dim objFSO
  35.     Dim objFile
  36.     Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  37.     Set objFile = objFSO.OpenTextFile(strFile, 8, True)
  38.     objFile.Write "<strong>"
  39.     objFile.Write Server.HTMLEncode(Request.Form("name"))
  40.     objFile.Write ":</strong> "
  41.     objFile.Write Server.HTMLEncode(Request.Form("comment"))
  42.     objFile.Write "<br />"
  43.     objFile.WriteLine ""
  44.     objFile.Close
  45.     Set objFile = Nothing
  46.     Set objFSO = Nothing
  47.     %>
  48.     <H3>Tus comentarios se agregaron correctamente!</H3>
  49.     <A HREF="./Libro.asp">Volver</A>
  50. <%
  51. End If
  52. If bDeleteEntries Then
  53.     Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  54.     Set objFile = objFSO.GetFile(strFile)
  55.     If DateDiff("d", objFile.DateLastModified, Date()) <> 0 Or bForce <> "" Then
  56.         Set objFile = Nothing      
  57.         Set objFile = objFSO.CreateTextFile(strFile, True)
  58.         objFile.Write "<strong>Tutores.org:</strong> "
  59.         objFile.WriteLine "Esperamos qur te guste este Libro!<br />"
  60.         objFile.Close
  61.     End If
  62.     Set objFile = Nothing
  63.     Set objFSO = Nothing
  64. End If
  65. %>
  66.  



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Simple libro de visitas no Db - Archivo texto .txt" href="http://www.tutores.org/codigo/969/" target="_blank">Simple libro de visitas no Db - Archivo texto .txt</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
11/07/2006 2.56.02
5 5
vacan ah felicitaciones...
Comentario usuario
tukan
5 5
hola este es mi comentario.
Comentario usuario
jolven
5 5
vamos aver si funciona man
Comentario usuario
11/01/2006 3.56.23
3 5
Esta bueno!!! Lo estoy probando
Comentario usuario
21-08-2008 14:25:26
5 5
Hola no puedo ejecutarlo me sale este error a lo que ingreso un nuevo comentario:
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0046)
Permiso denegado
/prueba/Libro.asp, línea 37
Comentario usuario
iemede
3 5
ya lo probe pero no me sale, si pueden ayudarme paso a paso
Comentario usuario
kld
3 5
gracias por el aporte felicidades
Comentario usuario
sdsa
3 5
algo tan simple en php???? un solo archivo más un .txt
Comentario usuario
sadasd
3 5
jaja ke bueno...no es de esos ke hacen 100000 lineas para algo no mejor ke esto...

gracias
Comentario usuario
BARBA
5 5
ALGUIEN ME AYUDA CON ESTE TEMA ESPECIFIQUEME LO DE LAS CARPESTAS NO ME FUNCIONA COMO LAS ENLAZO
Comentario usuario
20-05-2009 20:37:06
4 5
hice como esta en la pagina pero me sale este error Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0046)
Permiso denegado
/prueba/Libro.asp, línea 37

si pudiera ayudarme
Comentario usuario
juan jose
4 5
Funciona perfecto. el unico defecto es que borra los mensajes al siguiente dia. Por favor indiqueme como modificar el script para que NO borre los registros

Gracias
Comentario usuario
17/12/2005 21.07.30
2 5
Interesante, veremos si funciona para mi caso
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.