asp实现在线剪切图片代码

<%DIM LEFT1,top1
left1=request.Form("left")
top1=request.Form("top")
left1=left(left1,len(left1)-2)
top1=left(top1,len(top1)-2)
w=request.form("width")
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.RegKey = "48958-77556-02411"
Path = Server.MapPath("pic") & "\200873141011.jpg"
Jpeg.Open Path
w1=w/Jpeg.OriginalWidth
h1=Jpeg.OriginalHeight*w1
Jpeg.Width=w
Jpeg.Height = h1
jpeg.crop left1,top1,left1+110,top1+135
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
Jpeg.Save Server.MapPath("pic") & "\"+filename+".jpg"%>

时间： 2024-09-19 01:23:19

asp实现在线剪切图片代码的相关文章

php等比例缩放图片及剪切图片代码分享_php实例

php等比例缩放图片及剪切图片代码分享 /** * 图片缩放函数(可设置高度固定,宽度固定或者最大宽高,支持gif/jpg/png三种类型) * Author : Specs * * @param string $source_path 源图片 * @param int $target_width 目标宽度 * @param int $target_height 目标高度 * @param string $fixed_orig 锁定宽高(可选参数 width.height或者空值) * @ret

asp FSO在线压缩解压缩代码

asp FSO在线压缩解压缩代码 <% ''===================== ''FSO在线压缩解压缩 '自动生成HYTop.mdb ''===================== Sub AddToMdb(thePath)  On Error Resume Next  Dim Rs, Conn, Stream, ConnStr, adoCatalog, FsoX  Set FsoX = CreateObject("Scripting.FileSystemObject"

asp 简单在线用户统计代码

asp教程 简单在线用户统计代码 这代码是用了asp apliction 与session实例的哦. <script language="vbscript" runat="server"> sub Application_onStart application.Lock() application("use_online")=0 application.UnLock() end sub sub application_onend ap

asp+fso在线管理图片功能[原创]_应用技巧

复制代码 代码如下: <% '--------------------------------------------- '##############20060528新增加了对端口的支持 '作者:dxy QQ:461478385 Email:douxy001@gmail.com '功能完善 %> <!--#include file="global.asp"--> <!--#include file="session.asp"-->

asp+fso在线管理图片功能 原创

复制代码 代码如下: <% '--------------------------------------------- '##############20060528新增加了对端口的支持 '作者:dxy QQ:461478385 Email:douxy001@gmail.com '功能完善 %> <!--#include file="global.asp"--> <!--#include file="session.asp"-->

用ASP实现在线压缩与解压缩

一.问题的提出 随着互连网的发展,网站的数量以惊人的数字增加.网站的作用除了给广大网友们提供信息资讯服务外,还应该成为网友们上传与下载文件的场所.在上传与下载文件的过程中,传输时间是关键,这就要求有较快的传输速度.在传输速度固定不变或是上下变动不大的情况下,尽量减小传输文件的体积,是一个可行的办法:上传文件的时候,先将要上传的文件用WINRAR压缩,上传成功后在网站内通过程序实现解压缩:下载文件的时候,先将要下载的文件在网站内通过程序实现压缩然后再下载.本文就针对该问题的解决进行探讨. 二.方法

js两侧图片代码为什么不兼容ff 在ie中正常显示

问题描述 js两侧图片代码为什么不兼容ff 在ie中正常显示 我是新手 js两侧图片代码为什么不兼容ff 在ie中正常显示,在ff中图片跑到网站下面了并且网页左下面只显示一张 请高手解决 js代码如下:function initEcAd() {document.all.AdLayer1.style.posTop = -200;document.all.AdLayer1.style.visibility = 'visible'document.all.AdLayer2.style.posTop =

巧用ASP实现在线生成PDF文档

    在开始讲解ASP实现在线生成PDF文档之前我们先了解一下PDF的历史,了解了某个东西,知道他的作用性以及重要性,再去学习该ASP程序相信效果一定不一样.     Adobe PDF格式已经变成很多机构和公司进行跨平台制表的通用媒体格式.尽管我不是这个产品的狂热痴迷者,却不得不接受这样一个事实:用这个格式产生一个协定可能会比用Word还要好.           由于在一家雇用公司工作,我已经把我们所有早期的软件写成能在Internet上运行,这样我们就能和小的子公司共享公用数据库了.然而

asp用户登录模块实例代码

 asp用户登录模块实例代码: 用户登录验证脚本,Chkpwd.asp 以下为引用的内容: <%  '=======用户登录验证脚本=======  '如果尚未定义Passed对象,则将其定义为false,表示没有通过验证  If IsEmpty(Session("Passed")) Then  Session("Passed")=false  End If  'Session("Passed")=False,表示尚未通过验证,则开始读取从