利用ASPUPLOAD，ASPJPEG实现图片上传自动生成缩略图及加上水印

今天在站长站看到一网友写的相册程序，功能挺简单的，看到他用了ASPJPEG生成缩略图，不由想起再用上ASPUPLOAD上传，于是花了一个小时时间完善了他的代码。

以下代码均加有简单的注释，如果你看不懂，请先看ASPJPEG以及ASPUPLOAD的说明文档（E文，希望有心理准备），看不懂的可以问我。

以下是代码：

代码如下:

<% 
if session("admin")<>"on" then 
Response.Redirect"login.asp" 
end if 
%> 
<!--#include file="config.asp" --> 
<!--#include file="mdb/conn.asp" -->

<% 
Set Upload = Server.CreateObject("Persits.Upload")

FilePath=Server.MapPath(".")

Count = Upload.Save(FilePath&BigPhotoPath) '传大图

SmallFilePath=FilePath & SmallPhotoPath

For Each File in Upload.Files

Set Jpeg = Server.CreateObject("Persits.Jpeg") 
 Jpeg.Open (File.Path)

BigFP=BigPhotoPath&(File.FileName) '大图相对路径 
SFP=SmallPhotoPath&"S_"&(File.FileName)'小图相对路径 
FileSize=File.Size'备写入数据库

'开始判断哪边为长边，以长边进行缩放,并生成小图 
 imgWidth=Jpeg.OriginalWidth 
 imgHeight=Jpeg.OriginalHeight

if imgWidth>=imgHeight and imgWidth>120 then  
 Jpeg.Width=150 
 Jpeg.Height=Jpeg.OriginalHeight/(Jpeg.OriginalWidth/150) 
 end if 
 if imgHeight>imgWidth and imgHeight>113 then  
 Jpeg.Height=113 
 Jpeg.Width=Jpeg.OriginalWidth/(Jpeg.OriginalHeight/113) 
 end if 
Jpeg.Sharpen 1, 130 
Jpeg.Save (SmallFilePath&"S_"&File.FileName)

'给大图加上水印(仅对大图加水印) 
Jpeg.Open Server.MapPath(""&BigFP&"")

Jpeg.Canvas.Font.Color = &HFF0000 
Jpeg.Canvas.Font.Family = "Courier New"

Jpeg.Canvas.Pen.Color = &H000000 
Jpeg.Canvas.Pen.Width = 2

Jpeg.Canvas.Brush.Solid = False 
Jpeg.Canvas.Font.BkMode = "Opaque" '处理平滑

Jpeg.Canvas.PrintText 10, 10, "www.LuanLuan.cn" 
'Jpeg.Canvas.DrawBar 1, 1, 100, 100

Jpeg.Save Server.MapPath(BigFP) 
Next

strSQL= "insert into desktop ([name],typeid,zhuanti,jj,[time],imgh,imgw,filesize,url,surl) values ('"&Upload.Form("name")&"','"&Upload.Form("typeid")&"','"&Upload.Form("zhuanti")&"','"&Upload.Form("photointro")&"','"&Now()&"','"&imgheight&"','"&imgwidth&"','"&FileSize &"','"&BigFP&"','"&SFP&"')" 
conn.execute strSQL

set upload=nothing  '删除对象 
typeid=Request.QueryString("typeid") 
response.write "<SCRIPT language=JavaScript>alert('文件上传成功,返回！');" 
response.write "this.location.href='addfile.asp?typeid="&typeid&"';</SCRIPT>"

function HTMLEncode2(fString) 
fString = Replace(fString, CHR(13), "") 
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>") 
fString = Replace(fString, CHR(10), "<BR>") 
HTMLEncode2 = fString 
end function 
%>

赞 (0)

相关推荐

  • ASP.Net 上传图片并生成高清晰缩略图

    <%@ Page Language="C#" AutoEventWireup="true" CodeFile="Default2.aspx.cs" Inherits="Default2" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DT

  • ASP组件AspJpeg(加水印)生成缩略图等使用方法

    ASP组件AspJpeg(加水印)生成缩略图等使用方法

    一.为图片添加水印 复制代码 代码如下: <% Dim Jpeg ''''//声明变量 Set Jpeg = Server.CreateObject("Persits.Jpeg") ''''//调用组件 Jpeg.Open Server.MapPath("aaa.JPG") ''''//源图片位置 Jpeg.Canvas.Font.Color = &H000000 ''''//水印字体颜色 Jpeg.Canvas.Font.Family = "

  • ASP.NET简单好用功能齐全图片上传工具类（水印、缩略图、裁剪等）

    ASP.NET简单好用功能齐全图片上传工具类（水印、缩略图、裁剪等）

    使用方法: UploadImage ui = new UploadImage(); /***可选参数***/ ui.SetWordWater = "哈哈";//文字水印 // ui.SetPicWater = Server.MapPath("2.png");//图片水印(图片和文字都赋值图片有效) ui.SetPositionWater = 4;//水印图片的位置 0居中.1左上角.2右上角.3左下角.4右下角 ui.SetSmallImgHeight = &quo

  • ASP固定比例裁剪缩略图的方法

    一般生成缩略图的方法有两种: 第一种:缩放成固定大小的小图片 第二种:缩放成等比例的小图片 第一种方法的缺点是,会使图片变形,例如一个身材苗条的MM变成一个胖MM 第二种方法的缺点是,如果图片是放在一个表格中显示,并且图片宽高比和这个表格不同,就不能充满整个表格,留下空隙,不好看 这里介绍的方法是"固定比例裁剪",使用aspjpeg组件,也就是说,生成的缩略图宽高比是固定的,但是不会变形.如果原图的宽高比大于设定的宽高比,就会自动剪掉左右两旁多余的图:如果原图的宽高比小于设定的宽高比,

  • ASP保存远程图片到本地 同时取得第一张图片并创建缩略图的代码

    采集中 或者 在线添加文章中 都可以用到此功能 俺自己在baidu上搜索的保存远程图片到本地的代码 感觉比较难用点 而且没有现成的比较全的代码 俺也看不懂 俺从 SNA新闻采集系统 For 3.62 (程序制作:ansir)里提取了点函数 用下 比较简单好用 以下是函数 程序代码  复制代码 代码如下: <% '================================================== '函数名:CheckDir2 '作 用:检查文件夹是否存在 '参 数:FolderP

  • Asp无组件生成缩略图的代码

    还是先看看基础部分吧.首先,我们知道在页面中显示图片是如下代码: <img src="pic.gif" border="0" width="300" height="260"> src是图片路径,border控制图片边缘宽度,width是图片的长度,height是图片的高度.缩略图的生成其实就是在原始尺寸上缩放.但一般为了尽量少失真,我们都会按比例缩放.于是,获取图片的长宽尺寸也就成了生成缩略图的重点. 下面便是编

  • asp.net 自定义控件实现无刷新上传图片,立即显示缩略图,保存图片缩略图

    asp.net 自定义控件实现无刷新上传图片,立即显示缩略图,保存图片缩略图

    如图: 点击浏览,选择图片之后,右面显示图片 第一步: 创建CtFileUpLoad.ascx 复制代码 代码如下: <%@ Control Language="C#" AutoEventWireup="true" CodeFile="CtFileUpLoad.ascx.cs" Inherits="WebParts_CtFileUpLoad" %> <table cellpadding="0&quo

  • asp.net 图片超过指定大小后等比例压缩图片的方法

    复制代码 代码如下: /// <summary>        /// 压缩图片        /// </summary>        /// <returns></returns>        public string ResizePic()        {            #region 压缩图片开始            bool IsImgFile = true;  //判断是否为图片文件            string file

  • Asp.Net平台下的图片在线裁剪功能的实现代码(源码打包)

    1.前台展现实现 网上找到这个jquery.Jcrop,稍看了下,发现它提供的效果完全能满足项目需求. 官方网址:http://deepliquid.com/content/Jcrop.html,感兴趣的朋友可去看看. 页面先引用相关样式和脚本: 复制代码 代码如下: <link href="Styles/jquery.Jcrop.css" rel="stylesheet" type="text/css" /> <script

  • 利用ASPUPLOAD，ASPJPEG实现图片上传自动生成缩略图及加上水印

    今天在站长站看到一网友写的相册程序,功能挺简单的,看到他用了ASPJPEG生成缩略图,不由想起再用上ASPUPLOAD上传,于是花了一个小时时间完善了他的代码. 以下代码均加有简单的注释,如果你看不懂,请先看ASPJPEG以及ASPUPLOAD的说明文档(E文,希望有心理准备),看不懂的可以问我. 以下是代码: 复制代码 代码如下: <%  if session("admin")<>"on" then  Response.Redirect"

  • c#多图片上传并生成缩略图的实例代码

    前台代码: 复制代码 代码如下: <%@ Page Language="C#" AutoEventWireup="true" CodeFile="upload.aspx.cs" Inherits="upload" %> <!DOCTYPE html> <html xmlns="http://www.w3.org/1999/xhtml"> <head runat=&q

  • jquery+php+ajax显示上传进度的多图片上传并生成缩略图代码

    jquery+php+ajax显示上传进度的多图片上传并生成缩略图代码

    本例用到其他2个php class.upload.php和 functions.php还有css和js以及img文件 完整实例代码点击此处本站下载. 效果图如下: 实现代码如下: JavaScript代码如下: 复制代码 代码如下: <script type="text/javascript">  $(document).ready(function() {      $("#filelist").niceScroll({          cursor

  • AJAX实现图片预览与上传及生成缩略图的方法

    要实现功能,上传图片时可以预览,因还有别的文字,所以并不只上传图片,实现与别的文字一起保存,当然上来先上传图片,然后把路径和别的文字一起写入数据库:同时为 图片生成缩略图,现只写上传图片方法,文字在ajax里直接传参数就可以了,若要上传多图,修改一下就可以了. 借鉴了网上资料,自己写了一下,并不需要再新加页面,只在一个页面里就OK啦. JS代码: //ajax保存数据,后台方法里实现此方法 function SaveData() { filename = document.getElementB

  • Java实战之实现文件资料上传并生成缩略图

    Java实战之实现文件资料上传并生成缩略图

    目录 一:需求 二:如何实现需求,以及其中遇到的问题? 需求分析时遇到的问题 编码过程中遇到的问题 三:流程图与UML图 四:上传文件资料生成缩略图 1.上传图片生成缩略图--FastDFS 2.上传视频生成缩略图--javacv 3.上传PDF生成缩略图--pdfbox 4.封装好的方法 五:总结 一:需求 用户有一个需求就是收藏的功能,单纯的收藏记录好做,但是想加点难度就是,生成缩略图.类似B站的收藏一样. 二:如何实现需求,以及其中遇到的问题? 需求分析时遇到的问题 1.如何生成缩略图?

  • 移动端利用H5实现压缩图片上传功能

    此前有同事跟我聊过关于移动端用canvas压缩图片后再上传的功能,最近有了点空闲时间,所以就实践了一下.demo效果链接在文章底部贴出. 在做移动端图片上传的时候,用户传的都是手机本地图片,而本地图片一般都相对比较大,拿iphone6来说,平时拍很多图片都是一两M的,如果直接这样上传,那图片就太大了,如果用户用的是移动流量,完全把图片上传显然不是一个好办法. 目前来说,HTML5的各种新API都在移动端的webkit上得到了较好的 实现.根据查看caniuse,本demo里使用到的FileRea

  • SpringMVC利用dropzone组件实现图片上传

    操作步骤如下 一.dropzone导入 01.dropzone官网下载其插件压缩包并复制项目: 02.将CSS和JS文件在HTML文件中引入: //下面src中的地址根据自己文件地址进行修改,不能之间copy,否则可能用不了!!! <link rel="stylesheet" href="/static/assets/plugins/dropzone/min/dropzone.min.css" rel="external nofollow"

  • 图片上传即时显示缩略图的js代码

    <script language="javascript" type="text/javascript"> var allowExt = ['jpg', 'gif', 'bmp', 'png', 'jpeg']; var preivew = function(file, container){ try{ var pic = new Picture(file, container); }catch(e){ alert(e); } } //缩略图类定义 va

  • php 图片上传类代码

    先来个简单的: 复制代码 代码如下: <? //http://www.jb51.net class upLoad{ public $length; //限定文件大小 public $file; //判断此类是用于图片上传还是文件上传 public $fileName; //文件名 public $fileTemp; //上传临时文件 public $fileSize; //上传文件大小 public $error; //上传文件是否有错,php4没有 public $fileType; //上传

  • SpringMVC框架实现图片上传与下载

    SpringMVC框架实现图片上传与下载

    本文实例为大家分享了SpringMVC框架实现图片上传与下载的具体代码,供大家参考,具体内容如下 1.新建一个Maven webapp项目,引入需要用的夹包,pom.xml文件的依赖包如下: <dependencies> <!-- 用于生成图片的缩略图 --> <dependency> <groupId>net.coobird</groupId> <artifactId>thumbnailator</artifactId>

随机推荐