狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

以下是一個(gè)用 ASP（Active Server Pages）代碼實(shí)現(xiàn)圖片壓縮的示例：

<%
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
%>

?