ASPJPEG综合操作的CLASS

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【ASPJPEG综合操作的CLASS】，下面是详细的分享！

ASPJPEG综合操作的CLASS

<% 'ASPJPEG综合操作CLASS 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

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
%>

这个类可以公开调用 1. ImgInfo_Height 取图片高度 2. ImgInfo_Width 取图片宽度 调用方法: 程序代码 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 图案 如按比例缩放后图案小于该尺寸,则补充空白图片 默认文件自动覆盖 实例: 程序代码 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者结合

　　请作者联系本站，及时附注您的姓名。联系邮箱:edu#chinaz.com（把#改为@）。

以上所分享的是关于ASPJPEG综合操作的CLASS，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：安装了aspjpeg还是不行，怎么加权限？

　　答：检查IIS权限。 >>详细

　　相关问题：如何正确安装AspJpeg组件

　　答：下载ASPJpeg后，解压到服务器里，里面就有操作说明，按提示操作即可 ，很简单的； >>详细

　　相关问题：aspjpeg 2.0 组件如何注册?

　　答：去官方网站(www.aspjpeg.com)下载最新版,重新安装,一定会要求输入注册码的,随便网上找一个就行,或是手工到注册表中添加也可,官方上有说明文档,E文,但注册表内容还是能看懂的,按提示操作就行 >>详细