É 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 then
If 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 = nothing
ID = 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)
Next
End 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, 3
TotalRecs = rs.recordcount
x = 0
For 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.MoveNext
End If
Next%>
</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">
<% else
data = request.form("date1")
If data = "" Then data = date()
dia = DatePart("d", data)
If dia < 10 Then dia = "0"&dia
mes = DatePart("m", data)
If mes < 10 Then mes = "0"&mes
ano = DatePart("yyyy", data)
data = dia & "/" & mes & "/" & ano
tema = 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>
