-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathreporte_foros.asp
221 lines (204 loc) · 6.62 KB
/
reporte_foros.asp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
<%
dim usuario
usuario = session("id")
if isempty(usuario) then
Response.Redirect("login.asp")
end if
session("destforo") = "reporte_foros.asp"
%>
<HTML>
<HEAD>
<title>Foros Creados</title>
<link href="./theme/Master.css" rel="stylesheet" type="text/css">
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<!--
<style type="text/css">
table {
border-top: thin groove #CCCCCC;
border-right: thin groove;
border-bottom: thin groove;
border-left: thin groove;
}
</style>
-->
</HEAD>
<script language="javascript">
function ForosPublicados() {
publicar.action = 'foro.asp'
publicar.submit()
}
function NuevoForo() {
pagina = 'nuevoforo.asp'
document.location = pagina
}
function Eliminar(foro) {
valor = confirm("Eliminar este foro.\nEsta accin no sera reversible, Desea Continuar?")
if (valor == true)
{
parent.principal.location = "./eliminar_foro.asp?foro="+foro
}
}
function Actualizar(foro) {
var destino;
var str;
var buscado;
var s = navigator.appVersion;
ss = s.substr(22,1);
if (ss.indexOf("6")==0)
{
destino = "nuevoforo2.asp"
}
else
{
destino = "nuevoforo.asp"
}
document.publicar1.action= destino
document.publicar1.foro.value=foro
document.publicar1.accion.value = '1'
document.publicar1.submit()
}
function agregar_documento(foro) {
Enlace=prompt("Ingrese el texto que se mostrara como enlace para el documento.\nDeje en blanco si desea que aparezca la palabra Documento como enlace.","");
if (Enlace!=null) {
ancho = 600
if (screen) {
leftPos = (screen.width / 2) - (ancho/2)
}
PreviewWindow = window.open('agregar_documento.asp?foro='+foro+'&enlace='+Enlace,'AgregarDoc','toolbar=no,menubar=no,location=no,scrollbars=yes,width='+ancho+'+,height=250,left='+leftPos+'+,top=20')
}
if (Enlace=="") {
Enlace="Documento"
ancho = 700
if (screen) {
leftPos = (screen.width / 2) - (ancho/2)
}
PreviewWindow = window.open('agregar_documento.asp?foro='+foro+'&enlace='+Enlace,'AgregarDoc','toolbar=no,menubar=no,location=no,scrollbars=yes,width='+ancho+'+,height=350,left='+leftPos+'+,top=20')
}
}
function eliminar_documento(foro) {
ancho = 700
if (screen) {
leftPos = (screen.width / 2) - (ancho/2)
}
PreviewWindow = window.open('eliminar_documento.asp?foro='+foro,'EliminarDoc','toolbar=no,menubar=no,location=no,scrollbars=yes,width='+ancho+'+,height=350,left='+leftPos+'+,top=20')
}
function RevisarSeleccion() {
len = document.publicar.elements.length;
var i=0;
for( i=0; i<len; i++) {
if (document.publicar.elements[i].name=='publicar') {
if (document.publicar.elements[i].checked==true)
{
return true
}
}
}
alert("Error: No se selecciono ningun foro para publicar.")
return false
}
</script>
<BODY onload="javascript:{if(parent.frames[0]&&parent.frames['opciones'].Go)parent.frames['opciones'].Go()}" >
<%
dim db
dim rs
dim rs2
set db = server.CreateObject ("SQLComandos.Comandos")
sql = "select f.activo,f.id,f.titulo,f.descripcion,day(f.fecha_creacion) dia, month(f.fecha_creacion) mes, year(f.fecha_creacion) anio,c.descripcion categoria from foro f,categoria c where f.autor = "& usuario
sql = sql & " and c.id = f.categoria order by f.fecha_creacion desc"
set rs = db.SQLSelect("DBBAECYS",sql)
if not rs.EOF then
%>
<table border="0">
<tr>
<td><a href="javascript:ForosPublicados()">Foros Publicados</a></td>
</tr>
</table>
<div align="center">
<form name="publicar1" action="" method="get" >
<input name="foro" type="hidden">
<input name="accion" type="hidden">
</form>
<form name="publicar" action="eliminar_foro.asp" method="post" onSubmit="return RevisarSeleccion()">
<input name="accion" type="hidden" value="1">
<table width="766" border="0" align="center" cellPadding="2" cellSpacing="2" >
<tr noWrap>
<th class="celdaBgBlue">-</th>
<th class="celdaBgBlue">Foros Creados</th>
<%
cont = 0
while rs.EOF <> true
fecha = rs("dia") &"-"& rs("mes") &"-"& rs("anio")
categoria = rs("categoria")
if (cont mod 2) = 0 then
color = "celdaBgBlue05"
else
color = "celdaBgBlue10"
end if
cont = cont + 1
%>
<tr class= "celdabgblueleft">
<td ><input name="publicar" type="checkbox" value="<%=rs("id")%>" <%if rs("activo") <> "0" then response.write "checked" end if%>></td>
<td >
<img alt="Eliminar foro" src="imagenes/delete_forum.gif" onclick="javascript:Eliminar('<%=rs("id")%>')" width="15" height="15">
<img src="imagenes/edit_forum.gif" alt="Actualizar foro" onclick="javascript:Actualizar('<%=rs("id")%>')" width="15" height="15">
<img src="imagenes/btn_documento2.bmp" alt="Agregar Documento" onclick="javascript:agregar_documento('<%=rs("id")%>')" width="15" height="15">
<img src="imagenes/btn_eliminadoc2.bmp" alt="Eliminar Documento" onclick="javascript:eliminar_documento('<%=rs("id")%>')" width="15" height="15">
</td>
</tr>
<tr class= "celdabgblue10">
<td> </td>
<td><strong><font size="1" face="Arial, Helvetica, sans-serif">Titulo</font></strong>:
<strong> <font size="2" face="Arial, Helvetica, sans-serif"><%=rs("titulo")%></font></strong> <strong><font size="1" face="Arial, Helvetica, sans-serif">Fecha Publicacion:</font></strong> <%= fecha%>
<font size="1" face="Arial, Helvetica, sans-serif"><strong> Categoria: </strong></font>
<font size="2" face="Arial, Helvetica, sans-serif"><strong> <%= categoria%> </strong></font>
<hr>
<%= rs("descripcion")%>
</tr>
<tr>
<td class="celdabgblue05">
</td>
<td class="celdabgblue05" height="18">
<%
sql = "select enlace,archivo from documento where foro = "& rs("id") & " and respuesta is null "
set rs2 = db.SQLSelect("DBBAECYS",sql)
if not rs2.eof then
%>
<hr>
<strong><font size="1" face="Arial, Helvetica, sans-serif">Documentos: </font></strong>
<%
while rs2.EOF <> true
%>
<strong><font size="2" face="Arial, Helvetica, sans-serif"><a href="foros/<%=rs2("archivo")%>"><%=rs2("enlace")%></a> </font></strong>
<%
rs2.MoveNext
wend
end if
set rs2 = nothing
%>
<td>
</tr>
<%
rs.movenext
wend
else
%>
<h2>No hay Foros Creados</h2>
<%
end if
set rs = nothing
%>
</table>
<%
set db = nothing
%>
<br>
<input name="foro" value="" type="hidden">
<input name="accion" value ="" type="hidden">
<input name="aceptar" type="submit" class="celdaBgBlue05" value="Publicar">
</form>
</div>
</BODY>
</HTML>