Proyecto: Foro en ASP

HPNeo · #1 (**permalink**) 23/04/2005, 18:17

Comenzamos el Proyecto: Foro en ASP, comenzaremos tratando de ponerle un nombre, a menos que quieran que se quede asi

Nos vemos

dobled · #2 (**permalink**) 23/04/2005, 19:53

yo propongo Foros-x ya que somos varios.

El_Metallick · #3 (**permalink**) 23/04/2005, 20:26

jajajajaj... no es mala idea.... un poco digamos "tipico"... jajajja pero bueno... no se en realidad no me importa mucho el nombre... aunque tenga que tener uno... digamos que es lo menos importante

trasgukabi · #4 (**permalink**) 23/04/2005, 22:22

Cual va a ser la platea en la que se va a discutir todo sobre el foro y la que ha hecho posible que unos cuantos se junten para desarrollarlo? forosdelweb, no? pues FDWForum me suena de maravilla (con el permiso de los administradores, claro está. Es sólo una especie de homenaje, no una manera de aprovecharnos del buen nombre de esta comunidad)

dobled · #5 (**permalink**) 23/04/2005, 22:37

mira yo el nombre lo veria al ultimo. No es tan importante

trasgukabi · #6 (**permalink**) 23/04/2005, 23:17

ahí llevas la razón, dobled. es más, yo haría como microsoft: ponerle en nombre en tiempo de diseño y al sacarlo a la luz, cambiárselo por otro que no tenga absolutamente nada que ver, jejejeje.

HPNeo · #7 (**permalink**) 24/04/2005, 10:01

Ok, el nombre al ultimo, ahora es tiempo de poner las ideas, funciones y a debatir en ellas

HPNeo · #8 (**permalink**) 24/04/2005, 10:02

Tabla Categorias:
cat_id (id de la categoria): autonumerico
cat_titulo (titulo de la categoria): texto
nforos (numero de foros dentro de esta categoria): numerico

Tabla Foros:
cat_id(id de la categoria correspondiente del foro): numerico
foro_id(id de cada foro): autonumerico
foro_titulo (titulo del foro): texto
foro_desc (descripcion del foro): texto

Tabla Mensajes:
foro_id (id del foro correspondiente de cada mensaje): numerico
tema_id (id del tema del mensaje): numerico
msj_id (id de cada mensaje): autonumerico
msj_titulo (titulo de cada mensaje): texto
msj_texto (cuerpo del mensaje): texto

Tabla Usuarios:
usuario_id (id de cada usuario): autonumerico
usuario (nick de cada usuario): texto
usuario_password (clave de usuario): texto
usuario_email (email de usuario): texto
usuario_firma (firma al final de cada mensaje): texto
usuario_avatar (avatar del usuario, gracias a Metallick): texto
usuario_nmensajes (numero de mensajes, gracias a Metallick): texto
usuario_grupo (nombre del grupo al que pertenece, gracias a Metallick): texto

Tabla Grupos: (Gracias a Metallick)
grupo_id (id del grupo): autonumerico
grupo_nombre (nombre de grupo): texto
grupo_desc (descripcion de grupo): texto
grupo_moderador (moderador de grupo): texto
grupo_nusuarios (numero de usuarios): numerico

*Tabla Temas:
foro_id (id del foro al que pertenece el tema): numerico
tema_id (id del tema): autonumerico
tema_titulo (titulo del tema): texto

Tabla Msjpriv: (Gracias a Trasgukabi)
id_destinatario (int)
id_remitente (int)
id_carpeta
msjpriv_asunto(varchar)
msjpriv_cuerpo(varchar)
msjpriv_confirma(bit)

Tabla Carpetas: (Gracias a Trasgukabi)
id_carpeta
nombre_carpeta
id_padre(valor 0 para raiz, id_carpeta para padre)
id_usuario

*Los temas son los que aparecen al abrir un foro, por ejemplo este es un tema, y los mensajes que pertenecen a un mismo tema tienen el mismo valor en el campo id_tema
Un ejemplo más: Al abrir un tema, la sentencia sql debe parecerse a esto:

select * from Mensajes where tema_id="3"

Suponiendo que "3" sea el numero autonumerico designado para ese tema

HPNeo · #9 (**permalink**) 24/04/2005, 15:45

<% @ Language="VBScript" %>
<% Option Explicit %>
<%
Dim ObjInstalados(13)

ObjInstalados(1) = "JMail.SMTPMail"
ObjInstalados(2) = "CDONTS.NewMail"
ObjInstalados(3) = "aspSmartMail.SmartMail"
ObjInstalados(4) = "Persits.MailSender"
ObjInstalados(5) = "CDO.Message"
'Luego podemos ir agregando mas objetos, segun los que necesitemos

Function IsObjInstalled(strClassString)
On Error Resume Next
' initialize default values
IsObjInstalled = False
Err = 0
' testing code
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
' cleanup
Set xTestObj = Nothing
Err = 0
End Function
%>

<HTML>
<HEAD>
<TITLE>Test de objetos instalados</TITLE>
</HEAD>
<BODY>
<TABLE BORDER=0>
<%
Dim i
For i=0 to UBound(ObjInstalados)
Response.Write "<TR><TD>" & ObjInstalados(i) & "</TD><TD>"
If Not IsObjInstalled(ObjInstalados(i)) Then
Response.Write "<strong>no instalado</strong>"
Else
Response.Write "instalado"
End If
Response.Write "</TD></TR>" & vbCrLf
Next
%>
</TABLE>

terraqueotenaz · #10 (**permalink**) 24/04/2005, 22:31

Hola,

Tengo unas preguntillas:

¿Porqué no usan alguna otra aplicación prefabricada? Hay muchas buenas como el foro de webwiz, el cual se asemeja mucho al phpbb. ¿Porqué no usan el phpbb? Se van a tardar un uen tiempo en hacerlo y ya hay foros que nos hacen el favor de ahorrarnos tiempo. Si es por puro aprendizaje, pues entonces adelante.

Saludos.

dobled · #11 (**permalink**) 25/04/2005, 07:16

Cita:

Iniciado por terraqueotenaz

Hola,

Tengo unas preguntillas:

¿Porqué no usan el phpbb?

salio para ASP?

El_Metallick · #12 (**permalink**) 25/04/2005, 09:44

Despues de todo no encuentro tan descabellada la idea... pero igual como que la gracia es hacerlo desde cero no les parece???

HPNeo · #13 (**permalink**) 25/04/2005, 10:04

Aja, por eso hemos creado este proyecto

AlZuwaga · #14 (**permalink**) 25/04/2005, 10:31

Bueno... si me permiten, ya que el proyecto está naciendo desde un foro en español, estaría bueno que los nombre de variables, las constantes, las funciones, los comentarios, etc; estén en espanish... (no digo que no se usen scripts tomados de otros lugares porque no es cuestión de reinventar la rueda, pero no estaría de más una traducción). Y de paso, unifican criterios para la nomenclatura de éstas

Como siempre: bahh.. qué se sho.

dobled · #15 (**permalink**) 25/04/2005, 10:37

Cita:

Iniciado por Al Zuwaga

Bueno... si me permiten, ya que el proyecto está naciendo desde un foro en español, estaría bueno que los nombre de variables, las constantes, las funciones, los comentarios, etc; estén en espanish... (no digo que no se usen scripts tomados de otros lugares porque no es cuestión de reinventar la rueda, pero no estaría de más una traducción). Y de paso, unifican criterios para la nomenclatura de éstas

Como siempre: bahh.. qué se sho.

esa es la idea desde el principio por lo menos de mi parte, por algo es en español, ocupemos nuestra lengua para todo, me parece excelente acotación

pd:(alzu)7 mil y algo de post uffff

HPNeo · #16 (**permalink**) 25/04/2005, 10:40

Ok, entonces sera asi:

Las variables y funciones seran en español
Los campos de la base de datos sera: tabla_caracteristica
Los nombres de lás páginas del foro serán es español, excepto el index, claro esta

trasgukabi · #17 (**permalink**) 25/04/2005, 19:03

Cita:

Iniciado por trasgukabi

otro apunte (éste general). Creo que deberíamos usar las funciones de la biblioteca de funciones para construir este foro. y también estaría bien seguir con la forma en la que se está haciendo esta biblioteca: los nombres de funciones, en castellano.

mensaje del 20 de abril. al parecer, hay que ser moderador para que te hagan caso

El_Metallick · #18 (**permalink**) 25/04/2005, 19:11

jajajaja quisas... no se, a mi en particular me gusta ponerles comentarios a cada linea de código por una cosa de que me es mas facil leer y entender el script despues y ademas que ayuda muchisimo a la hora de solucionar problemas... bueno ese es por ahora mi aporte... jajaj no esmucho pero algo es algo... saludos

dobled · #19 (**permalink**) 25/04/2005, 19:17

Cita:

Iniciado por trasgukabi

mensaje del 20 de abril. al parecer, hay que ser moderador para que te hagan caso

tienes razon trasgu no me habia percatado que tu lo habias planteado

AlZuwaga · #20 (**permalink**) 25/04/2005, 20:03

Cita:

Iniciado por dobled

tienes razon trasgu no me habia percatado que tu lo habias planteado

Yo tampoco, pero me refería exactamente a éste mensaje:

Código:

<% @ Language="VBScript" %>
<% Option Explicit %>
<%
Dim ObjInstalados(13)
 
ObjInstalados(1) = "JMail.SMTPMail"
ObjInstalados(2) = "CDONTS.NewMail"
ObjInstalados(3) = "aspSmartMail.SmartMail"
ObjInstalados(4) = "Persits.MailSender"
ObjInstalados(5) = "CDO.Message"
'Luego podemos ir agregando mas objetos, segun los que necesitemos
 
Function IsObjInstalled(strClassString)
On Error Resume Next
' initialize default values
IsObjInstalled = False
Err = 0
' testing code
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
' cleanup
Set xTestObj = Nothing
Err = 0
End Function
%>
 
<HTML>
<HEAD>
<TITLE>Test de objetos instalados</TITLE>
</HEAD>
<BODY>
<TABLE BORDER=0>
<%
Dim i
For i=0 to UBound(ObjInstalados)
Response.Write "<TR><TD>" & ObjInstalados(i) & "</TD><TD>"
If Not IsObjInstalled(ObjInstalados(i)) Then 
Response.Write "<strong>no instalado</strong>"
Else
Response.Write "instalado"
End If
Response.Write "</TD></TR>" & vbCrLf
Next
%>
</TABLE>

AlZuwaga · #21 (**permalink**) 25/04/2005, 20:12

Ahhh... bueno.... me disculparán, pero ese código que cité en mi anterior mensaje estaba integramente en inglés cuando escribí el post en donde opinaba que debería estar todo escrito en castellano (en corcondancia con trasgus).

Ahora resulta que HPNeo lo ha modificado un poco. Mensaje original enviado "Ayer, 06:45 PM", mensaje editado "Hoy a las 06:05 PM" (12 horas de diferencia según mi GMT -3

)

Nada, eso, que no hace falta ser moderador para estas cosas.

Por cierto, aún falta traducir algunas cosas (esto no lo digo por nada más que para atajarme algunos golpes!!!

)

Saludos

sander · #22 (**permalink**) 25/04/2005, 20:47

Antes de realizar este foro en asp supongo que hubo una previa charla para saber quienes lo haran como lo haran etc. podrian darme el link para leerlo ya que me interesa mucho el proyecto y ya luego pueden borrar este mensaje para que no de lata.

dobled · #23 (**permalink**) 25/04/2005, 21:23

Si se quedo algo en el tintero me avisan pero ya es media noche y tengo mucho sueño

Código:

<% @ Language="VBScript" %>
<% Option Explicit %>
<%
'Empezamos el Arreglo
Dim ObjInstalados(4)

ObjInstalados(0) = "JMail.SMTPMail"
ObjInstalados(1) = "CDONTS.NewMail"
ObjInstalados(2) = "aspSmartMail.SmartMail"
ObjInstalados(3) = "Persits.MailSender"
ObjInstalados(4) = "CDO.Message"
'Luego podemos ir agregando mas objetos, segun los que necesitemos

Function cmpObjInstalados(strClassString)
On Error Resume Next
' Inicia Valores por Defecto
cmpObjInstalados = False
Err = 0
' Probamos
Dim PruebaObj
Set PruebaObj = Server.CreateObject(strClassString)
If 0 = Err Then cmpObjInstalados = True
' Limpiamos
Set PruebaObj = Nothing
Err = 0
End Function
%>

<HTML>
<HEAD>
<TITLE>Comprobando Objetos Necesarios</TITLE>
</HEAD>
<BODY>
<TABLE BORDER=0>
<%
Dim i
For i=0 to UBound(ObjInstalados)
Response.Write "<TR><TD>" & ObjInstalados(i) & "</TD><TD>"
If Not cmpObjInstalados(ObjInstalados(i)) Then 
Response.Write "<strong>No instalado</strong>"
Else
Response.Write "Instalado"
End If
Response.Write "</TD></TR>" & vbCrLf
Next
%>
</TABLE>

No me regañen

al niño por favor

terraqueotenaz · #24 (**permalink**) 25/04/2005, 23:06

Hola,

Pues ya veo que queiren hacer uno totalmente desde 0. Adelante.

Me refería a que usaran la bd del foro phpbb. Yo la uso para todo mi sitio hecho en asp.

Saludos.

El_Metallick · #25 (**permalink**) 26/04/2005, 11:52

bueno como sea... no se si les parecera mi idea pero en fin aqui va: mi principal preocupacion es poder hacer del foro parte de un sitio... me explico... quisiera que los usuarios se puedan registrar o loguearce desde cualquier parte de mi web (hay quienes le llaman a esto integracion de un foro a un sitio web) y una vez logueado aparezca un mini perfil del usuario... algo asi como:

Usuario:
Nº de Mensajes:
Grupo

Ademas no se si a alguien mas le interece algo como un sistema de "tikets", de tal manera que segun la participacion del usuario en los foros, haya un campo en la tabla de autor, de tal manera que en este se guarde la cantidad de tikets que tiene el usuario, y segun estos el usuario puede tener acceso a ciertos veneficios...(todo esto configurable desde la sección de administración del foro y opcional)

Bueno algo asi propuce en este tema http://www.forosdelweb.com/f15/sistema-puntuacion-usuarios-segun-participacion-287518/ por si quieren saber algo mas detallado

No se si a alguien le interece esto... pero no se son las cosas que se ne han olcurrido

HPNeo · #26 (**permalink**) 26/04/2005, 16:56

Gracias por su "apoyo", para ver los inicios del proyecto puedes entrar a:
http://www.forosdelweb.com/f15/foro-asp-287846/

trasgukabi · #27 (**permalink**) 27/04/2005, 00:25

parece que os habeis tomado mi último mensaje en serio. era una broma....no estaba criticando a nadie, en absoluto.

Estoy preparando un par de funciones que ya verá mr. HPNeo cómo las implementa. la primera versa sobre la capacidad del foro de avisar a alguien a su teléfono móvil de una respuesta a su mensaje, y la segunda.....ya veremos, sorpresa!!!!.

un saludo a todos, monstruos!!!!!

terraqueotenaz · #28 (**permalink**) 27/04/2005, 00:46

Hola,

Me interesó eso de los tickets. Voy a trabajar en una idea de cómo hacerlo. Les aviso de los avances.

Saludos.

HPNeo · #29 (**permalink**) 27/04/2005, 16:46

Muy bn, pronto empezaremos con la instalacion del foro

HPNeo · #30 (**permalink**) 08/05/2005, 18:25

No, no se ha parado el proyecto, seguimos a paso lentisimo, pero seguro.

Quisiera hacer un llamado al moderador de este foro para que este tema sea puesto como Importante para que este fijo en la parte superior y no tener que postear mensajes para que aparezca, ya que muchas personas que participan en Foros del Web no saben aun de este proyecto

Gracias