Sistema de noticias!

[pepelucho]

Holas, como puedo hacer una pagina donde diariamente pueda actualizar las noticias y cambiar las imagenes mediante un formulario, los cambios de tendran q hacer todos los dias , y como son como noticias tambien deben cambiar las imagenes . . .

Espero q me puedan ayudar
Gracias de antemano.

SaLuDoS dE:
PePeLuChO dEl PeRú PaRa El MuNdO


SaLuDoS dE:
PePeLuChO dEl PeRú PaRa El MuNdO ;)

[DARIOI]

HOLA CREA UN FORMULARIO EN UNA PAGINA ASP
CON UN TEXTAREA ES DONDE PRONDRAS TU NOTICIA
HAS UN INPUT TIPO FILE DONDE RECOGERAS LA FOTO DEL DIA ,CREA TRES BOTONES ENVIAR ,LIMPIAR Y GRABAR EN BASE DE DATOS U OTROS ASI COMO GRABAR SIN PUBLICAR ETC

AL GRABAR SE TE PASAN LOS VALORE DE LOS NAMES DE ESTE FORMULARIO A LAS POSICIONES DE LECTURA DE LA ASP DE INTERNET.

LA TABALA ACCCES O SQL UN CAMPO NOTICIAOTRO LA URL DE LA IMAGEN... SUERTE

[pepelucho]

Me podrian explicar mas . . .


SaLuDoS dE:
PePeLuChO dEl PeRú PaRa El MuNdO ;)

[CoiTo]

ola si no s mucha la molestia porke no pones el codigo completo porke no me kedo muy claro ...

salu2

[clak]

si men pon el codigo a mi tambien me interesa, saludos...

<a href="http://www.webrecurso.com" target="_blank"><img src="http://www.webrecurso.com/imagenes/wr_new.gif" border="0"></a>

[oSo]

No es cuestion del otro mundo!

Mira, creas tu base de datos con la tabla Noticias, que tenga los campos:

idNoticia, Titulo, autor, fecha, contenido, urlimagen.

Creas un asp, con un formulario en donde recojas los datos de la base de datos mencionada, y en donde hagas un insert hacia esa base de datos.

En la pagina en donde vas a publicar las noticias, simplemente haces una conexion a tu base de datos, y un sql query que te retorne las ultimas ingresadas, o dependiendo del criterio que querras aplicar...

Y ahi lo tenes! no es cuestion tan complicada... Te lo digo yo, que soy principiante en ASP, y acabo de hacer algo asi, solo que no es poco codigo...

Saludos!

<div align="center"><img src="http://www.negociosenguatemala.com/biz/z/jd/fdwsign.jpg" alt="oSo" border="0"></div>

[jatruji]

Hola te recomiendo NMLITE busca si en goolge y te saldra la pagina donde te puedes desacargar el codigo esta en ingles pero es muy sencillo de entender,ahora siquieres otras opciones dirigete a hotscritps.com y alli en asp lo encuentras espero te sirva, ah puede ver el nmlite en tolired.com chao

[warner]

Hola

Pues realmente hacer un sistema de noticias es muy sencillo y si les sirve como ejemplo aqui les paso la url de uno para que chequen el codigo

<a href='ir.asp?http://www.webexperto.com/articulos/articulo.asp?cod=59' target='_blank'>http://www.webexperto.com/articulos/arti...</a>

Espero que les sirva de mucho, ya ustedes podran agregarle las funciones que gusten..

Saludos

[DARIOI]

PASO UNO CREA UNA HTML

&lt;html&gt;

&lt;head&gt;
&lt;title&gt;Página principal&lt;/title&gt;
&lt;/head&gt;

&lt;body&gt;

&lt;form method=&quot;POST&quot; action=&quot;agrega_noticia.asp&quot;&gt;
&lt;p&gt;Ttiulo:&lt;br&gt;
&lt;input type=&quot;text&quot; name=&quot;titulo&quot; size=&quot;40&quot;&gt;&lt;/p&gt;
&lt;p&gt;Copete:&lt;br&gt;
&lt;input type=&quot;text&quot; name=&quot;copete&quot; size=&quot;40&quot;&gt;&lt;/p&gt;
&lt;p&gt;Noticia:&lt;br&gt;
&lt;textarea rows=&quot;4&quot; name=&quot;noticia&quot; cols=&quot;30&quot;&gt;&lt;/textarea&gt;&lt;/p&gt;
&lt;p&gt;&lt;input type=&quot;submit&quot; value=&quot;Ingresar noticia&quot; name=&quot;enviar&quot;&gt;&lt;/p&gt;
&lt;/form&gt;
&lt;/body&gt;
&lt;/html&gt;

[DARIOI]

PASO DOS CREAS ESTA ASP:

&lt;%@ Language=VBScript%&gt;

&lt;%
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject(&quot;ADODB.Connection&quot;)
set rst = Server.CreateObject(&quot;ADODB.RecordSet&quot;)
cnn.Open(&quot;Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=&quot; &amp; _
Server.MapPath(&quot;noticias.mdb&quot;))
sqltext = &quot;SELECT * FROM Noticias&quot;
rst.Open sqltext,cnn,3,3

'Recogemos los datos y validamos que no haya ningun campo vacio
dim titulo, copete, noticia
titulo = Request.Form(&quot;titulo&quot;)
copete = Request.Form(&quot;copete&quot;)
noticia = Request.Form(&quot;noticia&quot;)

if copete = &quot;&quot; or titulo =&quot;&quot; or noticia =&quot;&quot; then
error = &quot;Debe completar todos los datos.&quot;
Response.Write error
Response.End
end if

'Si está todo correcto, procedemos a ingresar los datos a la base de datos

rst.AddNew
rst(&quot;titulo&quot;) = titulo
rst(&quot;copete&quot;) = copete
rst(&quot;noticia&quot;) = noticia
rst.update

'Terminamos e imprimimos un mensaje
Response.Write &quot;La noticia se ha ingresado con exito&quot;
%&gt;
&lt;html&gt;

&lt;head&gt;
&lt;title&gt;Página nueva &lt;/title&gt;
&lt;/head&gt;

&lt;body&gt;
&lt;/body&gt;
&lt;/html&gt;

[DARIOI]

PASO TRES CREA ESTA ASP:


&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Listado de noticias&lt;/title&gt;
&lt;/head&gt;
&lt;body&gt;
&lt;%
'Abre la conexion con la base de datos a traves de una conexion ODBC
Set con = Server.CreateObject(&quot;ADODB.Connection&quot;)
Con.Open &quot;Provider=Microsoft.Jet.OLEDB.4.0; Data Source=&quot; &amp; Server.MapPath(&quot;noticias.mdb&quot;)&amp;&quot ;;&quot;

'Ejecuta un sentencia SQL de consulta
sql = &quot;SELECT * FROM Noticias ORDER BY id DESC&quot;
Set result = con.Execute(sql)
'Recorre todas las filas del resultado
Do While Not result.EOF
' Muestra la fila actual
Response.Write &quot;&lt;p&gt;&lt;b&gt;&lt;font face=Verdana size=1&gt;&lt;a href=noticia.asp?id=&quot; &amp;result.Fields(&quot;id&quot;) &amp; &quot;&gt;&quot;&amp;result.Fields(&quot;titulo&qu ot;)&amp;&quot;&lt;/a&gt;&lt;/b&gt;&lt;br&gt;&lt;font color=&quot;&quot;#696969&quot;&quot;&gt;&amp;#149 ; &quot; &amp;result.Fields(&quot;copete&quot;) &amp; &quot;&lt;/font&gt;&lt;/font&gt;&lt;/p&gt;&quot;

'Pasa a la siguiente fila
result.MoveNext
Loop
'Libera memoria
result.Close
Set result = Nothing
con.Close
Set con = Nothing
%&gt;
&lt;/body&gt;
&lt;/html&gt;

[DARIOI]

PASO CUATRO CREA ESTA ASP:
&lt;%
Set con = Server.CreateObject(&quot;ADODB.Connection&quot;)
Con.Open(&quot;Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=&quot; &amp; _
Server.MapPath(&quot;noticias.mdb&quot;))
sql = &quot;SELECT * FROM Noticias WHERE id=&quot; &amp; Request.QueryString(&quot;id&quot;) &amp; &quot;&quot;

'Ejecuta un sentencia SQL de consulta
'Recorre todas las filas del resultado
set result = Con.Execute(sql)
%&gt;
&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Página nueva &lt;/title&gt;
&lt;/head&gt;
&lt;body&gt;
&lt;p&gt;&lt;font face=&quot;Arial&quot; size=&quot;5&quot; color=&quot;#0080C0&quot;&gt;&lt;%=result(&quot;ti tulo&quot;)%&gt;&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;&lt;font face=&quot;Arial&quot; size=&quot;2&quot;&gt;&lt;strong&gt;&lt;%=result(& quot;copete&quot;)%&gt;&lt;/strong&gt;&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;&lt;font face=&quot;Arial&quot; size=&quot;2&quot;&gt;&lt;%=result(&quot;noticia&q uot;)%&gt;&lt;/font&gt;&lt;/p&gt;
&lt;/body&gt;
&lt;/html&gt;

[DARIOI]

PASO CINCO CREA LA BASE DE DATOS EN ACCESS:

LOS CAMPOS SALEN EN LAS ASP..


LA IMAGEN AUN NO PRUEBEN LUEGO LES ENVIO EL CODIGO A INSERTAR

[pepelucho]

Porq no puedo ver todos los mensajes q me han respondido solo veo 7 . . .

SaLuDoS dE:
PePeLuChO dEl PeRú PaRa El MuNdO ;)

[AlZuwaga]

Mensaje de harg eliminado por problemas en su firma.

El(lla) decía:

Hola Pepelucho, estoy haciendo algo muy pero muy similar, pero lo estoy desarrollando en ColdFusion si me esperas te mando todas las páginas con el código, tiene las opciones para escoger los templates (forma en como se va a desplegar el contenido completo) título de la noticia y lo mejor de todo cierta caducidad de la noticia, si me esperas te lo mando de mientras mándame un mail para tenerte en cuenta a más tardar el día 20 de este mes lo tengo listo. saludos!!!

[pepelucho]

Gracias DAZUAGA!!!

SaLuDoS dE:
PePeLuChO dEl PeRú PaRa El MuNdO ;)