ASPJPEG综合操作的CLASS类(4)

Set AspJpeg_Obj_New=createObject("Persits.Jpeg") 
AspJpeg_Obj_New.new Img_Reduce_Size,Img_Reduce_Size,&HFFFFFF 
AspJpeg_Obj_New.DrawImage (150-AspJpeg_Obj.width)/2,(150-AspJpeg_Obj.height)/2,AspJpeg_Obj 
If Img_Frame_Size>0 then 
Call Img_Pen(AspJpeg_Obj_New) 
End If 
If Img_Font_Content<>"" then 
Img_Font_X=AspJpeg_Obj_New.Width/2 
Img_Font_Y=AspJpeg_Obj_New.Height-15 
Call Img_Font(AspJpeg_Obj_New) 
End If 
AspJpeg_Obj_New.Sharpen 1, 130 
AspJpeg_Obj_New.Save Img_MathPath_To 
Set AspJpeg_Obj_New=Nothing 
Else 
If Img_Frame_Size>0 then 
Call Img_Pen(AspJpeg_Obj) 
End If 
If Img_Font_Content<>"" then 
Img_Font_X=AspJpeg_Obj.Width/2 
Img_Font_Y=AspJpeg_Obj.Height-15 
Call Img_Font(AspJpeg_Obj) 
End If 
AspJpeg_Obj.Sharpen 1, 130 
AspJpeg_Obj.Save Img_MathPath_To 
End If 
Else 
If Img_Frame_Size>0 then 
Call Img_Pen(AspJpeg_Obj) 
End If 
If Img_Font_Content<>"" then 
Img_Font_X=AspJpeg_Obj.Width/2 
Img_Font_Y=AspJpeg_Obj.Height-15 
Call Img_Font(AspJpeg_Obj) 
End If 
AspJpeg_Obj.Sharpen 1, 130 
AspJpeg_Obj.Save Img_MathPath_To 
End If 
End Function 
'生成水印 
Public Function Img_WaterMark() 
If Not(FileIs(Img_MathPath_From)) then 
Img_WaterMark=Errors(0) 
Exit Function 
End If 
If Img_MathPath_To="" then 
Img_MathPath_To=Img_MathPath_From 
ElseIf Not(FolderIs(UpDir(Img_MathPath_To))) then 
Img_WaterMark=Errors(1) 
Exit Function 
End If 
If CoverIf=0 or CoverIf=false then 
If Img_MathPath_To<>Img_MathPath_From and FileIs(Img_MathPath_To) then 
Img_WaterMark=Errors(2) 
Exit Function 
End If 
End If 
AspJpeg_Obj.Open Img_MathPath_From 
If Img_PicIn_Path<>"" then 
If Not(FileIs(Img_PicIn_Path)) then 
Img_WaterMark=Errors(0) 
Exit Function 
End If 
Set AspJpeg_Obj_New=createObject("Persits.Jpeg") 
AspJpeg_Obj_New.Open Img_PicIn_Path 
AspJpeg_Obj.PreserveAspectRatio = True 
AspJpeg_Obj_New.PreserveAspectRatio = True 
If AspJpeg_Obj.OriginalWidth<Img_Reduce_Size or AspJpeg_Obj.OriginalHeight<Img_Reduce_Size then 
Img_WaterMark=Errors(3) 
Exit Function 
End If