<% Dim Jpeg ''''//声明变量 Set Jpeg = Server.CreateObject("Persits.Jpeg") ''''//调用组件 Jpeg.Open Server.MapPath("aaa.JPG") ''''//原图位置 Jpeg.Width = Jpeg.OriginalWidth/4 ''''//设图片宽度为原图的四分之一 Jpeg.Height = Jpeg.OriginalHeight/4 ''''//设图片高度为原图的四分之一 Jpeg.Sharpen 1, 130 ''''//设定锐化效果 Jpeg.Save Server.MapPath("aaa_small.jpg") ''''//生成缩略图位置及名称 Set Jpeg = Nothing ''''//注销组件，释放资源 Response.Write "<img src=aaa_small.jpg>" ''''//在该页显示生成缩略图 %>

<% Set Jpeg = Server.CreateObject("Persits.Jpeg") 调用组件 Path = Server.MapPath("images") & "\clock.jpg" 待处理图片路径 Jpeg.Open Path 打开图片 高与宽为原图片的1/2 Jpeg.Width = Jpeg.OriginalWidth / 2 Jpeg.Height = Jpeg.OriginalHeight / 2 保存图片 Jpeg.Save Server.MapPath("images") & "\clock_small.jpg" %>

<% Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open Server.MapPath("images/dodge_viper.jpg") 开始写文字 Jpeg.Canvas.Font.Color = &H000000'''' white 颜色 Jpeg.Canvas.Font.Family = "Courier New" 字体 Jpeg.Canvas.Font.Bold = True 是否加粗 Jpeg.Canvas.Print 10, 10, "Copyright (c) XYZ, Inc." 打印坐标x 打印坐标y 需要打印的字符 以下是对图片进行边框处理 Jpeg.Canvas.Pen.Color = &H000000'''' black 颜色 Jpeg.Canvas.Pen.Width = 2 画笔宽度 Jpeg.Canvas.Brush.Solid = False 是否加粗处理 Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height 起始X坐标 起始Y坐标 输入长度 输入高度 Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg") 保存 %>

<% 生成安全码的函数 www.wuyouw.com function make_randomize(max_len,w_n) max_len 生成长度，w_n：0 可能包含字母，1：只为数字 randomize for intcounter=1 to max_len whatnext=int((1-0+1)*rnd+w_n) if whatnext=0 then upper=122 lower=97 else upper=57 lower=48 end if strnewpass=strnewpass & chr(int((upper-lower+1)*rnd)+lower) next make_randomize=strnewpass end function %>

<%random_num=make_randomize(4,1) 生成4位数字的安全码 session("random_num")=random_num 为什么调用session，没有session的安全码是完全没有意义的。呵呵 Set Jpeg = Server.CreateObject("Persits.Jpeg") 调用组件 Jpeg.Open Server.MapPath("infos/random_pic/random_index.gif") 打开准备的图片 Jpeg.Canvas.Font.Color = &H006699 Jpeg.Canvas.Font.Family = "Arial Black" Jpeg.Canvas.Font.Bold = false Jpeg.Canvas.PrintText 0, -2, random_num jpeg.save Server.MapPath("infos/random_pic/random_index.bmp") 保存 %>

Set Photo = Server.CreateObject("Persits.Jpeg") PhotoPath = Server.MapPath("images") & "\dodge_viper.jpg" Photo.Open PhotoPath Set Logo = Server.CreateObject("Persits.Jpeg") LogoPath = Server.MapPath("images") & "\clock.jpg" Logo.Open LogoPath Logo.Width = 70 Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth Photo.DrawImage 0, 0, Logo Photo.SendBinary

<% set obj=server.CreateObject("wsImage.Resize") ''''''''调用组件 obj.LoadSoucePic server.mappath("25.jpg") ''''''''打开图片,图片名字是25.jpg obj.GetSourceInfo iWidth,iHeight response.write "图片宽度:" & iWidth & "<br>" ''''''''获得图片宽度 response.write "图片高度:" & iHeight & "<br>" ''''''''获得图片高度 strError=obj.errorinfo if strError<>"" then response.write obj.errorinfo end if obj.free set obj=nothing %>

<% set obj=server.CreateObject("wsImage.Resize") obj.LoadSoucePic server.mappath("25.jpg") ''''''''装载图片 obj.Quality=75 obj.TxtMarkFont = "华文彩云" ''''''''设置水印文字字体 obj.TxtMarkBond = false ''''''''设置水印文字的粗细 obj.MarkRotate = 0 ''''''''水印文字的旋转角度 obj.TxtMarkHeight = 25 ''''''''水印文字的高度 obj.AddTxtMark server.mappath("txtMark.jpg"), "带你离境", &H00FF00&, 10, 70 strError=obj.errorinfo ''''''''生成图片名字,文字颜色即水印在图片的位置 if strError<>"" then response.write obj.errorinfo end if obj.free set obj=nothing %>

<% set obj=server.CreateObject("wsImage.Resize") obj.LoadSoucePic server.mappath("25.jpg") ''''''''装载图片 obj.LoadImgMarkPic server.mappath("blend.bmp") ''''''''装载水印图片 obj.Quality=75 obj.AddImgMark server.mappath("imgMark.jpg"), 315, 220,&hFFFFFF, 70 strError=obj.errorinfo ''''''''生成图片名字,文字颜色即水印在图片的位置 if strError<>"" then response.write obj.errorinfo end if obj.free set obj=nothing %>

<% set obj=server.CreateObject("wsImage.Resize") obj.LoadSoucePic server.mappath("25.jpg") obj.Quality=75 obj.cropImage server.mappath("25_crop.jpg"),100,10,200,200 ''''''''定义裁减大小和生成图片名字 strError=obj.errorinfo if strError<>"" then response.write obj.errorinfo end if obj.free set obj=nothing %>

<% set obj=server.CreateObject("wsImage.Resize") obj.LoadSoucePic server.mappath("25.jpg") ''''''''加载图片 obj.Quality=75 obj.OutputSpic server.mappath("25_s.jpg"),0.5,0.5,3 ''''''''定义缩略图的名字即大小 strError=obj.errorinfo if strError<>"" then response.write obj.errorinfo end if obj.free set obj=nothing %>

using System; using System.Drawing; using System.Drawing.Imaging; using System.Drawing.Drawing2D; public class DrawImg { private string WorkingDirectory = string.Empty ; //路径 private string ImageName = string.Empty; //被处理的图片 private string ImageWater = string.Empty; //水印图片 private string FontString = string.Empty; //水印文字 enum DealType{NONE,WaterImage,WaterFont,DoubleDo}; //枚举命令 private DealType dealtype; public DrawImg() {} public string PublicWorkingDirectory { get { return WorkingDirectory; } set { WorkingDirectory = value; } } public string PublicImageName { get { return ImageName; } set { ImageName = value; } } public string PublicImageWater { get { return ImageWater; } set //设置了水印图片的话说明是要水印图片效果的 { dealtype = DealType.WaterImage; ImageWater = value; } } public string PublicFontString { get { return FontString; } set //设置了水印文字的话说明是要水印文字效果的 { dealtype = DealType.WaterFont; FontString = value; } } public void DealImage() { IsDouble(); switch( dealtype ) { case DealType.WaterFont: WriteFont(); break; case DealType.WaterImage: WriteImg(); break; case DealType.DoubleDo: WriteFontAndImg(); break; } } private void IsDouble() { if(ImageWater+""!="" && FontString+""!="") { dealtype = DealType.DoubleDo; } } private void WriteFont() { //set a working directory //string WorkingDirectory = @"C:\Watermark_src\WaterPic"; //define a string of text to use as the Copyright message //string Copyright = "Copyright ?2002 - AP Photo/David Zalubowski"; //create a image object containing the photograph to watermark Image imgPhoto = Image.FromFile(WorkingDirectory + ImageName); int phWidth = imgPhoto.Width; int phHeight = imgPhoto.Height; //create a Bitmap the Size of the original photograph Bitmap bmPhoto = new Bitmap(phWidth, phHeight, PixelFormat.Format24bppRgb); bmPhoto.SetResolution(imgPhoto.HorizontalResolution, imgPhoto.VerticalResolution); //load the Bitmap into a Graphics object Graphics grPhoto = Graphics.FromImage(bmPhoto); //------------------------------------------------------------ //Step #1 - Insert Copyright message //------------------------------------------------------------ //Set the rendering quality for this Graphics object grPhoto.SmoothingMode = SmoothingMode.AntiAlias; //Draws the photo Image object at original size to the graphics object. grPhoto.DrawImage( imgPhoto, // Photo Image object new Rectangle(0, 0, phWidth, phHeight), // Rectangle structure 0, // x-coordinate of the portion of the source image to draw. 0, // y-coordinate of the portion of the source image to draw. phWidth, // Width of the portion of the source image to draw. phHeight, // Height of the portion of the source image to draw. GraphicsUnit.Pixel); // Units of measure //------------------------------------------------------- //to maximize the size of the Copyright message we will //test multiple Font sizes to determine the largest posible //font we can use for the width of the Photograph //define an array of point sizes you would like to consider as possiblities //------------------------------------------------------- int[] sizes = new int[]{16,14,12,10,8,6,4}; Font crFont = null; SizeF crSize = new SizeF(); //Loop through the defined sizes checking the length of the Copyright string //If its length in pixles is less then the image width choose this Font size. for (int i=0 ;i<7; i++) { //set a Font object to Arial (i)pt, Bold //crFont = new Font("arial", sizes[i], FontStyle.Bold); crFont = new Font("arial",sizes[i],FontStyle.Bold); //Measure the Copyright string in this Font crSize = grPhoto.MeasureString(FontString, crFont); if((ushort)crSize.Width < (ushort)phWidth) break; } //Since all photographs will have varying heights, determine a //position 5% from the bottom of the image int yPixlesFromBottom = (int)(phHeight *.05); //Now that we have a point size use the Copyrights string height //to determine a y-coordinate to draw the string of the photograph float yPosFromBottom = ((phHeight - yPixlesFromBottom)-(crSize.Height/2)); //Determine its x-coordinate by calculating the center of the width of the image float xCenterOfImg = (phWidth/2); //Define the text layout by setting the text alignment to centered StringFormat StrFormat = new StringFormat(); StrFormat.Alignment = StringAlignment.Center; //define a Brush which is semi trasparent black (Alpha set to 153) SolidBrush semiTransBrush2 = new SolidBrush(Color.FromArgb(153, 0, 0, 0)); //Draw the Copyright string grPhoto.DrawString(FontString, //string of text crFont, //font semiTransBrush2, //Brush new PointF(xCenterOfImg+1,yPosFromBottom+1), //Position StrFormat); //define a Brush which is semi trasparent white (Alpha set to 153) SolidBrush semiTransBrush = new SolidBrush(Color.FromArgb(153, 255, 255, 255)); //Draw the Copyright string a second time to create a shadow effect //Make sure to move this text 1 pixel to the right and down 1 pixel grPhoto.DrawString(FontString, //string of text crFont, //font semiTransBrush, //Brush new PointF(xCenterOfImg,yPosFromBottom), //Position StrFormat); imgPhoto = bmPhoto; grPhoto.Dispose(); //save new image to file system. imgPhoto.Save(WorkingDirectory + ImageName + "_finally.jpg", ImageFormat.Jpeg); imgPhoto.Dispose(); //Text alignment }