从数据库读出的图片地址
sub jpg()    
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath(lasturl)
Jpeg.Open Path

' 设置缩略图大小

if Jpeg.OriginalHeight/jpeg.OriginalWidth > 1.35 then

Jpeg.Width=100

'jpeg.width=Jpeg.OriginalWidth
Jpeg.height =Jpeg.OriginalHeight/jpeg.OriginalWidth*100

else

jpeg.Height=135

Jpeg.width =Jpeg.OriginalWidth/jpeg.OriginalHeight*135

end if
'根据图片适当进行剪切
jpeg.crop 0,0,100,135

'定义生成后的地址
dim path2

path2="02/"&lasturl

' 保存缩略图到指定文件夹下
Jpeg.Save Server.MapPath(path2)' 注销实例
Set Jpeg = Nothing
end sub