水印测试(重新测试)

注:如果你是用Fireworks来处理LOGO图片,在导出图片的时候用Alpha透明而不要用索引透明! Dim Jpeg,LogoSet Jpeg = Server.CreateObject(“Persits.Jpeg”)Jpeg.Open Server.MapPath(UploadDir&Request2.Form(“LocalImage”))’打开图片‘添加文字水印‘Jpeg.Canvas.Font.Color = &HFF0000’ 红色‘Jpeg.Canvas.Font.Family = “Verdana”‘Jpeg.Canvas.Font.Size = 15‘Jpeg.Canvas.