效果如图:


准备工作

1.jquery.Jcrop  下载   主页

2.Aspjpeg   下载  主页

index.asp

1.上传文件

2.剪切合适尺寸(宽度:px
高度:px)

3.预览  

4.查看下载剪切后图片(右键另存为)

      

pic.asp


<%
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
%>
转载:http://hi.baidu.com/givebest/blog/item/0862afc35baee85fb319a89b.html

上一篇: asp根据IP地址获取物理位置(gb2312,utf-8)
下一篇: FSO操作类asp创建文件夹
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: