Ektron® eWebEditPro Developer's Reference Guide

ReceiveSubmittedFiles ' Saves the submitted files.
Automatic Upload
Response.Write("Client version is: " & g_iClientMajorRev & "." & g_iClientMinorRev &
"")
Response.Write("There were " & g_iFileCount & " files uploaded.")
'''''''''''''''''''''''''''''''''''''''''''''''''
' Call the routine to save the submitted files
' to local locations.
' This also processes the uploaded files and
' generates the response data.
Sub ReceiveSubmittedFiles()
Dim BinaryFormData, uploadObj, fileObj, ServerLocation
Dim strNewFileName, strFileLoc, ErrorCode, iFileIdx
BinaryFormData = Request.BinaryRead(Request.TotalBytes)
set uploadObj = CreateObject("eWepAutoSvr.EkFile")
ServerLocation = "/images" ' Hard coded the location for this sample.
strNewFileName = uploadObj.EkFileSave(BinaryFormData, "uploadfilephoto", _
Server.MapPath(ServerLocation), ErrorCode, "makeunique")
g_iFileCount = uploadObj.FileCount()
If g_iFileCount > 0 then
Do while iFileIdx < g_iFileCount
iFileIdx = iFileIdx + 1
Set fileObj = uploadObj.FileObject(iFileIdx)
strNewFileName = fileObj.FileName()
strFileLoc = "HTTP://" & Request.ServerVariables("SERVER_NAME") & ServerLocation &
"/" & strNewFileName
fileObj.FileUrl(strFileLoc)
fileObj.Thumbnail(CreateThumbnail(strFileLoc))
fileObj.ThumbReference(ExtractThumbnailRef(strFileLoc))
loop
End Sub
%>
'Retrieve global data
g_strDataIslandID = uploadObj.ResponseID()
g_iClientMajorRev = uploadObj.ClientMajorRev()
g_iClientMinorRev = uploadObj.ClientMinorRev()
Response.Write(uploadObj.ResponseData())
End If
0 Then %>
Uploaded File Information
ThumbnailImage DisplayDescription of Image
Ektron® eWebEditPro Developer’s Reference Guide, Release 5.1, Revision 1 475