08/06/2004, 18:45
|
 | | | Fecha de Ingreso: febrero-2002 Ubicación: Ribeira (Galicia)
Mensajes: 1.900
Antigüedad: 23 años, 2 meses Puntos: 29 | |
modmsg.asp Moderación de un mensaje (cerrar, abrir, eliminar)
Código:
<head>
<title>Moderar mensajes</title>
<link rel="stylesheet" type="text/css" href="../../estilo.css">
</head>
<body bgcolor="#66CCFF" topmargin="7" leftmargin="7">
<table border="0" width="100%" style="background-color: #FFFFFF; border: 1 outset #3399FF" cellspacing="0" cellpadding="2">
<tr>
<td width="100%"><font size="3"><i><b>Moderación de mensajes</b></i></font>
<% if request.querystring("s")="" then%>
<form method=post action="modmsg.asp?s=p">
Introduce la password: <input type="password" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="pass" size="10">
<input type="submit" value="Comprobar" style="font-family: Verdana; font-size: 8pt; background-color: #FFFFFF; border: 1 outset #000080">
<input type="hidden" name="id" value="<%=request.querystring("id")%>">
</form>
<%elseif request.querystring("s")="p" then
if request.form("pass")="PASSWORD" then%>
<br><b>Contraseña aceptada</b><br><br><center>
<a href="modmsg.asp?s=c&id=<%=request.form("id")%>">Cerrar mensaje</a><br>
<a href="modmsg.asp?s=a&id=<%=request.form("id")%>">Abrir mensaje</a><br>
<a href="modmsg.asp?s=e&id=<%=request.form("id")%>">Eliminar mensaje</a>
<%else%>
<br><b>Contraseña incorrecta.</b> <a href="javascript:history.go(-1)">Atrás</a>
<%end if%>
<%elseif request.querystring("s")="c" then
id=request.querystring("id")%>
<br><b>Cerrar mensaje</b>
<form method=post action="modmsg.asp?s=cs">Id del mensaje: <input type="text" value="<%=id%>" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="id" size="3">
<br><input type="submit" value="Cerrar" style="font-family: Verdana; font-size: 8pt; background-color: #FFFFFF; border: 1 outset #000080">
</form>
<%elseif request.querystring("s")="cs" then
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 mensajes where id="&request.form("id")
rst.Open sql,cnn,3,3
rst("cerrado")="carpetacerrado.gif"
rst.update
rst.close
cnn.close%>
<br><b>Mensaje cerrado correctamente</b>
<%elseif request.querystring("s")="a" then
id=request.querystring("id")%>
<br><b>Abrir un mensaje cerrado previamente</b>
<form method=post action="modmsg.asp?s=as">Id del mensaje: <input type="text" value="<%=id%>" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="id" size="3">
<br><input type="submit" value="Abrir" style="font-family: Verdana; font-size: 8pt; background-color: #FFFFFF; border: 1 outset #000080">
</form>
<%elseif request.querystring("s")="as" then
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 mensajes where id="&request.form("id")
rst.Open sql,cnn,3,3
rst("cerrado")="carpeta.gif"
rst.update
rst.close
cnn.close%>
<br><b>Mensaje abierto correctamente</b>
<%elseif request.querystring("s")="e" then
id=request.querystring("id")%>
<br><b>Eliminar mensaje</b>
<form method=post action="modmsg.asp?s=es">Id del mensaje: <input type="text" value="<%=id%>" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="id" size="3">
<br><input type="submit" value="Eliminar" style="font-family: Verdana; font-size: 8pt; background-color: #FFFFFF; border: 1 outset #000080">
</form>
<%elseif request.querystring("s")="es" then%>
<br><b>¿Estás seguro de querer eliminar el mensaje <%=request.form("id")%>?
<br><center><br><a href="modmsg.asp?s=esi&id=<%=request.form("id")%>">SI</a>
<%elseif request.querystring("s")="esi" then
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("foros.mdb")&";"
strSQL ="DELETE * FROM mensajes where id="&request.querystring("id")
oConn.Execute(strSQL)
oConn.Close
set oConn = nothing %>
<br><b>Mensaje eliminado correctamente.
<%end if%>
</td></tr>
</table>
|