Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\FckEditor\filemanager\browser\default\connectors\asp\ResizeAspNet.aspx</i><br><form method=post action="edit.asp?action=save&dir=\FckEditor\filemanager\browser\default\connectors\asp&file=ResizeAspNet.aspx"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%@ Page Language=&quot;VB&quot; debug=&quot;true&quot; ContentType=&quot;text/html&quot; ResponseEncoding=&quot;iso-8859-1&quot;%&gt;
&lt;%@ Import Namespace=&quot;System.IO&quot; %&gt;
&lt;%@ Import Namespace=&quot;System.Drawing&quot; %&gt;
&lt;%@ Import Namespace=&quot;System.Drawing.Imaging&quot; %&gt;

&lt;script runat=&quot;server&quot;&gt;
	
	Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
    	'verifica se esiste ASP.NET
		if request(&quot;TestAspNet&quot;)&lt;&gt;&quot;&quot; then
			response.Clear()
			response.write(&quot;yes&quot;)
			response.end
		end if
		
		Dim oldFilePath As String = Request(&quot;oldFilePath&quot;)
        Dim newFilePath As String = Request(&quot;newFilePath&quot;)
        Dim width As Integer = CType(Request(&quot;width&quot;), Integer)
        Dim height As Integer = CType(Request(&quot;height&quot;), Integer)
        Dim imageQuality As Integer = CType(Request(&quot;imageQuality&quot;), Integer)
        Dim keepAspect As Boolean
        If Request(&quot;keepAspect&quot;) &lt;&gt; &quot;0&quot; Then
            keepAspect = True
        Else
            keepAspect = False
        End If
        ResizeImage(oldFilePath, newFilePath, width, height, imageQuality, keepAspect)

        Response.Write(&quot;Done&quot;)
        Response.End()
		
    End Sub	
	
	
	
	Private Function ResizeImage(ByVal oldPathImage As String, ByVal newPathImage As String, ByVal Width As Integer, ByVal Height As Integer, ByVal imgQuality As Integer, ByVal keep As Boolean) As String

        Dim bmp As System.Drawing.Image = System.Drawing.Image.FromFile(oldPathImage)

		If bmp.Width &lt;= Width and bmp.Height &lt;= Height Then
			bmp.Dispose()
			exit function
		end if

        Dim percW As Double = 0
        Dim percH As Double = 0
        Dim newDimension() As Integer = getNewImageSize(bmp.Width, bmp.Height, Width, Height, keep)

        Dim newImage As System.Drawing.Bitmap
        newImage = New System.Drawing.Bitmap(bmp, newDimension(0), newDimension(1))
        
        bmp.Dispose()
       	File.Delete(oldPathImage)
		
        Dim imageFormat As Imaging.ImageFormat

        Select Case getImageFormat(newPathImage)
            Case &quot;gif&quot;
                newImage.Save(newPathImage, imageFormat.Gif)
            Case &quot;jpg&quot;
                Dim imageQuality As System.Drawing.Imaging.EncoderParameters = New System.Drawing.Imaging.EncoderParameters(1)
                imageQuality.Param(0) = New System.Drawing.Imaging.EncoderParameter(System.Drawing.Imaging.Encoder.Quality, imgQuality)
                Dim ImageCodecInfo As ImageCodecInfo = GetEncoderInfo(&quot;image/jpeg&quot;)
                newImage.Save(newPathImage, ImageCodecInfo, imageQuality)
            Case &quot;bmp&quot;
                newImage.Save(newPathImage, imageFormat.Bmp)
            Case &quot;png&quot;
                newImage.Save(newPathImage, imageFormat.Png)
            Case &quot;tif&quot;
                newImage.Save(newPathImage, imageFormat.Tiff)
            Case &quot;emf&quot;
                newImage.Save(newPathImage, imageFormat.Emf)
            Case &quot;wmf&quot;
                newImage.Save(newPathImage, imageFormat.Wmf)
        End Select

        newImage.Dispose()

    End Function

    Private Function getImageFormat(ByVal FileName As String) As String

        If LCase(FileName).EndsWith(&quot;.bmp&quot;) Then
            Return &quot;bmp&quot;
        ElseIf LCase(FileName).EndsWith(&quot;.jpg&quot;) Then
            Return &quot;jpg&quot;
        ElseIf LCase(FileName).EndsWith(&quot;.jpeg&quot;) Then
            Return &quot;jpg&quot;
        ElseIf LCase(FileName).EndsWith(&quot;.gif&quot;) Then
            Return &quot;gif&quot;
        ElseIf LCase(FileName).EndsWith(&quot;.tiff&quot;) Then
            Return &quot;tif&quot;
        ElseIf LCase(FileName).EndsWith(&quot;.tif&quot;) Then
            Return &quot;tif&quot;
        ElseIf LCase(FileName).EndsWith(&quot;.png&quot;) Then
            Return &quot;png&quot;
        ElseIf LCase(FileName).EndsWith(&quot;.emf&quot;) Then
            Return &quot;emf&quot;
        ElseIf LCase(FileName).EndsWith(&quot;.wmf&quot;) Then
            Return &quot;wmf&quot;
        End If

    End Function

    Private Function getNewImageSize(ByVal imageW As Integer, ByVal imageH As Integer, ByVal newImageW As Integer, ByVal newImageH As Integer, ByVal keepAspect As Boolean) As Array
        Dim percW As Double
        Dim percH As Double
        Dim retStr(1) As Integer
        If newImageW = 0 Then
            newImageW = imageW
        End If
        If newImageH = 0 Then
            newImageH = imageH
        End If
        If keepAspect Then
            percW = CType(imageW, Double) / CType(newImageW, Double)
            percH = CType(imageH, Double) / CType(newImageH, Double)
            If percW &gt; percH Then
                newImageW = CType(CType(imageW, Double) / percW, Integer)
                newImageH = CType(CType(imageH, Double) / percW, Integer)
            Else
                newImageW = CType(CType(imageW, Double) / percH, Integer)
                newImageH = CType(CType(imageH, Double) / percH, Integer)
            End If
        End If
        retStr(0) = newImageW
        retStr(1) = newImageH
		
		return retStr
		
    End Function

    Private Function GetEncoderInfo(ByVal mimeType As String) As ImageCodecInfo
        Dim J As Integer
        Dim retStr As ImageCodecInfo
        Dim encoders() As ImageCodecInfo
        encoders = ImageCodecInfo.GetImageEncoders()

        For J = 0 To UBound(encoders)
            If String.Compare(encoders(J).MimeType, mimeType, True) = 0 Then
                retStr = encoders(J)
                Exit For
            End If
        Next

        Return retStr

    End Function
	
&lt;/script&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CFckEditor%5Cfilemanager%5Cbrowser%5Cdefault%5Cconnectors%5Casp">Íàçàä</a>]