Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Paulo Cézar Júnior

Como criar opção para editar a notícia que está salva

Recommended Posts

Oi pessoal beleza...

 

É o seguinte a´página abaixo exibe as notícias cadastradas no meu DB, e nessa tela eu posso também selecionar as notícias que eu quero deletar. Seleciono a caixa de seleção e clico no botão para excluir notícia selecionada.

 

Eu quero criar uma opção como essa de escluir, só que uma opção para editar as notícias. Tipo pra cada notícia que o sistema exibir ele deverá mostrar tb uma opção para editar a notícia.

 

Nesse mesmo sistema eu tenho uma tela, submit que cadastra a notícia e depois de cadastrada abre outra para enviar a foto. Neste caso como eu poderia melhorar esse sistema. Tem como também editar a foto, ou seja, alterar o arquivo que estava na notícia sado eu deseje. Como posso fazer um botão editar para fazer essas alterações.

 

Abaixo publiquei o código da página que exibe todas a snotícias cadastradas e mais abaixo o código da página que é responsável para cadastrar as notícias...

 

<!--#include file="config.asp"--><%Response.Buffer = True%><!--#INCLUDE FILE="config.inc"--><!--#INCLUDE FILE="level1.inc"--><%'***********************************************************************'**		  Sistema de Notícias desenvolvido pela TemisNet		   **'**		   Contatos: Temístocles Sota  - ICQ 104458476			 **'**					http://www.temisnet.com.br					 **'***********************************************************************%><html><head><title><%=TS%></title><link rel="stylesheet" type="text/css" href="estilo.css"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#E0E0E0" text="#000000"><form method="POST" action="admin2.asp?flag=1">  <% flag = request.querystring("flag")if flag = 1 thenIf IsEmpty(request.form("ID")) then %>  <p align=center>  <table width=450 border=1 align="center" cellpadding=0 cellspacing=0 bordercolor=#CCCCCC bgcolor="#6699CC">	<tr><td width=415> 		<p align=center><font color="#FFFFFF" size="2" face="Verdana">Erro ao Excluir</font></p>	  </td></tr><tr>	  <td width=415 bgcolor=#FFFFFF> 		<p align=center><font face=Verdana size=2>Para excluir uma ou mais notícias 		  selecione a mesma.</font></p>	  </td></tr></table><% End If		set rs = nothingID = request.form("ID")		set conn = server.createobject("adodb.connection")		conn.Open Dados		For each record in request("ID")			sqlstmt = "DELETE * from noticias WHERE ID="& record			Set RS = conn.execute(sqlstmt)		NextEnd If %>  <br><div align="center">  <center>	  <table width="450" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC" bgcolor="#6699CC">		<tr>		  <td width="415">			<div align="center"><font color="#FFFFFF" size="2" face="Verdana">APAGUE AS NOTÍCIAS, 			  ASSINALANDO E CLICK EM APAGAR</font></div>		  </td>	</tr><% set rs = nothing		  sqlstmt = "SELECT * FROM noticias ORDER BY data, id ASC"		  Set rs = Server.CreateObject("ADODB.Recordset")		  rs.Open sqlstmt, Dados, 3, 3TotalRecs = rs.recordcountx = 0For x = 1 to 9999	If rs.eof then		Exit For	Else		date1 = rs("data")		id = rs("ID")		name = rs("titulo")		  link = "<a href='view.asp?id=" & id & "'>" & date1 & "</a>"		description = name %>	<tr>		  <td width="415" bgcolor="#FFFFFF"><input type="checkbox" name="ID" value="<% =id %>">			<font face="Verdana" size="2">			<% =link%>			  -- 			<% =description%>			</font></td>	</tr>		<% rs.MoveNextEnd IfNext%>	  </table>  </center></div>     <p align="center">	<input type="submit" value="APAGAR" name="B1">	<br>	<br>	<font face="Verdana" size="2"><b>  <a href="submit.asp">Enviar novas 	notícias</a></b></font></p>  <table width="450" border="0" align="center" cellpadding="0" cellspacing="0">	<tr>	  <td bgcolor="#FFFFFF"><div align="center">	  <%	  Response.Write "<p><font size=1 face= Verdana, Arial, Helvetica, sans-serif><a href=""utility.asp?method=abandon"">Sair</font></a>"%></div></td>	</tr>  </table>  </form></body></html>

 

Página responsável pelo envio da notícia.

<!--#include file="config.asp"--><%Response.Buffer = True%><!--#INCLUDE FILE="config.inc"--><!--#INCLUDE FILE="level1.inc"--><%'***********************************************************************'**		  Sistema de Notícias desenvolvido pela TemisNet		   **'**		   Contatos: Temístocles Sota  - ICQ 104458476			 **'**					http://www.temisnet.com.br					 **'***********************************************************************%><html><head><title><%=TS%></title><link rel="stylesheet" type="text/css" href="estilo.css"><style>input {border: 2 solid #000000}</style><script language=Javascript>function preview1(){if (form.titulo.value == ""){div1.innerHTML = "<p align=center><br><br><br><br><b>É recomendado que você de um titulo a notícia!<br><br><input type='text' name='titulo2' value='' size='62' onchange=name1change()><br><br>Coloque acima o titulo para continuar!</b></p>"}else{div1.innerHTML = "<B>"+ form.titulo.value + "--" + form.date1.value + "</b><br><br>" + form.conteudo.value}}function name1change(){form.titulo.value = form.titulo2.value}</script><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><STYLE type="text/css"><!--BODY {scrollbar-face-color: FFFFFF;scrollbar-highlight-color: 6060FF;scrollbar-3dlight-color: 404080;scrollbar-darkshadow-color: 404080;scrollbar-shadow-color: 6060FF;scrollbar-arrow-color: 404080;scrollbar-track-color: FFFFFF;}--></STYLE></head><body bgcolor="#E0E0E0" text="#000000"><% inputnum = request.querystring("inputnum")If IsEmpty(inputnum) or inputnum = "" then %><form id=form method="POST" action="submit.asp?inputnum=1">	<center>	<table width="460" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999">	  <tr> 		<td width="460" height="20" bgcolor="#CCCCCC"> 		  <table width="440" border="0" cellspacing="0" cellpadding="0">			<tr> 			  <td width="106" height="20" bgcolor="#6699CC"> 				<div align="center"><b><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">INSERIR</font></b></div></td>			  <td width="334" bgcolor="#CCCCCC"> </td>			</tr>		  </table>		</td>	  </tr>	  <tr> 		<td align="right"> 		  <div align="center"> 			<table width="460" border="0" cellspacing="0" cellpadding="0">			  <tr> 				<td width="460" align="left" bgcolor="#FFFFFF"> 				  <div align="center"> 					<table width="460" border="0" cellspacing="0" cellpadding="0">					  <tr valign="top"> 						<td width="0"> </td>						<td width="0" height="19"> </td>						<td width="0" height="19"> </td>						<td width="0" height="19"> </td>					  </tr>					  <tr valign="top">						<td> </td>						<td height="30"><strong>Região:</strong></td>						<td height="30"> </td>						<td height="30"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">						  <select name="regiao" id="regiao">							<option value="1" selected>Rio Claro</option>							<option value="2">Dracena</option>						  </select>						  </font></td>					  </tr>					  <tr valign="top"> 						<td width="10"> </td>						<td width="51" height="30"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Categoria:</strong></font></td>						<td width="9" height="30"> </td>						<td width="368" height="30"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 						  <select name="categoria" id="categoria">							<option value="1">Ciência</option>							<option value="2">Compras</option>							<option value="3">Cultura</option>							<option value="4">Economia</option>							<option value="5">Entretenimento</option>							<option value="6">Especial</option>							<option value="7">Esporte</option>							<option value="8">Gente</option>							<option value="9">Informática</option>							<option value="10">Mega-Sena</option>							<option value="11">Moda</option>							<option value="12">Política</option>							<option value="13">Segurança</option>							<option value="14">Serviço</option>							<option value="15">Tecnologia</option>							<option value="16">Televisão</option>							<option value="17">Tempo</option>							<option value="18">Turismo</option>							<option value="19">Vida e Saúde</option>							<option value="20">Transportes</option>							<option value="21">Notícias</option>							<option value="22">JORI</option>						  </select>						  </font></td>					  </tr>					  <tr valign="top"> 						<td width="10"> </td>						<td height="30"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Descrição:</strong></font></td>						<td width="9" height="30"> </td>						<td height="30"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 						   						  <!--webbot bot="Validation" b-value-required="TRUE" i-maximum-length="65" -->						  <input name="descricao" type="text" id="descricao2" value="" size="50" maxlength="65">						  </font></td>					  </tr>					  <tr valign="top"> 						<td width="10"> </td>						<td height="30"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Título:</b></font></td>						<td width="9" height="30"> </td>						<td height="30"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 						  <input type="text" name="titulo" value="" size="50">						  </font></td>					  </tr>					  <tr valign="top"> 						<td width="10"> </td>						<td height="150"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Notícia:</b></font></td>						<td width="9" height="150"> </td>						<td height="150" align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 						  <textarea rows="8" name="conteudo" cols="55" style="border-style: solid; border-width: 2">			  </textarea>						  </font></td>					  </tr>					  <tr> 						<td width="10"> </td>						<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Data:</b></font></td>						<td width="9"> </td>						<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 						  <input type="text" name="date1" value="<%=Date%>" size="13">						  <b>  <a onClick="preview1()" name="prev" href="#prev">Clique 						  aqui para visualizar a notícia.</a></b> </font></td>					  </tr>					  <tr> 						<td> </td>						<td><strong>Hora:</strong></td>						<td> </td>						<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 						  <input name='hora' type='text' id='hora' value='<%=Response.Write( hour(now()) & ":" & minute(now()) & ":" & second(now()))%>' size='15'>						  </font></td>					  </tr>					  <tr> 						<td> </td>						<td> </td>						<td> </td>						<td> </td>					  </tr>					</table>				  </div></td>			  </tr>			</table>		  </div></td>	  </tr>	</table>	<div align="center"><br>	  <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>	  </font> </div>	<table width="462" height="243" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999">	  <tr>		<td width="124" height="21"> 		  <table border="0" cellpadding="0" cellspacing="0" width="463" height="21">			<tr> 			  <td width="106" bgcolor="#6699CC" height="20" align="center"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#FFFFFF">VISUALIZAR</font></b></font></div></td>			  <td width="319" bgcolor="#CCCCCC" height="21"> </td>			</tr>		  </table>		</td>	  </tr>	  <tr>		<td align="center" bgcolor="#FFFFFF" width="451" height="222">		<div id="div1" style="width: 448px; height: 220px">		<div align="center"><font size=1 face= Verdana, Arial, Helvetica, sans-serif></div></td>	  </tr>	</table>	<font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>	<input type="submit" value="ENVIAR NOTÍCIA PARA O SITE" name="B1" style="font-family: Arial; font-size: 8 pt">	</font>   </center></form><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><% elsedata = request.form("date1")If data = "" Then data = date()dia = DatePart("d", data)If dia < 10 Then dia = "0"&diames = DatePart("m", data)If mes < 10 Then mes = "0"&mesano = DatePart("yyyy", data)data = dia & "/" & mes & "/" & anotema = Replace(Replace(Request("tema"),Chr(13),"<br>"),"'","")Response.write tema & "<br>"categoria = Request("categoria")Response.write tema & "<br>"titulo = Replace(Replace(Request("titulo"),Chr(13),"<br>"),"'","")Response.write titulo & "<br>"descricao = Replace(Replace(Request("descricao"),Chr(13),"<br>"),"'","")Response.write descricao & "<br>"conteudo = Replace(Replace(Request("conteudo"),Chr(13),"<br>"),"'","")Response.write Conteudo & "<br>"hora = hour(time) & ":" & minute(time) & ":" & second(time)	Set Conn = Server.CreateObject("adodb.connection")	conn.Open Dados		SQLstmt = "INSERT INTO noticias (regiao,categoria,descricao,titulo,data, hora,conteudo)"	SQLstmt = SQLstmt & " VALUES (" 	SQLstmt = SQLstmt & regiao & ","	SQLstmt = SQLstmt & categoria & ","	SQLstmt = SQLstmt & "'" & descricao & "',"	SQLstmt = SQLstmt & "'" & titulo & "',"	SQLstmt = SQLstmt & "'" & data & "',"	SQLstmt = SQLstmt & "'" & hora & "',"	SQLstmt = SQLstmt & "'" & conteudo & "')"	SQL = "SELECT * FROM noticias order by id desc"	Set RS = conn.execute(SQLstmt)		Set RS2 = conn.execute(SQL)			response.redirect "submit2.asp?id="&RS2("id")end if %></font><table width="450" border="0" align="center" cellpadding="0" cellspacing="0">  <tr>	<td bgcolor="#FFFFFF"><div align="center">		<%	  Response.Write "<p><font size=1 face= Verdana, Arial, Helvetica, sans-serif><a href=""utility.asp?method=abandon"">Sair</font></a>"%>	  </div></td>  </tr></table></body>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom na verdade você ja pegou esse código pronto correto? então o que você tem que saber é reestruturar o código, muitas vezes é melhor construir um novo do que reestruturar... (isso vai muito do profissional) mas o que você quer fazer não é muito dificil.Vamos a modelagem primeiramenteClient sidenoticias.asp ' página que exibe as notíciasAdminstrator side' noticiasinc_processo_1.asp ' processo 1 de inclusão de notícias (Formulário)inc_processo_2.asp ' processo 2 de inclusão de notícias (Script Asp que cadastra o conteúdo no BD)con_processo_1.asp 'consulta as notícias cadastradascon_processo_2.asp ' exibe as informações da notícias em um formulárioatu_processo_1.asp ' atualiza as informacoes modificadas no "con_processo_2.asp" exc_processo_1.asp ' exclui a notícia selecionada ou as notícias selecionadas' fotos (essa parte pode ser chamada através de uma pop up quando estiver usando o "con_processo_2.asp" de notícias.)con_foto_processo_1.asp ' exibe lista das fotos cadastradascon_foto_processo_2.asp ' exibe a imagem seleciona em "con_foto_processo_1.asp"atu_foto_processo_1.asp 'exibe formulário para atualização da foto vista em "con_foto_processo_2.asp"inc_foto_processo_1.asp ' exibe formulário para cadastro de fotoinc_foto_processo_2.asp ' cadastra a foto no BDEspero ter ajudado.qualquer coisa da um toque ae pra gente.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.