%
Dim Jpeg ''''//聲明變量
Set Jpeg = Server.CreateObject("Persits.Jpeg") ''''//調用組件
Jpeg.Open Server.MapPath("aaa.JPG") ''''//源圖片位置
Jpeg.Canvas.Font.Color = H000000 ''''//水印字體顏色
Jpeg.Canvas.Font.Family = "宋體" ''''//水印字體
Jpeg.Canvas.Font.Size = 14 ''''//水印字體大小
Jpeg.Canvas.Font.Bold = False　''''//是否粗體，粗體用：True
Jpeg.Canvas.Font.BkMode = HFFFFFF ''''//字體背景顏色
Jpeg.Canvas.Print 10, 10, "不敗頑童工作室" ''''//水印文字，兩個數字10為水印的xy座標
Jpeg.Save Server.MapPath("aaa_05.jpg") ''''//生成有水印的新圖片及保存位置
Set Jpeg = Nothing ''''//注銷組件，釋放資源
Response.Write "img src=aaa_05.jpg>" ''''//在該頁顯示生成水印后的圖片
%>

%
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 ;i7; 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
}