Generar Glosario en ASP

blogger · #1 (**permalink**) 07/01/2006, 04:58

He visto que entre varios de ustedes iniciaron un proyecto para crear un foro asp.

Yo quisiera iniciar un proyecto para la creación de un glosario, entre todos podemos contribuir y en realidad no tiene mucha ciencia.Basicamente de lo que se trata es de crear un codigo para implementar un glosario hecho en asp.

El usuario podra ingresar en su base de datos, desde la seccion administrativa, las palabras que el considere deben incluirse en el glosario. Por otro lado, supongamos que los usuarios del sitio leen un escrito y encuentran una palabra que no conocen, podran consultarlo por medio un buscador de palabras, o desde la misma pagina donde se encuentra el texto que estan leyendo; aunque esto ultimo esta demasiado rebuscado.

HPNeo · #2 (**permalink**) 07/01/2006, 11:11

como Wikipedia?

blogger · #3 (**permalink**) 07/01/2006, 20:12

Algo así mas o menos, se podría decir que como los diccionarios online.

HPNeo · #4 (**permalink**) 07/01/2006, 22:55

Entonces como el de RAE...

Aun no terminamos el proyecto del foro de ASP, pero yo estoy dispuesto a ayudar... aunque sea en la organización

blogger · #5 (**permalink**) 08/01/2006, 02:18

He desarollado un codigo sencillo para el foro. Conciste en seis archivos:

Login.asp --- Login para ingresar a la administración del glosario
Cargar.asp --- Pagina donde se ingresaran los datos (la palabra y su definición)
Ingresar.asp --- Pagina que guarda los datos
buscar.html --- Pagina donde el usuario hara la busqueda
buscar.asp --- Pagina que despliega los datos
base.mdb --- Base de datos del glosario

Los tengo todos en un archivo zip, que me gustaría compartir con ustedes, pero no se como subirlo.

En base a estos archivos podriamos trabajar con el glosario.

Saludos

HPNeo · #6 (**permalink**) 08/01/2006, 12:40

Seria una web o una aplicación?

Puedes probar en www.1asphost.com, ya que lo tienes en un zip, simplemente súbelo y se descomprime automáticamente.

Ahora, sería bueno que expliques más detalladamente:
Es un diccionario de qué tipos de términos.
Solamente significados?
Libre o sólo el admin puede agregar los datos?

Toda esa información.

Quién se anima a ayudar en esta propuesta?

lexus · #7 (**permalink**) 08/01/2006, 18:13

antes de qeu avancen mas, les recomiendo que cambien su base de datos a mysql porque access es muy casero. no soporta gran cantidad de datos ni de usuarios. si pretenden hacer algo grande les recomiendo usar ASP+mysql

HPNeo · #8 (**permalink**) 08/01/2006, 18:34

Eso lexus... te apuntas?

blogger · #9 (**permalink**) 08/01/2006, 20:04

HPNeo

Sería una pequeña aplicación que las personas podrían integrar en su web. De esa manera su web sería mas completa, digo si es que tienen alguna pagina donde presenten articulos, reportajes o cosas por el estilo.

Y si estamos hablando de un diccionario, mas bien glosario, de terminos utilizados dentro de los escritos que se presenten en el sitio. Por ejemplo supongamos que buscas informacio sobre el teorama de pitagoras y no entiendes bien lo que significa la palabra cateto o hipotenusa; por medio de ese glosario podrías buscar el significado, sin tener que salir corriendo a sacar el diccionario de tu mochila. ¿Me explico?

Lexus

En realidad estamos buscando algo sencillo, solo habra un administrador, no habra otras cuentas.

A todos:

La idea de implentar un glosario me vino a la mente por que busco informacion muy seguido, y es muy engorroso tener que estar corriendo a buscar un diccionario o abrir otra ventana del navegador para hacer una consulta online.

Ademas tengo un sito web que en donde presento varios articulos y reportajes, y me imagino que mis visitantes tienen el mismo problema.

blogger · #10 (**permalink**) 08/01/2006, 20:11

Si quieren ver el glosario en acción, presionen el siguiente enlace:

http://web.1asphost.com/lases/buscar.html

Como ejemplo ingresen la palabra: Nihilismo

Primero que nada hay que crear una base de datos, con una tabla llamada tabla1 (le pueden poner el nombre que quieran, pero para este ejemplo se me hace mas sencillo este nombre). En esta tabla creamos los siguientes campos:

Nombre --- La palabra que buscara la persona
Des --- La definición de la palabra
Pal --- Las palabras clave

Como nombre del archivo le ponen base.mdb

blogger · #11 (**permalink**) 08/01/2006, 20:23

<%
Response.Expires = -1000
Response.Buffer = True
%>

<html>
<head><title>Login</title>
</head>
<body>

<%
If Request.Form("submit") ="Login" Then
CheckLoginForm
Else
ShowLoginForm
End If
%>

<%
Sub CheckLoginForm

'revisa si el valor de los campos username y password estan correctos

If Request.Form("username") = "Admin" AND Request.Form("password") = "Letmein" Then
Session("BlnLoggedIn") = True
Response.Redirect "cargar.asp"
Else

'si estan equivocados se despliega el siguiente mensaje

Response.Write "<div align='center'>No puedes entrar.</div><br>"
ShowLoginForm
End If
End Sub
%>

<% Sub ShowLoginForm %>
<div align='center'>

'Creamos el formulario

<form name="form" action="login.asp" method="post">
<table>
<tr><td>Nombre :</td><td><input type="text" name="username"></td></tr>
<tr><td>Contraseña : </td><td><input type="password" name="password"></td></tr>
<tr><td colspan="2"><input type="submit" name="submit" value="Login"></td></tr>
</table>
</form>

</div>
<% End Sub %>

</body>
</html>

Y listo

Noten que donde dice Response.Redirect "cargar.asp" es la pagina a donde vamos a accesar para crear la informacion. La contraseña para accesar es Letmein y el nombre del usuario es Admin. Esto se puede cambiar por el usuario y la contraseña que ustedes elijan.

blogger · #12 (**permalink**) 08/01/2006, 20:32

'Verificamos si ya iniciamos sesion, en caso contrario nos manda a la pagina login.asp

<%
If Session("BlnLoggedIn") <> True Then
Response.Redirect("login.asp")
End If
%>

<html>
<head>
<title>Glosario</title>
</head>

'Creamos el formulario

<form method="Post" action="ingreso.asp">
<body bgcolor="#FFCC00">

<p align="left"><font face="Tahoma" size="2"><b><i>Palabra <input type="text" name="Dato1" size="20"></i></b></font></p>

<p align="left"><font face="Tahoma" size="2"><b><i>Definición <textarea rows="2" name="Dato2" cols="20"></textarea></i></b></font></p>

<p align="left"><font face="Tahoma" size="2"><b><i>Palabras Clave <textarea rows="2" name="Dato3" cols="20"></textarea></i></b></font></p>

<p align="left">
</p>
<p align="center">

<input type="submit" value="Ingresar" name="B1">
<input type="reset" value="Restablecer" name="B2">

</form>
</p>
</body>
</html>

Noten que una vez ingresado los datos el formulario nos manda a la pagina "ingreso.asp", en esta pagina se guardan todos los datos del formulario.

blogger · #13 (**permalink**) 08/01/2006, 20:51

<%@ Language="VBScript" %>
<html>
<head>
<title>Ingreso de Datos</title>
</head>

'Iniciamos la conexion a la base de datos

<%
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")

Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")

Dim Temp

Temp="Select * From Tabla1 Where UCase(Nombre)='" & UCase(Request("Dato1")) & "' And UCase(Des)='" & UCase(Request("Dato2")) & "' And UCase(Pal)='" & UCase(Request("Dato3")) &"'"
Tabla.Open Temp,Conexion,2,3,1

If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("Nombre") = Request("Dato1")
Tabla("des") = Request("Dato2")
Tabla("Pal") = Request("Dato3")
Tabla.Update

%>

'Si no existe el registro presentamos el siguiente mensaje

<font face="Tahoma" size="2"><b><i>Ingreso de datos completado</i></b></font></p>

<%

'Pero si ya es un registro repetido presentamos este mensaje

Else
Response.Write "El registro ya existe"
End If

Tabla.Close
Conexion.Close
%>

<p align="center"><font face="Tahoma" size="2"><b><i><a href="cargar.asp" target="_top">Ingresar
Nuevo</a></i></b></font></p>
</body>
</html>

blogger · #14 (**permalink**) 08/01/2006, 20:53

html>

<head>
<title>Busqueda</title>
</head>
<form method="Post" action="buscar.asp">
<body bgcolor="#FFFFCC">
<p align="center"><font face="Tahoma" size="2"><b><i>Ingrese Palabra a buscar</i></b></font>

</p>
<p align="center"><input type="text" name="palabra" size="20">

</p>

<p align="center">
<input type="submit" value="Buscar" name="boton1">
<input type="reset" value="Restablecer" name="boton"></form>
<p> </p>
</body>

</html>

Este archivo es solo para crear el formulario de busqueda. Noten que el formulario nos manda a la pagina "buscar.asp"

blogger · #15 (**permalink**) 08/01/2006, 21:00

<html>

<head>
<title>Buscar datos</title>
</head>

<body bgcolor="#FFFFCC">

<p><font face="Tahoma" size="2">Resultados obtenidos con <strong><%=Request("Palabra") %></strong></font></p>

'Iniciamos la conexión a la tabla

<%

Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")

Dim Temp

Temp="Select * From Tabla1 Where UCase(pal) like '%" & UCase(Request("palabra")) & "%'"

Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>

'Si la palabra no esta en el glosario enviamos el siguiente mensaje

<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong>
<%=Request("palabra")%></strong> en la Base de Datos</font></p>

'Si se encuentra la palabra desplegamos los resultados en una tabla

<%
Else
%>

<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="74" bordercolor="#C0C0C0">
<tr>
<td width="28%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Palabra</font></strong></p>
</td>
<td width="52%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Definición</font></strong>
</td>
</tr>
<% While Not Tabla.EOF%>
<tr>
<td width="28%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Nombre")%></font></td>
<td width="28%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Des")%></font></td>
</tr>

</table>
</center></div>
</body>
</html>

blogger · #16 (**permalink**) 08/01/2006, 21:32

Estaría muy bien que implementaramos lo siguiente:

Un editor de texto

Como el que aparece en este foro cuando estas escribiendo el mensaje. Con este editor eliminariamos la columna nombre en la base datos, y guardariamos toda la informacion (palabra y definicion) en una sola columna; con todo y el formato que le quisieramos dar (negritas, tipo de fuente, etc.)

Busqueda por enlace

Ya sea por medio de una rutina en un archivo aparte o dentro del mismo documento que se este leyendo. Con esto el lector podra accesar a la definicion de la palabra directamente, sin necesidad de entrar a la pagina buscar.html e iniciar la busqueda en el glosario.

Opción Editar

La cual nos permitiria editar los terminos que ya estan dentro del glosario, sin necesidad de escribirlos de nuevo.

Darle una mejor presentación

Podemos crear skins o cosas por el estilo, para que sea mucho mas facil integrarlo en un sitio web.

blogger · #17 (**permalink**) 08/01/2006, 22:10

Se me olvido mencionar que lo del editor de texto ya lo implemente en el glosario que tengo 1asphosting. Me baje un editor de texto de internet y se lo añadí. Pero como sería piratería poner los codigos del editor, además de que son demasiados archivos, lo mejor es que creemos uno nostros, ¿No creen?

blogger · #18 (**permalink**) 09/01/2006, 04:40

La busqueda por enlace se puede hacer insertando el siguiente codigo en la pagina donde se tiene el informacion (articulo, reportaje, etc):

<A HREF="javascript:void(0)"
onclick="window.open('buscar.asp?palabra=nihilismo')">
nihilismo</A>

Este codigo lo que hace es abrir buscar.asp en una pagina nueva. Donde palabra=nihilismo es el nombre de la variable y la palabra a buscar.

blogger · #19 (**permalink**) 25/02/2007, 15:19

Esto quedo inconcluso, quien se anima a retomarlo???

blogger · #20 (**permalink**) 03/03/2007, 16:53

¿No les agrada la idea o les gusta el glosario como esta?