function water_and_small(oldjpg,waterjpg,smalljpg,watertext,jpgname)

'----------------------------------------------------------------------------------'
'版权:  
'  依次网 www.yici.net,转载请注明出处,谢谢!
'  本函数为上传图片添加水水印并生成缩略图,需要服务器安装了ASPJPEG组件方可执行
'参数说明:
'  源图位置
'    oldjpg="2020.JPG"
'  水印后图片位置
'    waterjpg="upload/old/xxx.jpg"
'  缩略图位置
'    smalljpg="upload/small/xxx.jpg"
'  水印文字
'    watertext="by:www.yici.net at ["&date()&"]"
'  图片注释
'    jpgname="图片注释"
'调用方式:
'  oldjpg="xxx.JPG"
'  waterjpg="upload/old/xxx.jpg"
'  smalljpg="upload/small/xxx.jpg"
'  watertext="by:www.avictor.net at ["&date()&"]"
'  jpgname="图片注释"
'  call water_and_small(oldjpg,waterjpg,smalljpg,watertext,jpgname)
'----------------------------------------------------------------------------------'

'为上传图片添加水印

Dim Jpeg   '//声明变量

Set Jpeg = Server.CreateObject("Persits.Jpeg") '//调用组件

Jpeg.Open Server.MapPath(oldjpg) '//源图片位置

Jpeg.Canvas.Font.Color = &H000000 '//水印字体颜色

Jpeg.Canvas.Font.Family = "宋体" '//水印字体

Jpeg.Canvas.Font.Size = 12 '//水印字体大小

'Jpeg.Canvas.Font.Bold = False　'//是否粗体，粗体用：True

Jpeg.Canvas.Font.ShadowColor = &HFFFFFF '//阴影色彩
Jpeg.Canvas.Font.ShadowYOffset = 1
Jpeg.Canvas.Font.ShadowXOffset = 1

'Jpeg.Canvas.Font.BkMode = &HFFFFFF '//字体背景颜色

Jpeg.Canvas.Print Jpeg.OriginalWidth-240, Jpeg.OriginalHeight-20, watertext '//水印文字，两个数字10为水印的xy座标

'Jpeg.Canvas.Print 10, 10,jpgname'//图片注释

Jpeg.Save Server.MapPath(waterjpg) '//生成有水印的新图片及保存位置

Set Jpeg = Nothing '//注销组件，释放资源

'Response.Write "<img src="&waterjpg&">" '//在该页显示生成水印后的图片

'为上传图片生成缩略图
'Dim Jpeg '//声明变量

Set Jpeg = Server.CreateObject("Persits.Jpeg") '//调用组件

Jpeg.Open Server.MapPath(oldjpg) '//原图位置

Jpeg.Width = Jpeg.OriginalWidth/4 '//设图片宽度为原图的四分之一

Jpeg.Height = Jpeg.OriginalHeight/4 '//设图片高度为原图的四分之一

Jpeg.Sharpen 1, 130 '//设定锐化效果

Jpeg.Save Server.MapPath(smalljpg) '//生成缩略图位置及名称

Set Jpeg = Nothing '//注销组件，释放资源

'Response.Write "<img src="&smalljpg&">" '//在该页显示生成缩略图