asp 利用Persits.jpeg组件生成图片
asp 利用Persits.jpeg组件生成图片 %@LANGUAGE=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(R
asp 利用Persits.jpeg组件生成图片
<%@LANGUAGE="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(Request("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
%>
- 上一篇：asp 简单在线用户统计代码
- 下一篇：asp 全面安全数据连接代码
精彩图集