28,406
社区成员
发帖
与我相关
我的任务
分享
if imgWidth>=imgHeight and imgWidth>152 then
Jpeg.Width=152
Jpeg.Height=Jpeg.OriginalHeight/(Jpeg.OriginalWidth/152)
end if
if imgHeight>imgWidth and imgHeight>113 then
Jpeg.Height=113
Jpeg.Width=Jpeg.OriginalWidth/(Jpeg.OriginalHeight/113)
end if
'输出质量
Jpeg.Canvas.Font.Quality=4
Jpeg.Quality=100
'设定锐化效果
Jpeg.Sharpen 1, 130
Jpeg.Save (FilePath & "small_" & filenamet)
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open (FilePath & filenamet)
'开始变更所有文件扩展名为jpg
filenamelen=len(filenamet)
filenamelen=filenamelen-4
filenamet1=filenamet
filenamet=left(filenamet,filenamelen)
filenamet=filenamet&".jpg"
'结束文件名变更
'开始判断哪边为长边,以长边进行缩放
imgWidth=Jpeg.OriginalWidth
imgHeight=Jpeg.OriginalHeight
if imgWidth>=imgHeight and imgWidth>152 then
Jpeg.Width=152
Jpeg.Height=Jpeg.OriginalHeight/(Jpeg.OriginalWidth/152)
end if
if imgHeight>imgWidth and imgHeight>113 then
Jpeg.Height=113
Jpeg.Width=Jpeg.OriginalWidth/(Jpeg.OriginalHeight/113)
end if
'输出质量
Jpeg.Canvas.Font.Quality=4
Jpeg.Quality=100
'设定锐化效果
'Jpeg.Sharpen 1, 130
'Jpeg.Canvas.Font.Color = &H000000 ''''//水印字体颜色
'Jpeg.Canvas.Font.Family = "宋体" ''''//水印字体
'Jpeg.Canvas.Font.Size = 14 ''''//水印字体大小
'Jpeg.Canvas.Font.Bold = False ''''//是否粗体,粗体用:True
'Jpeg.Canvas.Font.BkMode = &HFFFFFF ''''//字体背景颜色
'Jpeg.Canvas.Print 10, 10, "www.chinateeyoo.com" ''''//水印文字,两个数字10为水印的xy座标
Jpeg.Save (FilePath & "small_" & filenamet)
'写入数据库
'Jpeg.Canvas.Font.Color = &H000000 ''''//水印字体颜色
'Jpeg.Canvas.Font.Family = "宋体" ''''//水印字体
'Jpeg.Canvas.Font.Size = 14 ''''//水印字体大小
'Jpeg.Canvas.Font.Bold = False ''''//是否粗体,粗体用:True
'Jpeg.Canvas.Font.BkMode = &HFFFFFF ''''//字体背景颜色
'Jpeg.Canvas.Print 10, 10, "www.chinateeyoo.com" ''''//水印文字,两个数字10为水印的xy座标