Ir para conteúdo
Fórum Script Brasil
  • 0

Upload com SoftArtisans FileUp


Victor

Pergunta

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

Até agora não há respostas para essa pergunta

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...