缩略图函数

'********************************
'作者:陈胜华
'时间:2006-2-28
'功能:生成缩略图函数
'参数说明:
' sPath: 缩略图的源图的路径
' dPath:  缩略图放置的路径
' dWidth: 生成的宽度
' dHeight:生成的高度
'********************************
Public Sub GenBreviary(sPath, dPath,dWidth,  dHeight)
 dim GenWidth, GenHeight, sWidth, sHeight
 dim objBreviary
 set objBreviary=server.CreateObject("Persits.Jpeg")
 objBreviary.Open Server.MapPath(sPath)
 
 sWidth = objBreviary.OriginalWidth
 sHeight = objBreviary.OriginalHeight
 
  
 if sWidth >dWidth or sHeight > dHeight then
  if (sWidth/sHeight)>=(dWidth/dHeight) then
   GenWidth = dWidth
   GenHeight =  dWidth*sHeight/sWidth
  else
   GenHeight = dHeight
   GenWidth= dHeight * sWidth / sHeight
  end if
 end if    
 objBreviary.Width=GenWidth
 objBreviary.Height=GenHeight
 objBreviary.Save Server.MapPath(dPath)
End Sub