'****************************************************
'函数名：ThumbnailImg
'作 用：制作图片的缩略图
'参 数：ImgUrl 原图地址
' ImgWidth 新图的宽
' Imgheight 新图的高
' newImgurl 新图的存放地址
'****************************************************
Sub ThumbnailImg(Imgurl,ImgWidth,Imgheight,newImgurl)
Dim Jpeg ''''//声明变量
If instr(imgUrl,":\")=0 Then imgUrl = Server.MapPath(imgUrl)
If instr(newImgurl,":\")=0 Then newImgurl = Server.MapPath(newImgurl)
Set Jpeg = Server.CreateObject(DefaultJpeg) ''''//调用组件
Jpeg.Open Imgurl ''''//原图位置
If ImgWidth<>"" and Imgheight="" Then Imgheight = ImgWidth*Jpeg.OriginalHeight / Jpeg.OriginalWidth
If Imgheight<>"" and ImgWidth="" Then ImgWidth = Imgheight*Jpeg.OriginalWidth / Jpeg.OriginalHeight
Jpeg.Width = ImgWidth ''''//设图片宽度
Jpeg.Height = Imgheight ''''//设图片高度
Jpeg.Sharpen 1, 130 ''''//设定锐化效果
Jpeg.Save newImgurl ''''//生成缩略图位置及名称
Set Jpeg = Nothing ''''//注销组件，释放资源
End Sub