Ir para conteúdo

POWERED BY:

Arquivado

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

alexandroferreira

[Resolvido] Upload de vários arquivos funcionando

Por , em ASP Clássico

Recommended Posts

alexandroferreira    0

alexandroferreira
Postado

Passei esses dias pesquisando um código para fazer um sisteminha de upload de vários arquivos. Após fazer algumas adaptações nos exemplos encontrados na net, segue o código prontinho. Componente utilizado: SmartUpload.

 

Código HTML

 

<HTML>
<BODY BGCOLOR="white">

<H1>aspSmartUpload : Sample 4</H1>
<HR>

<FORM METHOD="POST" ACTION="Sample4.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>

---------------------------------------------------------------------------

 

Código 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 
%>

 

Espero que seja útil para alguns de vocês.

 

 

Abraços.

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