Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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.
Carregando comentários...