Foros del Web - Ver Mensaje Individual

CHuLoSoY · #3 (**permalink**) 08/06/2004, 18:26

foro.asp
aquí se muestran los mensajes de cada subforo

Código:

<%
id=request.querystring("id")

set rst = Server.CreateObject("ADODB.Recordset")
set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data source="&Server.MapPath("foros.mdb"))
sql = "Select * from foros where id="&id&""
rst.Open sql,cnn,3,3

nombre=rst("nombre")
descripcion=rst("descripcion")

rst.close
cnn.close
%><html>

<head><script language="javascript" src="funciones.js"></script>
</head><body><center><table width="700" border="0" cellspacing="0" cellpadding="4" style="border-left-style: solid; border-left-width: 1"><tr><td width="679" valign="top" bgcolor="#F5F5F5" style="border: 1 solid #C0C0C0"><table border="0" width="100%" cellspacing="0" cellpadding="0"><tr>
<td width="69%"><i><b><font face="Times New Roman" size="5" color="#800000"><%=nombre%></b></font><br><font face="Times New Roman" size="2" color="#0000FF"><%=descripcion%></font></i></td>
</center><td width="31%" valign="bottom"><p align="right"><a href="javascript:adminforo(<%=request.querystring("id")%>)" class="adminforo">Administración</a> | <a href="escribir.asp?f=<%=request.querystring("id")%>&a=n" class=adminforo>Iniciar tema</a></td>
</tr></table>&nbsp;<center><table bgcolor="#000000" border="0" cellspacing="1" cellpadding="0" width="100%"><tr><td><center><table width="100%" cellpadding="1" cellspacing="0" border="0"><tr><td width="2%" align="center" bgcolor="#E8E8E8"></td><td width="55%" align="center" bgcolor="#E8E8E8"><b>Asunto</b></td><td width="20%" align="center" bgcolor="#E8E8E8"><b>Autor</b></td><td width="12%" align="center" bgcolor="#E8E8E8"><b>Fecha</b></td><td width="3%" align="center" bgcolor="#E8E8E8"><b><font size="1">Lec</font></b></td><td width="3%" align="center" bgcolor="#E8E8E8"><b><font size="1">Res</font></b></td></tr>
<%
Set Coneximon = Server.CreateObject("ADODB.Connection")
Set RSs=Server.CreateObject("ADODB.Recordset")
Coneximon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("foros.mdb")&";"
sql = "SELECT * FROM mensajes where idforo="&id&";"
RSs.Open sql, Coneximon, 3,3
numensajes=RSs.RecordCount
RSs.close
coneximon.close

Dim oConn, rs, SQL
Dim PaginaActual
Dim PaginasTotales	
Dim TamPagina
Dim CuantosRegistros
TamPagina=25
if Request.Querystring("pagina")="" then
	PaginaActual=1
else
	PaginaActual=CInt(Request.Querystring("pagina"))
end if

set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
	"Data Source="&Server.MapPath("foros.mdb")&";"
SQL="SELECT * FROM mensajes where idforo="&id&" ORDER BY fechaorde DESC;"

rs.PageSize=TamPagina
rs.CacheSize=TamPagina
rs.Open SQL, oConn, 1, 2
PaginasTotales=rs.PageCount
if PaginaActual < 1 then 
	PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
	PaginaActual = PaginasTotales
end if
if PaginasTotales=0 then

	Response.Write("<tr><td width=""100%"" bgcolor=""white"" colspan=6><center>No hay mensajes</center></td></tr>")

else
rs.AbsolutePage=PaginaActual
Response.Write("<tr><td width=""30%"" colspan=3 bgcolor=""#996666""><font color=white style=""font-size:8pt; font-family: tahoma""><b><font color=yellow>"&numensajes&"</font></b> temas de charla en este foro.</font></td><td width=""70%"" colspan=3 align=right bgcolor=""#996666""><font color=white style=""font-size:8pt; font-family: tahoma"">Página <b><font color=yellow>" & PaginaActual & "</b></font> de <b><font color=yellow>" & PaginasTotales & "</font></b></font></font></td></tr>")
CuantosRegistros=0
bandera=0
do while not rs.EOF and CuantosRegistros < TamPagina
if bandera = 0 Then
color="e6e6e6"
bandera = 1
ELse
color="cfcfcf"
bandera = 0
End IF
Set Coneximon = Server.CreateObject("ADODB.Connection")
Set RSs=Server.CreateObject("ADODB.Recordset")
Coneximon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("foros.mdb")&";"
sql = "SELECT * FROM respuestas where idmensaje="&rs.fields("id")&";"
RSs.Open sql, Coneximon, 3,3
respuestas=RSs.RecordCount
RSs.close
coneximon.close
Response.Write "<tr><td width=""100%"" bgcolor=""black"" colspan=""6""></td></tr><tr><td width=""2%"" bgcolor="""&color&"""><a target=""_blank"" title=""Click para abrir en nueva ventana"" href=""mensaje.asp?id=" &rs.Fields("id") & """><img src=""" &rs.Fields("cerrado") & """ border=0></a></td><td width=""55%"" bgcolor='"&color&"'><a href=""mensaje.asp?id=" &rs.Fields("id") & """ class=mensaje><font style=""font-size:9pt;font-family:Tahoma"">"&rs.Fields("asunto")&"</font></a></td><td width=""20%"" align=""center"" bgcolor='"&color&"'><font style=""font-size:8pt"">"&rs.Fields("nombre")&"</font></td><td width=""12%"" align=""center"" bgcolor='"&color&"'><font size=1 color=""blue"">"&rs.Fields("modificacion")&"</font></td><td width=""3%"" align=""center"" bgcolor='"&color&"'><font size=1>"&rs.Fields("lecturas")&"</font></td><td width=""3%"" align=""center"" bgcolor='"&color&"'><font size=1>"&respuestas&"</font></td>"		
CuantosRegistros=CuantosRegistros+1
rs.MoveNext
loop
Response.Write("</tr><tr>")
end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
%></table></center></td></tr></table></center><center><table width="100%" cellpadding="1" cellspacing="0" border="0"><tr><td width="100%" align="center">
<font face="courier new" style="font-size:11pt">Más mensajes: </font><%
if PaginasTotales="1" then
	Response.write("<a href=""foro.asp?id="&id&""" class=""paginar"">[1]</a>")
elseif PaginasTotales="2" then
	Response.write("<a href=""foro.asp?id="&id&""" class=""paginar"">[1]</a><font face=""courier new"" style=""font-size:11pt"">&nbsp; <a href=""foro.asp?id="&id&"&pagina=2"" class=""paginar"">[2]</a>...</font>")

elseif PaginasTotales="3" then
	Response.write("<a href=""foro.asp?id="&id&""" class=""paginar"">[1]</a><font face=""courier new"" style=""font-size:11pt"">&nbsp; <a href=""foro.asp?id="&id&"&pagina=2"" class=""paginar"">[2]</a>&nbsp; <a href=""foro.asp?id="&id&"&pagina=3"" class=""paginar"">[3]</a>...</font>")

elseif PaginasTotales="4" then
	Response.write("<a href=""foro.asp?id="&id&""" class=""paginar"">[1]</a><font face=""courier new"" style=""font-size:11pt"">&nbsp; <a href=""foro.asp?id="&id&"&pagina=2"" class=""paginar"">[2]</a>&nbsp; <a href=""foro.asp?id="&id&"&pagina=3"" class=""paginar"">[3]</a>&nbsp; <a href=""foro.asp?id="&id&"&pagina=4"" class=""paginar"">[4]</a>...</font>")

elseif PaginasTotales="5" then
	Response.write("<a href=""foro.asp?id="&id&""" class=""paginar"">[1]</a><font face=""courier new"" style=""font-size:11pt"">&nbsp; <a href=""foro.asp?id="&id&"&pagina=2"" class=""paginar"">[2]</a>&nbsp; <a href=""foro.asp?id="&id&"&pagina=3"" class=""paginar"">[3]</a>&nbsp; <a href=""foro.asp?id="&id&"&pagina=4"" class=""paginar"">[4]</a>&nbsp; <a href=""foro.asp?id="&id&"&pagina=5"" class=""paginar"">[5]</a>...</font>")

end if
%>&nbsp;&nbsp;<br></td></tr></table></center>
</table>
</body></html>