<%@LANGUAGE="VBSCRIPT" CODEPAGE=""%>
<%
ResponseExpires =
Pic = Request("p")
PointX = CInt(Request("x"))
PointY = CInt(Request("y"))
CutWidth = CInt(Request("w"))
CutHeight = CInt(Request("h"))
PicWidth = CInt(Request("pw"))
PicHeight = CInt(Request("ph"))
Set Jpeg = ServerCreateObject("PersitsJpeg")
JpegOpen ServerMapPath(Pic)
缩放切割图片
JpegWidth = PicWidth
JpegHeight = PicHeight
JpegCrop PointX PointY CutWidth + PointX CutHeight + PointY
输出图片
ResponseContentType = "image/jpeg"
JpegSendBinary
%>
