高手请进！急！！ - 编程论坛

#2

hmhz2008-07-16 10:04

生成缩略图需要安装组件

#3

天涯听雨2008-07-17 22:07

利用 AspJpeg 生成缩略图

Sub CompressPic(OldPicUrl,SavePicUrl)
    Set Jpeg = Server.CreateObject("Persits.Jpeg")
    Path = Server.MapPath(OldPicUrl)
    Jpeg.Open Path

    OldWidth  = Jpeg.OriginalWidth     '原图宽
    OldHeight = Jpeg.OriginalHeight    '原图高

    Jpeg.Height=88    '定义小图高
    Jpeg.Width =133   '定义小图宽

         '如果只定义其中一个，则按比便缩小

    Jpeg.Save Server.MapPath(SavePicUrl)
    set Jpeg = nothing
End Sub

Call CompressPic(需要生成小图的图片地址，生成小图后的图片地址)

#4

multiple19022008-07-18 16:20

不要用“提问”“高手请进”做帖子标题。