这个类可以公开调用 
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者结合