asp 利用Persits.jpeg組件生成圖片

　　<%@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
%>

From:http://tw.wingwit.com/Article/program/ASP/201311/21783.html