梦想在远方

Sub Echo(s)
  Response.Write s&"<br>"&vbcrlf
End Sub

Set Jpeg = Server.CreateObject("Persits.Jpeg") 
        With Jpeg
                .Open Server.MapPath("wangjy500.jpg")
           '添加水印文字
                .Canvas.Font.Color  = &HFFFFFF' 字体颜色
                .Canvas.Font.Family = "微软雅黑"  '字体
                .Canvas.Font.Bold   = True  '是否加粗
                .Canvas.Font.Size   = 50  '
                .Canvas.Font.ShadowColor = &HFF0000 '文字阴影颜色'
                .Canvas.Font.ShadowXOffset = 1  '阴影X坐标'
                .Canvas.Font.ShadowYOffset = 1  '阴影Y坐标'
                .Canvas.Font.Quality = 4 ' 文字清晰度 1-4, 4最好
                FontWidth = .Canvas.GetTextExtent("水印文字")
                '.Canvas.Font.BkMode = "Opaque"  '文字背景'
                .Canvas.PrintText .OriginalWidth/2-FontWidth/2, .OriginalHeight/2-25,  "水印文字"'打印坐标x 打印坐标y 需要打印的字符
            '以下是对图片进行边框处理
                ' .Canvas.Pen.Color   = &H000000' black 颜色
                ' .Canvas.Pen.Width   = 0 '画笔宽度
                ' .Canvas.Brush.Solid = False '是否填充
                ' .Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height  '起始X坐标 起始Y坐标 输入长度 输入高度
                .Quality = 100
                .Save Server.MapPath("wangjy_water.jpg")
        End With
Set Jpeg = Nothing
Set Jpeg = Server.CreateObject("Persits.Jpeg") 
        With Jpeg
                .Open Server.MapPath("wangjy_water.jpg")
           '缩略图
                .Width = .OriginalWidth / 5
                .Height = .OriginalHeight / 5
                .Sharpen 1, 130 '//设定锐化效果 
                .Quality = 100
                .Save Server.MapPath("wangjy500_small.png")
        End With
Set Jpeg = Nothing
Set Jpeg = Server.CreateObject("Persits.Jpeg") 
        With Jpeg
                .Open Server.MapPath("wangjy500_small.png")
           '图片切割
                .crop 0,0,180,150
                .Quality = 100
                .Save Server.MapPath("wangjy500_crop.png")
        End With
Set Jpeg = Nothing
Set Jpeg = Server.CreateObject("Persits.Jpeg") 
        With Jpeg
                .Open Server.MapPath("wangjy500_small.png")
           '图片合并
                .Canvas.DrawPNG .OriginalWidth-140,.OriginalHeight-50,Server.MapPath("logo.png")
                .Quality = 100
                .Save Server.MapPath("wangjy500_hb.png")
        End With
Set Jpeg = Nothing
Set Jpeg = Server.CreateObject("Persits.Jpeg") 
Set Logo = Server.CreateObject("Persits.Jpeg")
    Logo.Open Server.MapPath("logo.png")
        With Jpeg
                .Open Server.MapPath("wangjy500_small.png")
           '图片合并
                .Canvas.DrawImage 1,1,Logo,0.3,&HFFFFFF 
                '其中0.3是透明度，1是不透明，值越小，透明越大，0就什么也看不见了。&HFFFFFF这个参数必须与透明图片水印图的背景一样，不然的话就实现不了透明了。'
                .Quality = 100
                .Save Server.MapPath("wangjy500_hb.png")
        End With
Set Logo = Nothing
Set Jpeg = Nothing

Set Jpeg = Server.CreateObject("Persits.Jpeg") 
        With Jpeg
                .New 300, 300, &HFF0000& ' background
                .Canvas.Pen.Color   = &HFFFFFF' black 颜色
                .Canvas.Pen.Width   = 2 '画笔宽度
                .Canvas.Brush.Solid = True '是否填充
                .Canvas.Brush.Color = &H9AFF02  '填充颜色'
               ' .Canvas.Brush.Opacity = 0.2  '透明度
                .Canvas.Line 10, 20, 110, 80   '直线'
                .Canvas.Ellipse 110, 10, 210, 80  '椭圆'
                .Canvas.Circle 150,150,50   '圆'
                .Canvas.Bar 10, 200, 110, 280  '四边形'
                .Quality = 100
               '.SendBinary
               .Save Server.MapPath("wangjy500_test.png")
        End With
Set Jpeg = Nothing

' 验证码生成
Randomize
code = int(9000*Rnd+1000)
Set Jpeg = Server.CreateObject("Persits.Jpeg") 
        With Jpeg
                .New 60, 30, &HE2E2E2& ' background
                '.PNGOutput = True
                '.Save Server.MapPath("wangjy500_test.png")
                .Canvas.Font.Color  = &H006000' 字体颜色
                .Canvas.Font.Family = "微软雅黑"  '字体
                .Canvas.Font.Bold   = True  '是否加粗
                .Canvas.Font.Size   = 30  '
                .Canvas.Font.ShadowColor = &H006030 '文字阴影颜色'
                .Canvas.Font.ShadowXOffset = 1  '阴影X坐标'
                .Canvas.Font.ShadowYOffset = 1  '阴影Y坐标'
                .Canvas.Font.Quality = 100 ' 文字清晰度
                FontWidth = .Canvas.GetTextExtent(code)
                FontHeight = .Canvas.Font.Size
                '.Canvas.Font.BkMode = "Opaque"  '文字背景'
                .Canvas.PrintText (.OriginalWidth-FontWidth)/2, (.OriginalHeight- FontHeight)/2,code
                .Quality = 100
                '.Sendbinary
                .Save Server.MapPath("code.png")
        End With
Set Jpeg = Nothing

Echo "<img src=""wangjy_water.jpg""/>"
Echo "<img src=""wangjy500_small.png""/>"
Echo "<img src=""wangjy500_crop.png""/>"
Echo "<img src=""wangjy500_hb.png""/>"
Echo "<img src=""wangjy500_test.png""/>"
Echo "<img src=""code.png""/>"