ASPJPEG综合操作CLASS

川长思鸟来 2022-09-18 05:51 9阅读 0赞

<%  
'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<Img\_Reduce\_Size or AspJpeg\_Obj.Height<Img\_Reduce\_Size then  
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  
If AspJpeg\_Obj\_New.OriginalWidth>AspJpeg\_Obj\_New.OriginalHeight Then  
AspJpeg\_Obj\_New.Width=Img\_Reduce\_Size  
Else  
AspJpeg\_Obj\_New.Height=Img\_Reduce\_Size  
End If  
If Img\_PicIn\_X="" then Img\_PicIn\_X=AspJpeg\_Obj.Width-AspJpeg\_Obj\_New.Width  
If Img\_PicIn\_Y="" then Img\_PicIn\_Y=AspJpeg\_Obj.Height-AspJpeg\_Obj\_New.Height  
AspJpeg\_Obj.DrawImage Img\_PicIn\_X,Img\_PicIn\_Y,AspJpeg\_Obj\_New  
Set AspJpeg\_Obj\_New=Nothing  
End If  
If Img\_Frame\_Size>0 then  
Call Img\_Pen(AspJpeg\_Obj)  
End If  
If Img\_Font\_Content<>"" then  
Call Img\_Font(AspJpeg\_Obj)  
End If  
'AspJpeg\_Obj.Sharpen 1, 130  
AspJpeg\_Obj.Save Img\_MathPath\_To  
End Function  
'生成框架  
Private Function Img\_Pen(Obj)  
If Img\_Frame\_Width=0 then Img\_Frame\_Width=Obj.Width  
If Img\_Frame\_Height=0 then Img\_Frame\_Height=Obj.Height  
Obj.Canvas.Pen.Color = Img\_Frame\_Color  
Obj.Canvas.Pen.Width = Img\_Frame\_Size  
Obj.Canvas.Brush.Solid = Img\_Frame\_Solid  
Obj.Canvas.Bar 1,1,Img\_Frame\_Width,Img\_Frame\_Height  
End Function  
'生成水印字  
Private Function Img\_Font(Obj)  
Obj.Canvas.Font.Color = Img\_Font\_Color  
Obj.Canvas.Font.Family = Img\_Font\_Family  
Obj.Canvas.Font.Quality=Img\_Font\_Quality  
Obj.Canvas.Font.Size=Img\_Font\_Size  
Obj.Canvas.Font.Bold = Img\_Font\_Bold  
Obj.Canvas.Print Img\_Font\_X,Img\_Font\_Y,Img\_Font\_Content  
End Function  
End Class  
  
%>

from

**其他文章：**

[用ASPJPEG组件制作图片的缩略图和加水印][ASPJPEG]

[在VC中使用 Flash 美化你的程序][VC_ Flash]

[获得WebBrowser控件中的HTML源码][WebBrowser_HTML]

[使用IE控件的一些有趣方法][IE]

[为Pocket PC上的IE创建ActiveX控件][Pocket PC_IE_ActiveX]

[ASP服务器端组件编程实例1][ASP_1]

[aspjpeg组件高级使用方法介绍][aspjpeg]

[用AspJpeg组件，按宽高比例，真正生成缩略图][AspJpeg]

[ASPJPEG]: http://blog.csdn.net/suprman/archive/2007/01/05/1474628.aspx
[VC_ Flash]: http://blog.csdn.net/suprman/archive/2007/01/04/1473607.aspx
[WebBrowser_HTML]: http://blog.csdn.net/suprman/archive/2007/01/04/1473579.aspx
[IE]: http://blog.csdn.net/suprman/archive/2007/01/04/1473582.aspx
[Pocket PC_IE_ActiveX]: http://blog.csdn.net/suprman/archive/2007/01/04/1473575.aspx
[ASP_1]: http://blog.csdn.net/suprman/archive/2006/10/23/1346201.aspx
[aspjpeg]: http://blog.csdn.net/suprman/archive/2007/01/05/1474632.aspx
[AspJpeg]: http://blog.csdn.net/suprman/archive/2007/01/15/1483521.aspx