熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> ASP編程 >> 正文

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

2013-11-15 12:51:49  來源: ASP編程 

  <%@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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.