一、为图片添加水印 <%Dim Jpeg   '//声明变量 Set Jpeg = Server.CreateObject("Persits.Jpeg") '//调用组件 Jpeg.Open Server.MapPath("aaa.JPG") '//源图片位置 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, "梅河口论坛 MHKBBS.COM" '//水印文字，两个数字10为水印的xy座标 Jpeg.Save Server.MapPath("aaa_05.jpg") '//生成有水印的新图片及保存位置 Set Jpeg = Nothing '//注销组件，释放资源 Response.Write "<img src=aaa_05.jpg>" '//在该页显示生成水印后的图片%>________________________________________ 二、生成缩略图 <%Dim Jpeg '//声明变量 Set Jpeg = Server.CreateObject("Persits.Jpeg") '//调用组件 Jpeg.Open Server.MapPath("aaa.JPG") '//原图位置 Jpeg.Width = Jpeg.OriginalWidth/4 '//设图片宽度为原图的四分之一 Jpeg.Height = Jpeg.OriginalHeight/4 '//设图片高度为原图的四分之一 Jpeg.Sharpen 1, 130 '//设定锐化效果 Jpeg.Save Server.MapPath("aaa_small.jpg") '//生成缩略图位置及名称 Set Jpeg = Nothing '//注销组件，释放资源 Response.Write "<img src=aaa_small.jpg>" '//在该页显示生成缩略图%> 但是要使用这两段代码，必须先在服务器上安装Aspjpeg组件！

评论