asp实现在线剪切图片代码

<%DIM LEFT1,top1
left1=request.Form("left")
top1=request.Form("top")
left1=left(left1,len(left1)-2)
top1=left(top1,len(top1)-2)
w=request.form("width")
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.RegKey = "48958-77556-02411"
Path = Server.MapPath("pic") & "200873141011.jpg"
Jpeg.Open Path
w1=w/Jpeg.OriginalWidth
h1=Jpeg.OriginalHeight*w1
Jpeg.Width=w
Jpeg.Height = h1
jpeg.crop left1,top1,left1+110,top1+135
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
Jpeg.Save Server.MapPath("pic") & ""+filename+".jpg"%>