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