日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

以下是一個用 ASP（Active Server Pages）代碼實現圖片壓縮的示例：

<%
Function CompressImage(SourceFile, TargetFile, MaxWidth, MaxHeight)
    Set objImage = Server.CreateObject("WIA.ImageFile")
    objImage.LoadFile(SourceFile)


    Dim Width, Height
    Width = objImage.Width
    Height = objImage.Height


    If Width > MaxWidth Or Height > MaxHeight Then
        If Width > Height Then
            Height = Height * MaxWidth / Width
            Width = MaxWidth
        Else
            Width = Width * MaxHeight / Height
            Height = MaxHeight
        End If
    End If


    Set objEncoder = Server.CreateObject("WIA.ImageProcess")
    objEncoder.Filters.Add objEncoder.FilterInfos("Convert").FilterID
    objEncoder.Filters(1).Properties("FormatID").Value = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}" 'JPEG format
    objEncoder.Filters(1).Properties("Quality").Value = 75 'Quality level (adjust as needed)


    Set objNewImage = objEncoder.Apply(objImage)
    objNewImage.SaveFile TargetFile


    Set objNewImage = Nothing
    Set objEncoder = Nothing
    Set objImage = Nothing
End Function


'Example usage
SourceFilePath = "C:\Path\To\Your\OriginalImage.jpg" '替換為原始圖片路徑
TargetFilePath = "C:\Path\To\Your\CompressedImage.jpg" '替換為壓縮后圖片保存路徑
MaxWidth = 800
MaxHeight = 600


CompressImage SourceFilePath, TargetFilePath, MaxWidth, MaxHeight
%>

?