<%
Set RecSet = Server.CreateObject("adodb.recordset")
if Request.QueryString("upload") <> "" then
session("upload") = Request.QueryString("upload")
end if
if Request.QueryString("acao") = "gravar" then
Set upl = Server.CreateObject("SoftArtisans.FileUp")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
on error Resume Next
nome_foto = Mid(upl.UserFilename, InstrRev(upl.UserFilename, "\") + 1)
if FSO.FileExists(endereco_fisico&"\imagens\"&nome_foto) = False Then
if Request.QueryString("recorte") = "sim" then
RecSet.Open "Select foto_recorte from promocao where id = "&session("upload")&"", conn
foto_antiga = RecSet("foto_recorte")
RecSet.Close
FSO.DeleteFile endereco_fisico&"\imagens\"&foto_antiga
upl.Path = endereco_fisico&"\imagens\"
upl.Save
Conn.Execute "Update promocao set foto_recorte = '"&nome_foto&"' where id = "&session("upload")&""
else
RecSet.Open "Select foto from promocao where id = "&session("upload")&"", conn
foto_antiga = RecSet("foto")
RecSet.Close
FSO.DeleteFile endereco_fisico&"\imagens\"&foto_antiga
upl.Path = endereco_fisico&"\imagens\"
upl.Save
Conn.Execute "Update promocao set foto = '"&nome_foto&"' where id = "&session("upload")&""
end if
else
Response.Write "<script>alert('o sistema encontrou um outro arquivo com este mesmo nome, por favor renomeio o arquivo para prosseguir...')</script>"
end if
Set upl = Nothing
Set FSO = Nothing
end if
RecSet.Open "Select * from promocao where id = "&session("upload")&"", conn
t=RecSet("titulo")
foto=RecSet("foto")
foto_r=RecSet("foto_recorte")
RecSet.Close
%>
<body topmargin=0 leftmargin=0 rightmargin=0 bottommargin=0>
<form method=post enctype="multipart/form-data" action="upload.asp?acao=gravar&recorte=<%=Request.QueryString("recorte")%>">
<table border=0 bgcolor="#CC0033" width="100%">
<tr height=20>
<td align=center width="100%"><font color="#FFFFFF">Sistema de Envio de Imagens</font></td>
</tr>
<tr height=452 bgcolor=#FFFFFF>
<td align=center valign=top width="100%">
ID.: <b><%=session("upload")%></b><br>
<table border=1 width="100%" height="97%" style="border-collapse: collapse">
<tr height=20>
<td width="100%" align=center><%=t%></td>
</tr>
<tr>
<td colspan=4>
<table border=0 width="100%" height="100%" style="border-collapse: collapse">
<tr width="100%" height="80%">
<td align=center>
<%
if Request.QueryString("recorte") = "sim" then
if IsNull(foto_r) = true then%>
não existe imagem cadastrada para este produto...
<%else%>
<img src="<%=endereco_virtual%>/imagens/<%=foto_r%>"><%
end if
else
if IsNull(foto) = true then%>
não existe imagem cadastrada para este produto...
<%else%>
<img src="<%=endereco_virtual%>/imagens/<%=foto%>"><%
end if
end if
%>
</td>
</tr>
<tr width="100%" height="10%">
<td>
<input type=file name=up_foto size=30 class=form>
</td>
</tr>
<tr width="100%" height="10%">
<td>
<input type=submit value=Enviar class=form>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr height=20>
<td align=center width="100%"><font color="#FFFFFF">Sistema de Envio de Imagens</font></td>
</tr>
</table>
</form>
</body>
Pergunta
Victor
Fazendo upload
upload.asp
<% Set RecSet = Server.CreateObject("adodb.recordset") if Request.QueryString("upload") <> "" then session("upload") = Request.QueryString("upload") end if if Request.QueryString("acao") = "gravar" then Set upl = Server.CreateObject("SoftArtisans.FileUp") Set FSO = Server.CreateObject("Scripting.FileSystemObject") on error Resume Next nome_foto = Mid(upl.UserFilename, InstrRev(upl.UserFilename, "\") + 1) if FSO.FileExists(endereco_fisico&"\imagens\"&nome_foto) = False Then if Request.QueryString("recorte") = "sim" then RecSet.Open "Select foto_recorte from promocao where id = "&session("upload")&"", conn foto_antiga = RecSet("foto_recorte") RecSet.Close FSO.DeleteFile endereco_fisico&"\imagens\"&foto_antiga upl.Path = endereco_fisico&"\imagens\" upl.Save Conn.Execute "Update promocao set foto_recorte = '"&nome_foto&"' where id = "&session("upload")&"" else RecSet.Open "Select foto from promocao where id = "&session("upload")&"", conn foto_antiga = RecSet("foto") RecSet.Close FSO.DeleteFile endereco_fisico&"\imagens\"&foto_antiga upl.Path = endereco_fisico&"\imagens\" upl.Save Conn.Execute "Update promocao set foto = '"&nome_foto&"' where id = "&session("upload")&"" end if else Response.Write "<script>alert('o sistema encontrou um outro arquivo com este mesmo nome, por favor renomeio o arquivo para prosseguir...')</script>" end if Set upl = Nothing Set FSO = Nothing end if RecSet.Open "Select * from promocao where id = "&session("upload")&"", conn t=RecSet("titulo") foto=RecSet("foto") foto_r=RecSet("foto_recorte") RecSet.Close %> <body topmargin=0 leftmargin=0 rightmargin=0 bottommargin=0> <form method=post enctype="multipart/form-data" action="upload.asp?acao=gravar&recorte=<%=Request.QueryString("recorte")%>"> <table border=0 bgcolor="#CC0033" width="100%"> <tr height=20> <td align=center width="100%"><font color="#FFFFFF">Sistema de Envio de Imagens</font></td> </tr> <tr height=452 bgcolor=#FFFFFF> <td align=center valign=top width="100%"> ID.: <b><%=session("upload")%></b><br> <table border=1 width="100%" height="97%" style="border-collapse: collapse"> <tr height=20> <td width="100%" align=center><%=t%></td> </tr> <tr> <td colspan=4> <table border=0 width="100%" height="100%" style="border-collapse: collapse"> <tr width="100%" height="80%"> <td align=center> <% if Request.QueryString("recorte") = "sim" then if IsNull(foto_r) = true then%> não existe imagem cadastrada para este produto... <%else%> <img src="<%=endereco_virtual%>/imagens/<%=foto_r%>"><% end if else if IsNull(foto) = true then%> não existe imagem cadastrada para este produto... <%else%> <img src="<%=endereco_virtual%>/imagens/<%=foto%>"><% end if end if %> </td> </tr> <tr width="100%" height="10%"> <td> <input type=file name=up_foto size=30 class=form> </td> </tr> <tr width="100%" height="10%"> <td> <input type=submit value=Enviar class=form> </td> </tr> </table> </td> </tr> </table> </td> </tr> <tr height=20> <td align=center width="100%"><font color="#FFFFFF">Sistema de Envio de Imagens</font></td> </tr> </table> </form> </body>Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.