Ir para conteúdo

POWERED BY:

Arquivado

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

Gilberto Jr

Upload multiplos Salvando em pastas diferentes

Por , em ASP Clássico

Recommended Posts

Gilberto Jr    26

Gilberto Jr
Postado

Pessoal, boa noite.

 

Eu uso o SoftArtisans.FileUp para fazer upload. Eu consigo fazer o upload de mais de uma imagem porem salvando na mesma pasta de destino.

Eu preciso fazer o upload desta forma, com um ou mais arquivos porem salvar em pastas diferentes.

 

Salvando na mesma pasta o codigo ficou desta forma.

<%
	'Instancia o componente
	SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp")
	server.ScriptTimeout=99999 ' aumenta o tempo para enviar aquivos maiores

		'Configura o caminho onde arquivo será salvo
		SaFileUp.Path = Server.MapPath("../img/logo/")
                       'Para Revenda substitua o caminho físico para E:\vhosts\SEU_DOMINIO_COMPLETO\httpdocs\

		'Você pode usar também o caminho relativo se preferir
		'SaFileUp.Path = Server.MapPath("./upload/")

		'Caso o usuário não indique um arquivo para upload, informa erro.
		If SaFileUp.IsEmpty Then
				response.write "<center>Por favor, indique um arquivo para upload.</center><br>"



		'caso o campo foto nao esteja vazio entao faz isso
		Else
			'Salva o arquivo no servidor
		SaFileUp.form("img1").Save
		SaFileUp.form("img2").Save

			foto_logo 		= Right(SaFileUp.Form("img1"),Len(SaFileUp.Form("img1"))-InstrRev(SaFileUp.Form("img1"),"\"))
			foto_formacao 	= Right(SaFileUp.Form("img2"),Len(SaFileUp.Form("img2"))-InstrRev(SaFileUp.Form("img2"),"\"))




end if


response.write ("<script>alert('imagens salvas com sucesso!');location='index.asp';</script>")

%>

o arquivo foto_logo tem que ficar em uma pasta e a foto_formacao tem que ficar em outra.

 

Vcs poderiam me da um help?

 

Grato

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

Vi superficialmente o script, mas acho que o caminho seria mais ou menos este:

if SaFileUp.form("img1") not = "" then
SaFileUp.Path = Server.MapPath("./upload/")
		SaFileUp.form("img1").Save
end if
if SaFileUp.form("img2") not = "" then
SaFileUp.Path = Server.MapPath("./upload/outra_pasta")
		SaFileUp.form("img2").Save
end if

 

A ideia seria mais ou menos isso, você verifica individualmente se cada campo do formulário está vazio ou não, e caso não esteja, irá salvar numa determinada pasta.

Não testei, mas acho que com alguma adaptação deve rodar como deseja.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este exemplo de Upload de vários arquivos com componente SmartUpload.

 

 

formulário

<HTML>
<BODY BGCOLOR="white">

<H1>aspSmartUpload</H1>
<HR>

<FORM METHOD="POST" ACTION="upload.asp" ENCTYPE="multipart/form-data">
  <INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
  <INPUT TYPE="FILE" NAME="FILE2" SIZE="50"><BR>
  <INPUT TYPE="FILE" NAME="FILE3" SIZE="50"><BR>
  <INPUT TYPE="FILE" NAME="FILE4" SIZE="50"><BR>
  <INPUT TYPE="FILE" NAME="FILE5" SIZE="50"><BR>
  <INPUT TYPE="SUBMIT" VALUE="Upload">
</FORM>

</BODY>
</HTML>

 

 

upload.asp

<%
'  Variáveis
'  *********
  Dim mySmartUpload
  Dim file
  Dim oConn
  Dim oRs
  Dim intCount
  Dim varevento
  Dim pasta
  intCount=0
  varevento = 1

'  Cria objeto
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
  mySmartUpload.Upload

  pasta = mySmartUpload.Save("upload")

  'Conecta o BD
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  curDir = Server.MapPath("Sample.mdb")
  oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"


'  Abre o recordset
'  ****************
  strSQL = "SELECT FILENAME,FILE, COD_EVENTO FROM TFILES"

  Set oRs = Server.CreateObject("ADODB.recordset")
  Set oRs.ActiveConnection = oConn
  oRs.Source = strSQL
  oRs.LockType = 3
  oRs.Open

'  Seleciona o arquivo
'  ****************
  For each file In mySmartUpload.Files
  '  Verifica a existência do arquivo
  '  **********************
     If not file.IsMissing Then

     '  Adiciona os dados no BD
     '  **********************************
        oRs.AddNew
        file.FileToField oRs.Fields("FILE")
                oRs("FILENAME") = "upload/" & file.FileName
                oRs("COD_EVENTO") = varevento
        oRs.Update
        intCount = intCount + 1
     End If
  Next

'  Indica o número de arquivos transferidos
'  ************************************
  Response.Write(intCount & " arquivo(s) transferidos.<BR>")

'  Quebra variáveis
'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing 
  Set oConn = Nothing 
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito