精品秘无码一区二区三区老师-精品秘一区二三区免费雷安-精品蜜桃秘一区二区三区-精品蜜桃秘一区二区三区粉嫩-精品蜜桃一区二区三区-精品蜜臀国产aⅴ一区二区三区

以下是一個用 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
%>

?