Adeministrador de contenidos

[pamijilo]

Hola a todos
Necesito crear un panel de administracion de contenidos pero no tengo ni idea por donde empezar, ni que hacer, ¿me pueden colaborar? GRACIAS

lo mas complicado que encuentro es la parte de subir imagenes a la base de datos. En este momento estoy almacendando solo la ruta a una carpeta de imagenes pero quiero que lo haga automaticamente.

GRACIAS AL QUE ME PUEDA COLABORAR

[maestro]

Construir un panel de control para una tienda virtual.
Bueno, vamos a ver si construimos un pequeño FAQ sobre esto:

PUNTO 1: Registro y autentificacion de administradores.
PUNTO 2: Componentes de envio de ficheros.
PUNTO 3: Administrador de bases de datos.
PUNTO 4: Browser de ficheros en el servidor.

Pasos previos
Debemos prestar atencion al diseño de la base de datos, un buen diseño nos evita problemas e inconsistencias.
Algo importante es dejar un campo llamado ID o CODIGO como AUTONUMERICO, esto hace que cada nuevo registro añadido tome un VALOR NUMERICO automaticamente, ademas nunca dos productos podran tener el mismo codigo y si eliminamos un producto con discho codigo sera imposible que coloquemos otro por error en su lugar que pueda confundirnos.
Estamos tratando este diseño sobre ACCESS, para operaciones muy complejas deberiamos pensar en SQL server, pero como el codigo es 100% reutilizable solo necesitariamos convertir la BD y subirla al server SQL o MySQL.



PUNTO 3:
Administrador de bases de datos.
Vamos a comenzar por este, puesto que normalmente todo el mundo tiene ya hechas las bases de datos de los productos de la tienda.

Necesitamos saber crear consultas de seleccion para obtener los datos de la base de datos, es recomendable que exista un campo en la base de datos llamado ID o CODIGO que nos permita identificar de forma univoca cada producto que tenemos en ella.
Esto lo usaremos posteriormente para modificar o borrar registros.
Como ya hemos comentado para añadir nos olvidamos del codigo o ID porque el motor JET de access al definir un campo como AUTONUMERICO lo asigna solo al hacer un UPDATE.

Consulta de seleccion (visualizacion) productos.asp
<%
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("tubase.mdb")&";"
SQL="SELECT * FROM tutabla"
rs.Open SQL, oConn
do while not rs.eof
' Esto nos muestra el dato y crea un enlace a la pagina detalle.asp donde podremos modificar el registro.
response.write("<a href=detalle.asp?cod=" & rs("id") & ">" & rs("contenido"))& "</a><br>"
rs.movenext
loop
rs.close
oConn.close
%>
Mas info:
http://aspfacil.com/articulos/verarticulo.asp?id=22

Despues necesitamos saber modificar una de los registros que se encuentren en la base de datos:
Necesitamos saber QUE registro es el que queremos modificar para ello cramos una consulta SQL donde indicamos el numero de registro a listar.
Recibiremos los valores obtenidos en la consulta en una pagina sutida con cuadros de texto, combos, casillas, etc para la modificacion de los datos.
Este tipo de consulta se basa normalmente en 3 paginas (se puede hacer todo en 1), una donde elgimos el dato a modificar y otra donde lo visualizamos en un formulario y otra donde se procede a la actualizacion sobre la base de datos.

Visualizacion en formulario: detalle.asp
En esta pagina podremos hacer dos cosas habitualemente modificar el producto o eliminarlo
Ambas operaciones las hacemos basandonos en el ID suministrado en la pagina anterior.
<%
' con esto recuperramos los datos del registro a borrar o modificar de la pagina anterior
varID=request("id)
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("tubase.mdb")&";"
SQL="SELECT * FROM tutabla where ID="&varID&" "
rs.Open SQL, oConn
do while not rs.eof
%>
<form method="post" action="update.asp">
<input type="text" name="formulario1" size="20" value="<%=rs("campo1")%>">
<input type="text" name="formulario2" size="20" value="<%=rs("campo2")%>">
<input type="text" name="formulario3" size="20" value="<%=rs("campo3")%>">
<input type="submit" value="Enviar" name="enviar">
<input type="reset" value="Restablecer" name="borrar">

<%
' Esto nos muestra el dato y crea un enlace a la pagina borrar.asp donde podremos borrar el registro.
response.write("<a href=borrar.asp?cod=" & rs("id") & ">" & rs("campo1"))& "</a><br>"
rs.movenext
loop
rs.close
oConn.close
%>

Actualizar un registro de la base de datos. update.asp
<%
' con esto recuperramos los datos de un fomulario de la pagina anterior y el valor ID
variable1=request("formulario1")
variable2=request("formulario2")
variable3=request("formulario3")
varID=request("id)
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("base.mdb")&";"
SQL="SELECT * FROM tutabla where ID="&varID&" "
rs.Open SQL, oConn
'con esto actualizamos un registro con los siguiente datos
rs("campo1")=variable1
rs("campo2")=variable2
rs("campo3")=variable3
rs.update
rs.close
oConn.close
%>

Recoger datos de un nuevo registro mediante un formulario. formulario.asp
'Aqui solo necesitamos un formulario que recoja los valore, nombre, precio, detalles, etc
' Y pasamos los valores a la pagina addnew donde se añaden a la base de datos.
<form method="post" action="addnew.asp">
<input type="text" name="formulario1" size="20">
<input type="text" name="formulario2" size="20">
<input type="text" name="formulario3" size="20" >
<input type="submit" value="Enviar" name="enviar">
<input type="reset" value="Restablecer" name="borrar">

Añadir registros a la base de datos. addnew.asp
<%
' con esto recuperramos los datos de un fomulario de la pagina anterior
variable1=request("formulario1")
variable2=request("formulario2")
variable3=request("formulario3")
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("base.mdb")&";"
SQL="SELECT * FROM tutabla "
rs.Open SQL, oConn
'con esto añadimos un registro con los siguiente datos
rs.addnew
rs("campo1")=variable1
rs("campo2")=variable2
rs("campo3")=variable3
rs.update
rs.close
oConn.close
%>
Mas datos
http://aspfacil.com/articulos/verarticulo.asp?id=36

Eliminar registros de la base de datos: borrar.asp
<%
' con esto recuperramos los datos del registro a borrar del la pagina anterior
varID=request("id)
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("base.mdb")&";"
SQL="SELECT * FROM tutabla where ID="&varID&" "
rs.Open SQL, oConn
'con esto eleiminamos el registro
rs.delete
rs.update
rs.close
oConn.close
%>
Mas datos
http://aspfacil.com/articulos/verarticulo.asp?id=36


**CONTINUARA ***

prueba

[Pavid]

Hola,

A ver si me podeis ayudar por que no me acabo de ver cómo solucionar el problema siguiente. Creo que tiene que ver con el comando Update.
Sobre una tienda virtual....cuando un cliente hace un pedido guardo los datos del pedido en una base. Para cada pedido hay un campo autonumérico que llamo RefCompra.
Lo que me interesa hacer es, después de cada pedido, recuperar la RefCompra.

Mi código es

constr2 = application("constr")'abrimos la base de datos
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open constr2
Set Rs2 = Server.CreateObject("ADODB.Recordset")
SQL2 = "SELECT * FROM pedidos"
Rs2.open SQL2,Conn2,3,3
Rs2.AddNew
Rs2("nombre")=nom
Rs2("apellido1")=ape1
Rs2("apellido2")=ape2
Rs2("RefProductp")=idc
Rs2("Importe")=precio

Rs2.Update

'aquí intento recuperar la Referencia de la Compra
referencia=Rs2("RefCompra")

Rs2.close
Conn2.close

Según he leido en diversos mensajes después de hacer Update, el campo el campo autonumérico se crea y no tendría que tener problemas para recuperarlo. Sin embargo, no me funciona. He pensado que tal vez el error tenga que ver con:

"Como ya hemos comentado para añadir nos olvidamos del codigo o ID porque el motor JET de access al definir un campo como AUTONUMERICO lo asigna solo al hacer un UPDATE."

Ya que yo accedo a la base de datos a través de DSN. ¿No funciona el Update cuando accedo a la base de datos a través de DSN? ¿Alguna posible solución?

Muchas gracias.

[Pavid]

venga...que seguro que alguien lo sabe...

[DeLaVega]

Fijate este post:

http://www.forosdelweb.com/showthrea...hreadid=106944

Saludos, suerte.