Imports
System.IO
Public
Class
shareAsyncUpload
Inherits
System.Web.UI.Page
Dim
m_arrFilesList
As
New
List(Of
String
)
Protected
Sub
Page_Load(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
Me
.Load
End
Sub
Private
Sub
btnSubmit_Click(sender
As
Object
, e
As
System.EventArgs)
Handles
btnSubmit.Click
submit()
Response.Redirect(
"/members/account"
,
False
)
End
Sub
Function
submit()
Try
Using Context
As
New
PBEntities
Dim
m_User
As
MembershipUser = Membership.GetUser(Page.User.Identity.Name)
Dim
m_id
As
New
Data.Objects.ObjectParameter(
"ImgID"
,
GetType
(
Integer
))
Context.addImageMaster(Server.HtmlEncode(txttitle.Text), ddlcountries.SelectedValue, Server.HtmlEncode(txtRemarks.Text),
Date
.Now,
False
, _
m_User.ProviderUserKey, 0, 0, m_id)
For
i
As
Integer
= 0
To
m_arrFilesList.Count - 1
If
i = 0
Then
' the first image is the default one
Context.AddImageDetails(m_arrFilesList.Item(i), m_id.Value,
True
,
True
,
Date
.Now)
Else
Context.AddImageDetails(m_arrFilesList.Item(i), m_id.Value,
True
,
False
,
Date
.Now)
End
If
Next
i
End
Using
Catch
ex
As
Exception
objShared.logOperation(7, ex.Message, Request.RawUrl,
""
, Page.User.Identity.Name,
Date
.Now)
End
Try
' RadAsyncUpload_Images.MaxFileSize
End
Function
Private
Sub
RadAsyncUpload_Images_FileUploaded(sender
As
Object
, e
As
Telerik.Web.UI.FileUploadedEventArgs)
Handles
RadAsyncUpload_Images.FileUploaded
Dim
m_MasterPath = HttpContext.Current.Server.MapPath(objShared.GetWord(
"key_file_Path"
))
Dim
m_MasterPathThumbs = HttpContext.Current.Server.MapPath(objShared.GetWord(
"key_file_Path_thumb"
))
Dim
m_fileExt = e.File.GetExtension()
Dim
m_RndFileName = objShared.getGuid
Dim
m_NewFileName = m_RndFileName + m_fileExt
' if the file name already exist, then append a random number to it
If
System.IO.File.Exists(m_MasterPath + m_NewFileName)
Then
m_NewFileName =
CStr
(m_RndFileName +
"_"
+ objShared.GenerateRandomNumber() + m_fileExt)
End
If
Try
' Upload orginal file
e.File.SaveAs(Path.Combine(m_MasterPath, m_NewFileName))
' Resize and save orginal images
ImageHelper.SavetoDisk(m_MasterPath + m_NewFileName, HttpContext.Current.Server.MapPath(objShared.GetWord(
"key_file_Path_thumb_171x105"
)) + m_NewFileName, 171, 171, m_fileExt)
ImageHelper.SavetoDisk(m_MasterPath + m_NewFileName, HttpContext.Current.Server.MapPath(objShared.GetWord(
"key_file_Path_thumb_99x72"
)) + m_NewFileName, 65, 65, m_fileExt)
ImageHelper.SavetoDisk_WhiteSpace(m_MasterPath + m_NewFileName, m_MasterPathThumbs + m_NewFileName, 472, 472, m_fileExt)
' Add file name to a list of string
m_arrFilesList.Add(m_NewFileName)
Catch
ex
As
Exception
objShared.logOperation(7, ex.Message, Request.RawUrl,
""
, Page.User.Identity.Name,
Date
.Now)
End
Try
End
Sub
End
Class