- <%
- '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
- '---------------取插入圖片屬性
- '插入圖片的路徑
- 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
- %>
這個類可以公開調用
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者結合
