<%
Set Jpeg=Server.CreateObject("Persits.Jpeg")
path=server.mappath("s.jpg")
Jpeg.Open path

Jpeg.Width=Jpeg.OriginalWidth/3
Jpeg.Height=Jpeg.originalheight /3

Jpeg.Save Server.MapPath("cut.jpg")
Response.write "生成成功"
%>