eclass.unmer.ac.id

<%
contador = 1
nomeFinal = request.cookies("nomeFinal")

'Bom, o código é engessado, afinal é ASP, apenas atentem aos comentários para saber o que precisa mudar e o que não precisa. Essa variável DestinationPath é o caminho, no caso do meu é a pasta imagens
Dim DestinationPath
DestinationPath = Server.MapPath("../fotos/"&nomeFinal)

Dim Form: Set Form = New ASPForm

%>

<%

Dim UploadID, PostURL

UploadID = Form.NewUploadID

Server.ScriptTimeout = 2000

if len(UploadID)>0 then
Form.UploadID = UploadID'{/b}
end if
Const fsCompletted = 0

If Form.State = fsCompletted Then
if Form.State = 0 then
Dim FileField
For Each FileField in Form.Files.Items

'Esse campo nome é o nome que o arquivo terá....manterei o nome de origem
nome = FileField.Filename

FileField.SaveAs DestinationPath & nome

'Pronto!!!
next

End If
'Caso o arquivo entre aqui é por que estourou o limite de bytes, então é um aviso, é bom manter esse código abaixo
ElseIf Form.State > 10 then
Const fsSizeLimit = &HD
Select case Form.State
case fsSizeLimit: response.write "<span style=""color: red;"">O arquivo enviado (" & Form.TotalBytes & "B) excede o limite de bytes (" & Form.SizeLimit & "B)</span>"
case else response.write "<span style=""color: red;"">Alguns erros encontrados.</span>"
end Select
End If