<script type="text/javascript">

 

        function uploadError(sender, args) {

            document.getElementById('lblStatus').innerHTML = args.get_fileName(), "<span style='color:red;'>" + args.get_errorMessage() + "</span>";

        }

 

        function StartUpload(sender, args) {

            var name_input = document.getElementById('lblStatus');

            name_input.innerHTML = "Ожидайте, идет загрузка файла.";

        }

 

        function UploadComplete(sender, args) {

            var filename = args.get_fileName();

            var contentType = args.get_contentType();

            var text = "Файл " + filename + " размером " + args.get_length() + " байт";

            if (contentType.length > 0) {

                text += " был успешно загружен.";

            }

            document.getElementById('lblStatus').innerHTML = text;

        }

 

        function fnClearFileInput() {

            var ctlUpload = document.getElementById("lblStatus");

            var inputFields = ctlUpload.getElementsByTagName("input");

            for (var i = 0; i < inputFields.length; i++) {

                if (inputFields[i].type == "text") {

                    inputFields[i].value = "";

                    inputFields[i].style.backgroundColor = "white";

                }

            }

        }

    </script>

Private Function CropImageFile(ByVal imageFile As Byte(), ByVal targetW As Integer, ByVal targetH As Integer, ByVal targetX As Integer, ByVal targetY As Integer) As Byte()

        Dim imgMemoryStream As MemoryStream = New MemoryStream()

        Dim imgPhoto As System.Drawing.Image = System.Drawing.Image.FromStream(New MemoryStream(imageFile))

        Dim bmPhoto As Bitmap = New Bitmap(targetW, targetH, PixelFormat.Format24bppRgb)

        bmPhoto.SetResolution(72, 72)

        Dim grPhoto As Graphics = Graphics.FromImage(bmPhoto)

        'Adjust settings to make this as high-quality as possible  

        grPhoto.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.AntiAlias

        grPhoto.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic

        grPhoto.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality

        Try

            grPhoto.DrawImage(imgPhoto, New Rectangle(0, 0, targetW, targetH),

                                    targetX, targetY, targetW, targetH, GraphicsUnit.Pixel)

            'Only JPG format for this demo

            bmPhoto.Save(imgMemoryStream, System.Drawing.Imaging.ImageFormat.Jpeg)

        Catch ex As Exception

            Throw ex

        Finally

            imgPhoto.Dispose()

            bmPhoto.Dispose()

            grPhoto.Dispose()

        End Try

        Return imgMemoryStream.GetBuffer()

    End Function

    Private Sub writeByteArrayToFile(ByVal byteImage() As Byte)

        strPath = MapPath("~/Avatars/") + Random.STR(10) + ".jpeg"

        Using binWriter As BinaryWriter = New BinaryWriter(File.Open(strPath, FileMode.Create))

            binWriter.Write(byteImage)

        End Using

    End Sub