<%
 dim jpeg,Width1,Height1
 Set jpeg = Server.CreateObject("Persits.Jpeg")
 jpeg.Open(Server.MapPath(Request("path")))
 
 Width1 = Request("Width")
 Height1 = Request("Height")
 if Width1<>"" and Height1<>"" then
 jpeg.Width = Width1
 jpeg.Height = Height1
 
 elseif Width1<>"" then
 jpeg.Width = Width1
 jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
 
 elseif Height1<>"" then
jpeg.Height = Height1
jpeg.Width = jpeg.OriginalWidth * jpeg.Height / jpeg.OriginalHeight
 
 end if
 
 Jpeg.Quality = 85 '生成图片质量，最高100
 'jpeg.Sharpen 1, 120 '图片锐化度 
 jpeg.SendBinary
%>

