一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

asp 利用Persits.jpeg组件生成图片

时间:2009-05-27 编辑:简简单单 来源:一聚教程网

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Response.Expires = 0

Pic = Request("p")
PointX = CInt(Request("x"))
PointY = CInt(Request("y"))
Cutw"))
Cuth"))
Picpw"))
Picph"))

Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath(Pic)

'缩放切割图片
Jpeg.Width = PicWidth
Jpeg.Height = PicHeight
Jpeg.Crop PointX, PointY, CutWidth + PointX, CutHeight + PointY
 
'输出图片
Response.ContentType = "image/jpeg"
Jpeg.SendBinary
%>

热门栏目