|
|
 |
'Include file
<%
Option Explicit
'Deklarasi variabel
Dim ResultHTML, DestinationPath, Upload, Field
Server.ScriptTimeout = 200
'Folder untuk menyimpan file yang diupload
DestinationPath = Server.MapPath(".")
'Folder untuk menyimpan log dari file yang diupload
LogFolder = Server.MapPath(".")
'batas besarnya file
UploadSizeLimit = 1000000
'Metode request dari Form harus "POST"
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
'mengambil field2 file yang diupload
Set Upload = GetUpload()
ResultHTML = ""
'Jika upload sukses
If Err = 0 Then
For Each Field In Upload.Items
If isarray(Field) Then
else
ResultHTML = ResultHTML & "
Field : "
ResultHTML = ResultHTML & LogF(Field.Name) & ", Length : "
ResultHTML = ResultHTML & LogFn(Field.Length)
ResultHTML = ResultHTML & ", Content-Type : "
ResultHTML = ResultHTML & LogF(Field.ContentType)
ResultHTML = ResultHTML & ", SourceFileName : "
ResultHTMl = ResultHTML & LogF(Field.FileName) & ""
end if
Next
ResultHTML = ResultHTML & "
"
ResultHTML = ResultHTML & SaveUpload(Upload, DestinationPath, LogFolder)
Else 'Jika error. Tampilkan pesan Error
ResultHTML = ResultHTML & "
Error : " & Err.Description
End If
'Tampilkan pesan di Browser
Response.Write ResultHTML
On Error GoTo 0
Upload = Empty 'Mengosongkan variabel
End If
%>
|
|
 |
|
|
|
|
