Foros del Web - Ver Mensaje Individual

CHuLoSoY · #9 (**permalink**) 08/06/2004, 18:43

modforo.asp
Moderación de un subforo

Código:

<head>
<title>Moderación de foros</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 foros</b></i></font>

<% if request.querystring("c")="" then%>
  <form method="POST" action="modforo.asp?c=s&id=<%=request.querystring("id")%>">Introduce la password: <input type="password" name="pass" size="10" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1">
    <input type="submit" value="Comprobar" style="background-color: #FFFFFF; font-family: Verdana; font-size: 8pt; border: 1 outset #000080"></p>
  </form>
<%elseif request.querystring("c")="s" then

	if request.form("pass")="PASSWORD" then%>
		<br><b>Contraseña aceptada</b>
		<br><center><a href="modforo.asp?c=m&id=<%=request.querystring("id")%>">Modificar foro</a>
		<br><a href="modforo.asp?c=e&id=<%=request.querystring("id")%>">Eliminar foro</a></center>
	<% else%>
		<br><b>Contraseña incorrecta</b><br><br><center><b><a href="javascript:history.go(-1)">Atrás</a></b>
	<%end if%>
	
<%elseif request.querystring("c")="m" then%>

	<br><b>Modificar foro</b>
	<form action="modforo.asp?c=ms" method=post>Id del foro: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="id" value="<%=request.querystring("id")%>" size="3">
	<br>Nombre del foro: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="nombre" size="10">
	<br>Categoría: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="categoria" size="10">
	<br>Id Categoría: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="idcategoria" size="10">
	<br>Descripción: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="descripcion" size="30">
	<br><input type="submit" value="Enviar" style="font-family: Verdana; font-size: 8pt; background-color: #FFFFFF; border: 2 outset #000080"></form>

<% elseif request.querystring("c")="ms" then

	id=request.form("id")
	nombre=request.form("nombre")
	descripcion=request.form("descripcion")
	categoria=request.form("categoria")
	idcategoria=request.form("idcategoria")

	if nombre ="" or descripcion ="" or categoria="" or idcategoria="" or id="" then
	error = "Debe completar todos los datos. <a href=""javascript:history.go(-1)"">Atrás</a>."
	Response.Write error
	Response.End
	end if
	
	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
	
	rst("nombre")=nombre
	rst("descripcion")=descripcion
	rst("categoria")=categoria
	rst("idcategoria")=idcategoria
	rst.update
	
	rst.close
	cnn.close%>

		<br><b>Foro <%=nombre%> modificado correctamente.</b>

<% elseif request.querystring("c")="e" then%>

	<br><b>Eliminar foro</b>
	<form action="modforo.asp?c=es" method=post>Id del foro: <input type="text" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1" name="id" value="<%=request.querystring("id")%>" size="3">
	<br><input type="submit" value="Enviar" style="font-family: Verdana; font-size: 8pt; background-color: #FFFFFF; border: 2 outset #000080"></form>

<% elseif request.querystring("c")="es" then%>

	<br><b>Eliminar foro</b>
	<br><br>¿Está seguro de querer eliminar el foro <b><%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="&request.form("id")
	rst.Open sql,cnn,3,3
	
	nombre=rst("nombre")
	response.write nombre
	
	rst.close
	cnn.close%>
	</b>?
	<br><center><a href="adminindex.asp?c=esi&id=<%=request.form("id")%>">SI</a></center>
	
<% elseif request.querystring("c")="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 foros where id="&request.querystring("id")
	oConn.Execute(strSQL) 
	oConn.Close 
	set oConn = nothing%>
	
	<br><b>Foro <%=request.querystring("id")%> eliminado correctamente</b>

<%end if%>
	
</td></tr>
</table>