Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Galera,
To com um problemão num adm que to desenvolvendo...
é o seguinte...
o adm faz inclusão de notícias e nas noticias existem imagens que faço upload com um upload sem componente que peguei aqui no forum....
o problema é que na hora de alterar alguma notícia, não estou conseguindo alterar os campos das imagens....todo o resto altera, mas se coloco o campo das imagens da erro...
a inclusão funciona certinho...o pau é só na alteração mesmo...
a página de inclusão é essa:
<!--#Include file="upload.asp"-->
<link href="inc/estilo.css" rel="stylesheet" type="text/css">
<script>
function vazio(){
var titulo = document.form.titulo.value;
var chamada = document.form.chamada.value;
var conteudo = document.form.conteudo.value;
if(titulo == ""){
alert("Informe o Titulo da notícia");
document.form.titulo.focus();
return false;
}
if(chamada == ""){
alert("Digite a Chamada da notícia");
document.form.chamada.focus();
return false;
}
if(conteudo == ""){
alert("Digite o Conteudo da notícia");
document.form.conteudo.focus();
return false;
}
}
</script>
<form name="form" id="form" method="post" action="incluinoticiafinal.asp" onsubmit="return vazio()" enctype="multipart/form-data">
<table border="0" align="left" width="330">
<tr>
<td align="right" valign="top" class="caixa_texto">Título:</td>
<td><input name="titulo" type="text" class="caixa_texto" size="63" maxlength="255" /></td>
</tr>
<tr>
<td align="right" valign="top" class="caixa_texto">Chamada:</td>
<td><input name="chamada" type="text" class="caixa_texto" size="63" maxlength="255" /></td>
</tr>
<tr>
<td align="right" valign="top" class="caixa_texto">Conteudo:</td>
<td><textarea name="conteudo" cols="62" rows="12" class="caixa_texto"></textarea></td>
</tr>
<tr>
<td align="right" valign="top" class="caixa_texto">Imagem:</td>
<td><input name="foto" type="file" class="caixa_texto" id="foto" /></td>
</tr>
<tr>
<td align="right" valign="top" class="caixa_texto">Habilitar:</td>
<td><select name="ativa" class="caixa_texto">
<option value="s">Sim</option>
<option value="n">Não</option>
</select></td>
</tr>
<tr>
<td align="right" valign="top" class="caixa_texto">Destaque</td>
<td><select name="destaque" class="caixa_texto" id="destaque">
<option value="s">Sim</option>
<option value="n" selected="selected">Não</option>
</select></td>
</tr>
<tr>
<td colspan="2" align="right">
<input type="submit" class="caixa_texto" value="Incluir Notícia" /> </td>
</tr>
</table>
</form><!--#Include File="session.asp"-->
<!--#Include File="conexao.asp"-->
<!--#Include file="upload.inc"-->
<link href="inc/estilo.css" rel="stylesheet" type="text/css">
<%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
dim Titulo, Conteudo, Ativa, cfoto, destaque, dtNoticia
' Recuperando os Dados Digitados ----------------------
Titulo = Replace(UploadRequest.Item("titulo").Item("Value"),"'","")
Chamada = Replace(UploadRequest.Item("chamada").Item("Value"),"'","")
Conteudo = Replace(UploadRequest.Item("conteudo").Item("Value"),"'","")
Ativa = UploadRequest.Item("ativa").Item("Value")
destaque = UploadRequest.Item("destaque").Item("Value")
If Ativa = "s" Then
Ativa = "1"
Else
ativa = "0"
End If
If destaque = "s" Then
destaque = "1"
Else
destaque = "0"
End If
' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")
' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")
' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))
' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto").Item("Value")
' pasta onde as imagens serao guardadas
pasta = Server.MapPath("/fotos/")
nome_foto = "/"&nome_foto
' pasta + nome dos arquivos
cfoto = nome_foto
' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
MyFile.Write chr(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if
'ABRIR A CONEXÃO
Call AbreConn()
' INSERIR AS NOTICIAS NO BANCO DE DADOS
sql = "INSERT INTO tbNoticia (titulo, chNoticia, dtNoticia, vcNoticia, imagem, ynNoticia, destaque) " &_
"VALUES ('" & titulo & "', '" & chamada & "', Now(), '" & conteudo & "', '" & cfoto & "', " & ativa & ", " & destaque & ")"'EXECUTAR A INSTRUÇÃO NO BANCO DE DADOS
Conn.Execute(sql)
'FECHAR A CONEXÃO
Call FechaConn
%>
<div align="center" class="azul">
<%if ativa = "1" then%>
<%Response.Write("A notícia está disponível no site!")%><br><br>
<%else%>
<%Response.Write("A noticia foi incluída, mas não está disponível no site!")%><br><br>
<%end if%>
</div>
<!-- SCRIPT QUE APRESENTA UMA MENSAGEM DE NOTICIA GRAVADA COM SUCESSO E DIRECIONA PARA A PÁGINA QUE LISTA TODAS AS NOTÍCIAS -->
<script type="text/javascript">
alert("Notícia Inserida com Sucesso!");
window.location="noticias.asp";
</script>as de alteração são essas:
<!--#Include File="session.asp"-->
<!--#Include File="conexao.asp"-->
<%
dim Vid, sql, rs, sel, dest
Vid = Request.QueryString("id")
Call AbreConn()
sql = "Select * From tbNoticia Where inNoticia = " & Vid
Set rs = conn.Execute (sql)
%>
<script>
function vazio(){
var titulo = document.form.titulo.value;
var conteudo = document.form.conteudo.value;
if(titulo == ""){
alert("Informe o Titulo da notícia");
document.form.titulo.focus();
return false;
}
if(conteudo == ""){
alert("Informe o Conteudo da notícia");
document.form.conteudo.focus();
return false;
}
}
</script>
<link href="inc/estilo.css" rel="stylesheet" type="text/css">
<form name="form" id="form" method="post" action="alteranoticiafinal.asp" onsubmit="return vazio()">
<input type="hidden" name="id" value="<%=Vid%>">
<table border="0" align="left" width="330">
<tr>
<td align="right" valign="top" class="caixa_texto">Titulo:</td>
<td><input name="titulo" type="text" class="caixa_texto" id="titulo" value="<%=rs("titulo")%>" size="63" maxlength="255" /></td>
</tr>
<tr>
<td align="right" valign="top" class="caixa_texto">Chamada:</td>
<td><input name="chamada" type="text" class="caixa_texto" id="chamada" value="<%=rs("chNoticia")%>" size="63" maxlength="255" /></td>
</tr>
<tr>
<td align="right" valign="top" class="caixa_texto">Conteudo:</td>
<td><textarea name="conteudo" cols="62" rows="12" class="caixa_texto"><%=rs("vcNoticia")%></textarea></td>
</tr>
<tr>
<td align="right" valign="top" class="caixa_texto">Habilitar:</td>
<td><select name="ativa" class="caixa_texto" selected="<% <option value="s">Sim</option>
<option value="n"<%=sel%>>Não</option>
</select></td>
</tr>
<tr>
<td align="right" valign="top" class="caixa_texto">Destaque:</td>
<td><select name="destaque" class="caixa_texto" id="destaque" selected="<%Call FechaConn()
%>">
<option value="s">Sim</option>
<option value="n"<%=dest%>>Não</option>
</select></td>
</tr>
<tr>
<td colspan="2" align="right">
<input type="submit" class="caixa_texto" value="Alterar Notícia" /> </td>
</tr>
</table>
</form><!--#Include File="session.asp"-->
<!--#Include File="conexao.asp"-->
<link href="inc/estilo.css" rel="stylesheet" type="text/css">
<%
Dim rs, sq, Vid, titulo
Vid = Request.Form("id")
titulo = Replace(Request("titulo"),"'","")
Vchamada = Replace(Request("chamada"),"'","")
Vconteudo = Replace(Request("conteudo"),"'","")
Vativa = Request.Form("ativa")
Vdestaque = Request.Form("destaque")
if Vativa = "s" then
Vativa = "true"
else
Vativa = "false"
end if
if Vdestaque = "s" then
Vdestaque = "true"
else
Vdestaque = "false"
end if
Call AbreConn()
sq = "Update tbNoticia Set" & _
" titulo = '" & titulo & "'" & _
", chNoticia = '" & Vchamada & "'" & _
", vcNoticia = '" & Vconteudo & "'" & _
", ynNoticia = " & Vativa & _
", destaque = " & Vdestaque & _
" Where inNoticia=" & Vidconn.execute(sq)
Call FechaConn()
%>
<div align="center" class="azul">Atualizando a notícia, Aguarde!!!</div>
<script type="text/javascript">essas páginas de alteração nao tem os campos de imagens para alterar, sem esses campos funcionam certinho...
alguém pode me ajudar a colocar os campos de imagens para fazer o update na tabela?
obrigado galera...
abraços
Carregando comentários...