结合Aspjpeg组件写的一个Class(9/30 添加实例)

基本上能实现ASPJPEG的所有功能
代码有详细注释,还不懂的请提出

有建议及更多功能提议的请提出

谢谢

CODE:	[Copy to clipboard]
```

'ASPJPEG综合操作CLASS
'Authour: tony 05/09/05
Class AspJpeg
Dim AspJpeg_Obj,obj
Private Img_MathPath_From,Img_MathPath_To,Img_Reduce_Size,CoverIf
Private Img_Frame_Size,Img_Frame_Color,Img_Frame_Solid,Img_Frame_Width,Img_Frame_Height
Private Img_Font_Content,Img_Font_Family,Img_Font_Color,Img_Font_Quality,Img_Font_Size,Img_Font_Bold,Img_Font_X,Img_Font_Y
Private Img_PicIn_Path,Img_PicIn_X,Img_PicIn_Y
'--------------取原文件路径
Public Property Let MathPathFrom(StrType)
Img_MathPath_From=StrType
End Property

'--------------取文件保存路径
Public Property Let MathPathTo(strType)
Img_MathPath_To=strType
End Property

'--------------保存文件时是否覆盖已有文件
Public Property Let CovePro(LngSize)
If LngSize=0 or LngSize=1 or LngSize=true or LngSize=false then
CoverIf=LngSize
End If
End Property

'---------------取缩略图/放大图缩略值
Public Property Let ReduceSize(LngSize)
If isNumeric(LngSize) then
Img_Reduce_Size=LngSize
End If
End Property

'---------------取描边属性
'边框粗细
Public Property Let FrameSize(LngSize)
If isNumeric(LngSize) then
Img_Frame_Size=Clng(LngSize)
End If
End Property
'边框宽度
Public Property Let FrameWidth(LngSize)
If isNumeric(LngSize) then
Img_Frame_Width=Clng(LngSize)
End If
End Property
'边框高度
Public Property Let FrameHeight(LngSize)
If isNumeric(LngSize) then
Img_Frame_Height=Clng(LngSize)
End If
End Property
'边框颜色
Public Property Let FrameColor(strType)
If strType<>"" then
Img_Frame_Color=strType
End If
End Property
'边框是否加粗
Public Property Let FrameSolid(LngSize)
If LngSize=1 or LngSize=0 or LngSize=true or LngSize=false then
Img_Frame_Solid=LngSize
End If
End Property

'---------------取插入文字属性
'插入的文字
Public Property Let Content(strType)
If strType<>"" then
Img_Font_Content=strType
End If
End Property
'文字字体
Public Property Let FontFamily(strType)
If strType<>"" then
Img_Font_Family=strType
End If
End Property
'文字颜色
Public Property Let FontColor(strType)
If strType<>"" then
Img_Font_Color=strType
End If
End Property
'文字品质
Public Property Let FontQuality(LngSize)
If isNumeric(LngSize) then
Img_Font_Quality=Clng(LngSize)
End If
End Property
'文字大小
Public Property Let FontSize(LngSize)
If isNumeric(LngSize) then
Img_Font_Size=Clng(LngSize)
End If
End Property
'文字是否加粗
Public Property Let FontBold(LngSize)
If LngSize=1 or LngSize=0 or LngSize=true or LngSize=false then
Img_Font_Bold=LngSize
End If
End Property
'输入文字的X坐标
Public Property Let FontX(LngSize)
If isNumeric(LngSize) then
Img_Font_X=Clng(LngSize)
End If
End Property
'输入文字的Y坐标
Public Property Let FontY(LngSize)
If isNumeric(LngSize) then
Img_Font_Y=Clng(LngSize)
End If
End Property

'---------------取插入图片属性
'插入图片的路径
Public Property Let PicInPath(strType)
Img_PicIn_Path=strType
End Property
'图片插入的X坐标
Public Property Let PicInX(LngSize)
If isNumeric(LngSize) then
Img_PicIn_X=Clng(LngSize)
End If
End Property
'图片插入的Y坐标
Public Property Let PicInY(LngSize)
If isNumeric(LngSize) then
Img_PicIn_Y=Clng(LngSize)
End If
End Property

Private Sub Class_Initialize()
Set AspJpeg_Obj=createObject("Persits.Jpeg")
Img_MathPath_From=""
Img_MathPath_To=""
Img_Reduce_Size=150
Img_Frame_Size=1
'Img_Frame_Width=0
'Img_Frame_Height=0
'Img_Frame_Color="&H000000"
'Img_Frame_Bold=false
Img_Font_Content="GoldenLeaf"
'Img_Font_Family="Arial"
'Img_Font_Color="&H000000"
Img_Font_Quality=3
Img_Font_Size=14
'Img_Font_Bold=False
Img_Font_X=10
Img_Font_Y=5
'Img_PicIn_X=0
'Img_PicIn_Y=0
CoverIf=1

End Sub
Private Sub Class_Terminate()
Err.Clear
Set AspJpeg_Obj=Nothing
End Sub
'判断文件是否存在
Private Function FileIs(path)
Set fsos=Server.createObject("Scripting.FileSystemObject")
FileIs=fsos.FileExists(path)
Set fsos=Nothing
End Function

'判断目录是否存在
Private Function FolderIs(path)
Set fsos=Server.createObject("Scripting.FileSystemObject")
FolderIs=fsos.FolderExists(path)
Set fsos=Nothing
End Function
'*******************************************
'函数作用：取得当前文件的上一级路径
'*******************************************
Private Function UpDir(ByVal D)
If Len(D) = 0 then
UpDir=""
Else
UpDir=Left(D,InStrRev(D,"")-1)
End If
End Function

Private Function Errors(Errors_id)
select Case Errors_id
Case "0"
Errors="指定文件不存在"
Case 1
Errors="指定目录不存在"
Case 2
Errors="已存在相同名称文件"
Case 3
Errors="参数溢出"
End select
End Function

'取图片宽度
Public Function ImgInfo_Width(Img_MathPath)
If Not(FileIs(Img_MathPath)) then
'Exit Function
ImgInfo_Width=Errors(0)
Else
AspJpeg_Obj.Open Img_MathPath
ImgInfo_Width=AspJpeg_Obj.width
End If
End Function
'取图片高度
Public Function ImgInfo_Height(Img_MathPath)
If Not(FileIs(Img_MathPath)) then
'Exit Function
ImgInfo_Height=Errors(0)
Else
AspJpeg_Obj.Open Img_MathPath
ImgInfo_Height=AspJpeg_Obj.height
End If
End Function
'生成缩略图/放大图
Public Function Img_Reduce()
If Not(FileIs(Img_MathPath_From)) then
Img_Reduce=Errors(0)
Exit Function
End If
If Not(FolderIs(UpDir(Img_MathPath_To))) then
Img_Reduce=Errors(1)
Exit Function
End If
If CoverIf=0 or CoverIf=False then
If FileIs(Img_MathPath_To) then
Img_Reduce=Errors(2)
Exit Function
End If
End If
AspJpeg_Obj.Open Img_MathPath_From
AspJpeg_Obj.PreserveAspectRatio = True
If AspJpeg_Obj.OriginalWidth>AspJpeg_Obj.OriginalHeight Then
AspJpeg_Obj.Width=Img_Reduce_Size
Else
AspJpeg_Obj.Height=Img_Reduce_Size
End If
If AspJpeg_Obj.OriginalWidth>Img_Reduce_Size or AspJpeg_Obj.OriginalHeight>Img_Reduce_Size Then
If AspJpeg_Obj.Width

  1&lt;img_reduce_size (150-aspjpeg_obj.width)="" 2,(150-aspjpeg_obj.height)="" 2,aspjpeg_obj="" aspjpeg_obj.height&lt;img_reduce_size="" aspjpeg_obj_new='createObject("Persits.Jpeg")' aspjpeg_obj_new.drawimage="" aspjpeg_obj_new.new="" if="" img_frame_size="" img_reduce_size,img_reduce_size,&amp;hffffff="" or="" set="" then=""&gt;0 then   
  2Call Img_Pen(AspJpeg_Obj_New)   
  3End If   
  4If Img_Font_Content&amp;lt;&amp;gt;"" then   
  5Img_Font_X=AspJpeg_Obj_New.Width/2   
  6Img_Font_Y=AspJpeg_Obj_New.Height-15   
  7Call Img_Font(AspJpeg_Obj_New)   
  8End If   
  9AspJpeg_Obj_New.Sharpen 1, 130   
 10AspJpeg_Obj_New.Save Img_MathPath_To   
 11Set AspJpeg_Obj_New=Nothing   
 12Else   
 13If Img_Frame_Size&amp;gt;0 then   
 14Call Img_Pen(AspJpeg_Obj)   
 15End If   
 16If Img_Font_Content&amp;lt;&amp;gt;"" then   
 17Img_Font_X=AspJpeg_Obj.Width/2   
 18Img_Font_Y=AspJpeg_Obj.Height-15   
 19Call Img_Font(AspJpeg_Obj)   
 20End If   
 21AspJpeg_Obj.Sharpen 1, 130   
 22AspJpeg_Obj.Save Img_MathPath_To   
 23End If   
 24Else   
 25If Img_Frame_Size&amp;gt;0 then   
 26Call Img_Pen(AspJpeg_Obj)   
 27End If   
 28If Img_Font_Content&amp;lt;&amp;gt;"" then   
 29Img_Font_X=AspJpeg_Obj.Width/2   
 30Img_Font_Y=AspJpeg_Obj.Height-15   
 31Call Img_Font(AspJpeg_Obj)   
 32End If   
 33AspJpeg_Obj.Sharpen 1, 130   
 34AspJpeg_Obj.Save Img_MathPath_To   
 35End If   
 36End Function   
 37'生成水印   
 38Public Function Img_WaterMark()   
 39If Not(FileIs(Img_MathPath_From)) then   
 40Img_WaterMark=Errors(0)   
 41Exit Function   
 42End If   
 43If Img_MathPath_To="" then   
 44Img_MathPath_To=Img_MathPath_From   
 45ElseIf Not(FolderIs(UpDir(Img_MathPath_To))) then   
 46Img_WaterMark=Errors(1)   
 47Exit Function   
 48End If   
 49If CoverIf=0 or CoverIf=false then   
 50If Img_MathPath_To&amp;lt;&amp;gt;Img_MathPath_From and FileIs(Img_MathPath_To) then   
 51Img_WaterMark=Errors(2)   
 52Exit Function   
 53End If   
 54End If   
 55AspJpeg_Obj.Open Img_MathPath_From   
 56If Img_PicIn_Path&amp;lt;&amp;gt;"" then   
 57If Not(FileIs(Img_PicIn_Path)) then   
 58Img_WaterMark=Errors(0)   
 59Exit Function   
 60End If   
 61Set AspJpeg_Obj_New=createObject("Persits.Jpeg")   
 62AspJpeg_Obj_New.Open Img_PicIn_Path   
 63AspJpeg_Obj.PreserveAspectRatio = True   
 64AspJpeg_Obj_New.PreserveAspectRatio = True   
 65If AspJpeg_Obj.OriginalWidth&lt;img_reduce_size aspjpeg_obj.originalheight&lt;img_reduce_size="" aspjpeg_obj_new.originalwidth="" end="" exit="" function="" if="" img_watermark="Errors(3)" or="" then=""&gt;AspJpeg_Obj_New.OriginalHeight Then   
 66AspJpeg_Obj_New.Width=Img_Reduce_Size   
 67Else   
 68AspJpeg_Obj_New.Height=Img_Reduce_Size   
 69End If   
 70If Img_PicIn_X="" then Img_PicIn_X=AspJpeg_Obj.Width-AspJpeg_Obj_New.Width   
 71If Img_PicIn_Y="" then Img_PicIn_Y=AspJpeg_Obj.Height-AspJpeg_Obj_New.Height   
 72AspJpeg_Obj.DrawImage Img_PicIn_X,Img_PicIn_Y,AspJpeg_Obj_New   
 73Set AspJpeg_Obj_New=Nothing   
 74End If   
 75If Img_Frame_Size&amp;gt;0 then   
 76Call Img_Pen(AspJpeg_Obj)   
 77End If   
 78If Img_Font_Content&amp;lt;&amp;gt;"" then   
 79Call Img_Font(AspJpeg_Obj)   
 80End If   
 81'AspJpeg_Obj.Sharpen 1, 130   
 82AspJpeg_Obj.Save Img_MathPath_To   
 83End Function   
 84'生成框架   
 85Private Function Img_Pen(Obj)   
 86If Img_Frame_Width=0 then Img_Frame_Width=Obj.Width   
 87If Img_Frame_Height=0 then Img_Frame_Height=Obj.Height   
 88Obj.Canvas.Pen.Color = Img_Frame_Color   
 89Obj.Canvas.Pen.Width = Img_Frame_Size   
 90Obj.Canvas.Brush.Solid = Img_Frame_Solid   
 91Obj.Canvas.Bar 1,1,Img_Frame_Width,Img_Frame_Height   
 92End Function   
 93'生成水印字   
 94Private Function Img_Font(Obj)   
 95Obj.Canvas.Font.Color = Img_Font_Color   
 96Obj.Canvas.Font.Family = Img_Font_Family   
 97Obj.Canvas.Font.Quality=Img_Font_Quality   
 98Obj.Canvas.Font.Size=Img_Font_Size   
 99Obj.Canvas.Font.Bold = Img_Font_Bold   
100Obj.Canvas.Print Img_Font_X,Img_Font_Y,Img_Font_Content   
101End Function   
102End Class   
103

9/30 详细解说:
这个类可以公开调用
1. ImgInfo_Height 取图片高度
2. ImgInfo_Width 取图片宽度
调用方法:

CODE:	[Copy to clipboard]
Dim NewObj,Pic_h,Pic_w
Set NewObj=New AspJpeg
Pic_h=NewObj.ImgInfo_Height("f:/test.jpg")
Pic_w=NewObj.ImgInfo_Width("f:/test.jpg")
Set NewObj=Nothing
Response.Write "This Picture's Height is "&Pic_h
Response.Write "This Picture's Width is "&Pic_w
Response.End

3. Img_Reduce 对指定图片缩小或放大并保存(可选择是否加水印,是否加框架)
必须定义声明 MathPathFrom,MathPathTo
默认为缩放至150X150 图案如按比例缩放后图案小于该尺寸,则补充空白图片
默认文件自动覆盖
实例:

CODE:	[Copy to clipboard]
Dim NewObj,NewCommand
Set NewObj=New AspJpeg
NewObj.MathPathFrom="f:/test.jpg"
NewObj.MathPathTo="f:/reduce.jpg"
NewCommand=NewObj.Img_Reduce
Set NewObj=Nothing
If NewCommand<>"" then
Response.Write "Success"
Else
'图片操作过程中出现错误
Response.Write "Failed"
End If

4. Img_WaterMark 给指定图片添加水印
水印可以为图片文字或 2者结合</img_reduce_size></img_reduce_size>