Foro ASP

Bueno.... aqui voy a postear mi foro en asp por si a alguien le interesa, y q todo el mundo pueda ver como se hace ( o como no se hace ):D un foro en ASP.

Consideraciones previas:
El foro trabaj con una base de datos Acces uo.mdb, con las siguientes tablas:

Preguntas:

NumPregunta
Titulo
Autor
Fecha
Texto

Respuestas:

NumRespuesta
Titulo
NumPregunta
Autor
Texto
Fecha

Bien... El foro está compuesto por 6 páginas.


anadir y anadir2: añade una respuesta
AnadirPregunta y AnadirPregunta2: añade una Pregunta
ForoUO y ForoUO2

PD: Por Favor, no añadan respuestas a este post hasta q haya añadido todas las páginas (ya q voy a postear las páginas del foro 1 a 1)

AnadirPregunta.asp

[%@ Language=VBScript %]
[HTML]
[HEAD]
[META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"]
[Script language="VBScript"]
sub validarForm()
if trim(window.document.forms(0).txtAutor.value)="" then
msgbox "Por favor introduce un nombre"
response.redirect ("anadir.asp")
elseif trim(window.document.forms(0).txtTitulo.value)="" then
msgbox "Por favor introduce un nombre"
elseif trim(window.document.forms(0).TEXTAREA.value)="" then
msgbox "Por favor introduce un nombre"
else
document.forms(0).submit
end if
end sub
[/Script]

[/HEAD]
[BODY]



[form method="post" action="AnadirPregunta2.asp"]

[P] [/P]
[P]Autor       &nb sp;       &nbsp ;     
[INPUT id=text1 name=txtAutor][/P]
[P]Titulo Pregunta          [INPUT
id=text2 name=txtTitulo][/P]
[P]Pregunta :     &nbsp ;        & nbsp; [/P]
[P] [TEXTAREA id=TEXTAREA1 name=TEXTAREA style="HEIGHT: 106px; WIDTH: 279px"][/TEXTAREA]        &n bsp;       &nbs p;               [/P]
[P][INPUT id=submit1 name=submit1 type=submit value="Preguntar" onclick="validarForm"][/P]
[P] [/P]

[/form]



[/BODY]
[/HTML]

AnadirPregunta2.asp

[%@ Language=VBScript %]
[HTML]
[HEAD]
[META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"]
[/HEAD]
[BODY]

[%
'set conexion=server.CreateObject("adodb.connection")
'conexion.Open "DSNuo"
Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\xxxxxxx\db\uo.mdb")
set rst = server.CreateObject("adodb.recordset")
rst.Open "Preguntas",conexion,3,3
'set rst2 = server.CreateObject("adodb.recordset")
'rst2.Open "Respuestas",conexion,3,3
if rst.recordcount [] 0 then
x=rst.recordcount
rst.MoveLast
if rst.fields("Titulo")=request.form ("txtTitulo") then
response.write ("Ya existe mensaje Con ese titulo)")
response.redirect ("ForoUO.asp")
else
rst.AddNew
rst.Fields("Titulo")=Request.Form ("txtTitulo")
rst.Fields("Autor")=Request.Form ("txtAutor")
rst.Fields("Texto")=Request.Form ("TEXTAREA")
rst.fields("NumPregunta")=x
rst.fields("Fecha")=date
rst.update
rst.close
conexion.close
Response.Redirect ("ForoUO.asp")
end if

else
rst.AddNew

rst.Fields("Titulo")=Request.Form ("txtTitulo")
rst.Fields("Autor")=Request.Form ("txtAutor")
rst.Fields("Texto")=Request.Form ("TEXTAREA")
rst.fields("NumPregunta")=0
rst.fields("Fecha")=date
rst.update
rst.close
conexion.close
Response.Redirect ("ForoUO.asp")
end if

%]


[/BODY]
[/HTML]

anadir.asp

[%@ Language=VBScript %]
[HTML]
[HEAD]
[META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"]
[Script language="VBScript"]
sub validarForm()
if trim(window.document.forms(0).txtAutor.value)="" then
msgbox "Por favor introduce un nombre"
elseif trim(window.document.forms(0).txtTitulo.value)="" then
msgbox "Por favor introduce un nombre"
elseif trim(window.document.forms(0).TEXTAREA.value)="" then
msgbox "Por favor introduce un nombre"
else
document.forms(0).submit
end if
end sub
[/Script]

[/HEAD]
[BODY]





[form method="post" action="anadir2.asp" id=form1 name=form1]

[P] [/P]
[P]Autor       &nb sp;       &nbsp ;     
[INPUT id=txtAutor maxLength=35 name=txtAutor][/P]
[P]Titulo Pregunta          [INPUT
id=txtTitulo maxLength=35 name=txtTitulo][/P]
[P]Respuesta :     &nbs p;           [/P]
[P] [TEXTAREA id=TEXTAREA name=TEXTAREA style="HEIGHT: 106px; WIDTH: 279px"][/TEXTAREA]        &n bsp;       &nbs p;               [/P]
[P][INPUT id=submit1 name=submit1 type=submit value="Responder" onclick="validarForm"][/P]
[P] [/P]

[/form]


[/BODY]
[/HTML]

k kieres decir con todo esto, a k foro t refieres????

anadir2.asp
[%@ Language=VBScript %]
[HTML]
[HEAD]
[META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"]
[/HEAD]
[BODY]


[%

Tit=Request.Form ("txtTitulo")
Aut=Request.Form ("txtAutor")
TEX=Request.Form ("TEXTAREA")
Sess=session("NP")
response.write (Tit)
response.write (Aut)
response.write (TEX)
response.write (Sess)
Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\xxxxxxxxx\db\uo.mdb")
set rst2 = server.CreateObject("adodb.recordset")
rst2.Open "Respuestas",conexion,3,3
if rst2.recordcount []0 then
rst2.MoveLast
if rst2.fields("Titulo")=Tit then
response.write ("Ya existe mensaje Con ese titulo)")
response.redirect ("ForoUO.asp")
conexion.close
else
rst2.AddNew
rst2.Fields("Titulo")=Tit
rst2.Fields("Autor")=Aut
rst2.Fields("Texto")=TEX
rst2.Fields("NumPregunta")=session("NP")
rst2.fields("Fecha")=date
'No creo q hacer esto con una variable de sesión sea lo más seguro, pero a ver q tal va.

rst2.update
rst2.close
conexion.close
end if
else


rst2.AddNew

rst2.Fields("Titulo")=Tit
rst2.Fields("Autor")=Aut
rst2.Fields("Texto")=TEX
rst2.Fields("NumPregunta")=session("NP")
rst2.fields("Fecha")=date
rst2.update
rst2.close
conexion.close
end if


Response.Redirect ("ForoUO.asp")
%]


[/BODY]
[/HTML]

ForoUO.asp
[%@ Language=VBScript %]
[HTML]
[HEAD]
[META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"]
[/HEAD]
[BODY]


[%
'set conexion=server.CreateObject("adodb.connection")
'conexion.Open "DSNuo"
Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\xxxxxxx\db\uo.mdb")
set rst = server.CreateObject("adodb.recordset")
rst.Open "Preguntas",conexion,3,3
set rst2 = server.CreateObject("adodb.recordset")
'rst2.Open "Respuestas",conexion,3,3
%]

[P] [/P]
[form method="post" action="ForoUO2.asp"]
[p align="center"]
[table width="75%" border="1"]
[tr]
[td bgcolor="#cccccc"][div align="center"][strong]Titulo[/strong][/div][/td]
[td bgcolor="#cccccc"][div align="center"][strong]Autor[/strong][/div][/td]
[td bgcolor="#cccccc"][div align="center"][strong]Respuestas[/strong][/div][/td]
[td bgcolor="#cccccc"][div align="center"][strong]Fecha[/strong][/div][/td]
[td bgcolor="#cccccc"][div align="center"][strong]Seleccionar[/strong][/div][/td]
[/tr]
[% if rst.RecordCount=0 then

response.write("[tr][td background=fondo1.gif]N0 hay preguntas[/td][td background=fondo1.gif][/td][td background=fondo1.gif]0[/td][/tr]")
rst.close
else
rst.movefirst

while not rst.eof
titulo=rst.Fields("Titulo")
autor=rst.Fields("Autor")
fecha=rst.fields("Fecha")
Num=rst.Fields("NumPregunta")
rst2.Open "Respuestas",conexion,3,3
if rst2.recordcount [] 0 then

rst2.close
rst2.activeconnection=conexion
rst2.Source = "select * from Respuestas " & _
"where NumPregunta='" & Num & "'"

rst2.Open
respuestas=rst2.recordcount
rst2.close

else
respuestas=0
rst2.close

end if

response.write("[tr]")

Response.Write ("[td background=fondo1.gif]" & titulo & "[/td]")
Response.Write ("[td background=fondo1.gif]" & autor & "[/td]")
Response.Write ("[td background=fondo1.gif]" & respuestas & "[/td]")
Response.Write ("[td background=fondo1.gif]" & fecha & "[/td]")
Response.Write ("[td background=fondo1.gif][INPUT type=radio id=rad name=rad value=" & Num & "]" & "[/td]")
'Response.Write ("[td background=fondo1.gif][INPUT type=radio id=rad name=rad value=" & titulo & "]" & "[/td]")


response.write("[/tr]")

rst.movenext
wend

rst.close
response.write("[/table]")
response.write("[/p]")
end if

'conexion.close



%]
[p align="center"]
[INPUT type="submit" value="Ver" id=submit1 name=submit1]
[/p]
[/form]
[%conexion.close%]
[p align="center"]Selecciona un Post y pulsa Ver para acceder a un Post y sus respuestas[/p]
[p align="center"]
[object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="100" height="20"]
[param name="movie" value="button11.swf"]
[param name="quality" value="high"]
[param name="base" value="."]
[embed src="button11.swf" base="." quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100" height="20" ][/embed]
[/object]
[/P]

[/BODY]
[/HTML]

ForoUO2.asp
[%@ Language=VBScript %]
[HTML]
[HEAD]
[META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"]
[/HEAD]
[BODY]
[div align="left"]
[%

Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\xxxxxxxx\db\uo.mdb")
set rst = server.CreateObject("adodb.recordset")
rst.Open "Preguntas",conexion,3,3
set rst2 = server.CreateObject("adodb.recordset")
'rst2.Open "Respuestas",conexion,3,3


NP=Request.Form("rad")
'response.write (NP)
session("NP")=NP

response.write("[/div]")
response.write("[div align=center]")
response.write("[table width=75% border=1]")
response.write("[tr]")
response.write("[td bgcolor=#cccccc][div align=center][strong]Autor[/strong][/div][/td]")
response.write("[td bgcolor=#cccccc][div align=center][strong]Pregunta[/strong][/div][/td]")
response.write("[td bgcolor=#cccccc][div align=center][strong]Fecha[/strong][/div][/td]")
response.write("[/tr]")
response.write("[tr]")
'rst.close
'rst.Source = "select * from Preguntas where Titulo='" & NP & "'"
'rst.Find "Titulo='" & NP & "'", 0, adSearchForward, 0
'rst.movelast

'rst.Open
While not rst.eof and encontrado [] "True"
if rst.fields("NumPregunta")=NP then
encontrado="True"
else
rst.movenext
end if
wend
'HACIENDO EL BUCLE ARTESANAL
'Session("NP")=rst.fields("NumPregunta")
Aut=rst.Fields("Autor")
Preg=rst.Fields("Texto")
Cad = replace(Preg,chr(13),"[br/]")

NUM2=rst.fields("NumPregunta")
fech=rst.fields("Fecha")
rst.close
Response.Write("[td background=fondo1.gif]" & Aut & "[/td]")
Response.Write("[td background=fondo1.gif]" & Cad & "[/td]")
Response.Write("[td background=fondo1.gif]" & fech & "[/td]")


response.write("[/tr]")
response.write("[/table]")
response.write("[/div]")
response.write("[div align=center][/div]")

response.write("[div align=center]")
response.write("[table width=75% border=1]")
response.write("[tr]")
response.write("[td bgcolor=#cccccc][div align=center][strong]Autor[/strong][/div][/td]")
response.write("[td bgcolor=#cccccc][div align=center][strong]Respuesta[/strong][/div][/td]")
response.write("[td bgcolor=#cccccc][div align=center][strong]Fecha[/strong][/div][/td]")
response.write("[/tr]")

'rst2 CONSULTA SELECT A LAS RESPUESTAS CON ESE NUM PREG
'E IR haciendo la tabla
rst2.activeconnection=conexion
rst2.Source = "select * from Respuestas " & _
"where NumPregunta='" & Num2 & "'"
'rst2.Source = "select * from Respuestas " & _
'"where TitPregunta='" & NP & "'"
rst2.Open
'rst2.MoveFirst
while not rst2.EOF
aut2=rst2.Fields("Autor")
text=rst2.Fields("Texto")
Cad2 = replace(text,chr(13),"[br/]")
fech2=rst2.fields("Fecha")
Response.Write ("[tr]")
Response.Write("[td background=fondo1.gif]" & Aut2 & "[/td]")
Response.Write("[td background=fondo1.gif]" & Cad2 & "[/td]")
Response.Write("[td background=fondo1.gif]" & fech2 & "[/td]")
response.write("[/tr]")
rst2.MoveNext
wend
response.write ("[/table]")
rst2.close
conexion.close
'rst.close

%]
[P]
[P][/P][/P]

[/div]
[p] [/p]
[p] [/p]
[p align="center"]
[object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="100" height="20"]
[param name="BGCOLOR" value=""]
[param name="movie" value="button13.swf"]
[param name="quality" value="high"]
[param name="base" value="."]
[embed src="button13.swf" base="." quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100" height="20" ][/embed]
[/object]
[object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="100" height="20"]
[param name="BGCOLOR" value=""]
[param name="movie" value="button14.swf"]
[param name="quality" value="high"]
[param name="base" value="."]
[embed src="button14.swf" base="." quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100" height="20" ][/embed]
[/object]
[/p]
[/BODY]
[/HTML]

Bueno... pues esto es un foro (o algo parecido ):D . Ya se q no es ninguna maravilla, pero ahí está, para q quien como yo esté empezando pueda ver como va.

Puede haber por ahi muchos comentarios en medio del código (precedidos por " ' " sin comillas), no les hagais ni caso, son cosas mías q me daba pereza borrar (aunque a lo mejor alguno hasta es util).

umm... he metido botones en Flash, así q a lo mejor no quedan muy claros los enlaces y tal... así q en el siguiente post va un breve comentario de como funciona el foro....

bien...

La primera página q se supone ha de cargar el foro es ...

ForoUO.asp: Esta página,saca los mensajes del foro (si los hay), junto con info referente a cada mensaje (nº respuestas, fechas...). A partir de aquí hay dos opciones:
1. Si seleccionas un mensaje y le das a ver (es un submit button), pasas a ForoUO2.asp, q saca por pantall (en una tabla) el mensaje seleccionao y todas sus respuestas. Una vez en ForoUO2.asp, tienes 2 opciones:
1.1.Contestar, q es un enlace a la página anadir.asp (podría, mas bien debería ser una pag HTML), en la q el usuario cubre un form q se manda a anadir2.asp q añade la respuesta a la base de datos.
1.2.Regresar, un enlace q te manda a ForoUO.asp
2. Nueva Pregunta. Es un enlace q manda al usuario a la página AnadirPregunta.asp, donde sale un form q depues de ser cubierto por el usuario se manda a AnadirPregunta2.asp (podría, mas bien debería ser una pag HTML) q graba los datos en la base de datos.



uffff... espero q esto valga de algo. Bueno, el tema este basicamente funciona, tendrá algún fallo (todas las páginas están sin título, aunque éste será el menos grave), y sobre todo programación ineficiente y algo chapucera (esa es mi firma ;) ), y alguno + se me ocurre.
De todas formas, aceptaría (es más, me gustaría) oir todo tipo de críticas (constructivas claro).

Cualquier duda, consultarme...

Si en alguna parte de los posts no he sido claro, o me falta algo por explicar decirmelo (lo he escrito todo seguido y no se q tal irá).

Por último, hacer con este amago de foro lo q querais, copiarlo, editarlo, implementarlo en vuestras páginas web, no le hagais ni caso .... etc etc

SPECIAL THANKS TO EXCALIBUR && ERICKPEREZ

Hola jocanor.

Pues, soy novato en programación en gral, y en asp en particular. Hay por ahi otro post con el titulo "Problema foro asp", en el q consultaba una duda q me había surgido mientras programaba un foro (muy básico).

En ese mismo post, prometí q postearía el código del foro cuando estuviera terminado por si a algún principiante como yo le valía de algo.

Adiós.

PD: perdona q no te respondiera antes pero estaba posteando el foro y no vi tu post.

Yo también los acabé, los tengo colgados en un server, pero no me acuerdo, jajaajja
Saludos

Joder (con perdon) donde habeis aprendido todo esto¿?, es que yo no he encontrado ningun manual decente en internet gratuito :( , alguien me podra dar un link para algun manual que sea bueno, avanzado, etc, y que este en español.

Gracias, y un saludo.

Es sencillo pero te honra el colaborar en el foro... (muchos no lo harían...) ;) muchas gracias por compartirlo y sigue trabajando para mejorarlo ;).
En las páginas que yo he echo me he inclinado más por el php + mysql (como este foro) a ver si los "dueños" de mis trabajos permiten postear alguno

Es que yo trabajo con Visual Basic, y la verdad, mezclando eso, con un poco de html y entendiendo los objetos response y request, no tiene misterio.
ahora estoy haciendo una página en ASP con su menu administración y tal.
Por cierto, que tengo que colgar el código del foro que hice aunque no creo que sea mejor que el de Lázaro).


PD: Angeliyo, no dejes que te compren la propiedad interectual ;)

The_chacal... siento no poder ayudarte con lo del manual (yo aprendí por uno q me pasó fotocopiado un colega), pero supongo q por ahí habrá alguno (tb ayuda mirar en foros de asp). De todas formas, eXcalibur está en lo cierto, controlando algo de VB y "mezclando eso, con un poco de html y entendiendo los objetos response y request" la cosa es + facil.

Angeliyo... gracias x tus palabras;) , la verdad no creo q lo mejore pq simplemente lo hice para ver si me salía:D . Tb me gustaría trabajar con PhP y MySQL, y en cuanto esté un poco (bastante :) ) + puesto en C me pondré a ello, aunque solo sea aprender lo básico.

Un saludo a Tod@s.

Aquí están los foros que hice hace ya algún tiempo, se me había olvidado subirlos
Es lo primero qu ehe tocado en ASP, es decir, no valen mucho
http://www.iespana.es/ForosDeHack/foros.zip

Les he pegado un vistazo y están muy bien eXcalibur (desde luego mejor q el mío), con cookies y todo. Gracias por colgarlo (la espera ha merecido la pena)

PD: recomiendo a tod@s l@s q estén interesad@s en .ASP q lo descarguen , el código tiene una claridad de la q mi foro carece.

Hasta Otra.

Gracias Lazaro, me vas a hacer sonrojar :D :D :D

Pero bajo mi punto de vista, creo que está algo sucio, porque hice como tu, cuando los acabé, y vi que sabía hacerlo, ahí se quedaron XD
Seguro que me dejo conexiones abiertas y repito código, pero bueno, esto es código libre, que cada uno lo modifique como quiera
;)