IT门户网,专注电脑知识与技术及手机硬件信息服务网站!

当前位置:IT门户网 > 网络知识 > 网站seo >

as!p 操作Persits.jpeg组件生成图片

时间:2021-09-14    来源:IT门户网    人气:

<[email protected]="VBSCRIPT" CODEPAGE="936"%>
<%
Response.Expires = 0

Pic = Request("p")
PointX = CInt(Request("x"))
PointY = CInt(Request("y"))
CutWidth = CInt(Request("w"))
CutHeight = CInt(Request("h"))
PicWidth = CInt(Requ最新综艺[]   est("pw"))
PicHeight = CInt(Request("ph"))

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

相关文章

网站seo排行榜

更多>>

网络知识排行榜

更多>>

系统教程排行榜

更多>>

服务号