<%
'ASPJPEG COMPLESSION CRASE
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 (strype)
Img_mathpath_from = strtype
EndProperty
'-------------------------------------------------------------------------------------------------------------------------
Publicpropertyletmathpathto (strtype)
Img_mathpath_to = strtype
EndProperty
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Publicpropertyletcovepro (lngsize)
Iflngsize = 0orlngsize = 1orlngsize = trueOrlngsize = falsethen
Coverif = lngsize
Эндиф
EndProperty
'-------------------------------------------------------------------------------------------------------------------------
Publicpropertyletreducesize (lngsize)
Ifisnumeric (lngsize) тогда
Img_reduce_size = lngsize
Эндиф
EndProperty
'-------------------------------------------------------------------------------------------------------------------------
'Толщина границы
PublicPropertyletleTramesize (lngsize)
Ifisnumeric (lngsize) тогда
Img_frame_size = clng (lngsize)
Эндиф
EndProperty
'Ширина границы
Publicpropertyletframewidth (lngsize)
Ifisnumeric (lngsize) тогда
Img_frame_width = clng (lngsize)
Эндиф
EndProperty
Высота границы
Publicpropertyletframeheight (lngsize)
Ifisnumeric (lngsize) тогда
Img_frame_height = clng (lngsize)
Эндиф
EndProperty
'Пограничный цвет
Publicpropertyletframecolor (Strype)
IfStrype <> "" Тогда
Img_frame_color = strtype
Эндиф
EndProperty
«Граница толще?
Publicpropertyletleframesolid (lngsize)
Iflngsize = 1orlngsize = 0orlngsize = trueOrlngsize = falsethen
Img_frame_solid = lngsize
Эндиф
EndProperty
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Вставленный текст
PublicPropertyletContent (Strype)
IfStrype <> "" Тогда
Img_font_content = strtype
Эндиф
EndProperty
'Текст шрифт
Publicpropertyletfontfamily (Strype)
IfStrype <> "" Тогда