<%
'ASPJPEG綜合操作CLASS
ClassAspJpeg
DimAspJpeg_Obj,obj
PrivateImg_MathPath_From,Img_MathPath_To,Img_Reduce_Size,CoverIf
PrivateImg_Frame_Size,Img_Frame_Color,Img_Frame_Solid,Img_Frame_Width,Img_Frame_Height
PrivateImg_Font_Content,Img_Font_Family,Img_Font_Color,Img_Font_Quality,Img_Font_Size,Img_Font_Bold,Img_Font_X,Img_Font_Y
PrivateImg_PicIn_Path,Img_PicIn_X,Img_PicIn_Y
'--------------取原文件路徑
PublicPropertyLetMathPathFrom(StrType)
Img_MathPath_From=StrType
EndProperty
'--------------取文件保存路徑
PublicPropertyLetMathPathTo(strType)
Img_MathPath_To=strType
EndProperty
'--------------保存文件時是否覆蓋已有文件
PublicPropertyLetCovePro(LngSize)
IfLngSize=0orLngSize=1orLngSize=trueorLngSize=falsethen
CoverIf=LngSize
EndIf
EndProperty
'---------------取縮略圖/放大圖縮略值
PublicPropertyLetReduceSize(LngSize)
IfisNumeric(LngSize)then
Img_Reduce_Size=LngSize
EndIf
EndProperty
'---------------取描邊屬性
'邊框粗細
PublicPropertyLetFrameSize(LngSize)
IfisNumeric(LngSize)then
Img_Frame_Size=Clng(LngSize)
EndIf
EndProperty
'邊框寬度
PublicPropertyLetFrameWidth(LngSize)
IfisNumeric(LngSize)then
Img_Frame_Width=Clng(LngSize)
EndIf
EndProperty
'邊框高度
PublicPropertyLetFrameHeight(LngSize)
IfisNumeric(LngSize)then
Img_Frame_Height=Clng(LngSize)
EndIf
EndProperty
'邊框顏色
PublicPropertyLetFrameColor(strType)
IfstrType<>""then
Img_Frame_Color=strType
EndIf
EndProperty
'邊框是否加粗
PublicPropertyLetFrameSolid(LngSize)
IfLngSize=1orLngSize=0orLngSize=trueorLngSize=falsethen
Img_Frame_Solid=LngSize
EndIf
EndProperty
'---------------取插入文字屬性
'插入的文字
PublicPropertyLetContent(strType)
IfstrType<>""then
Img_Font_Content=strType
EndIf
EndProperty
'文字字體
PublicPropertyLetFontFamily(strType)
IfstrType<>""then