1. 论坛系统升级为Xenforo,欢迎大家测试!
    排除公告

比较好看的asp加水印功能

本帖由 著名混混2006-06-29 发布。版面名称:后端开发

  1. 著名混混

    著名混混 New Member

    注册:
    2006-03-22
    帖子:
    292
    赞:
    1
    PHP:
    <%
    Dim Jpeg 
    Set Jpeg 
    Server.CreateObject("Persits.Jpeg"
    Jpeg.Open Server.MapPath("1.jpg")
    dim aa
    aa
    =jpeg.binary
     
    Jpeg
    .Canvas.Font.Color = &Hffffff 
    Jpeg
    .Canvas.Font.Family "Arial" 
    Jpeg.Canvas.Font.size 21 
    Jpeg
    .Canvas.Font.Bold True
    Jpeg
    .Canvas.Font.ShadowYOffset 
         Jpeg
    .Canvas.Font.ShadowXOffset 
         Jpeg
    .Canvas.Brush.Solid True 
         Jpeg
    .Canvas.Font.Quality 


    Jpeg
    .Canvas.Print Jpeg.OriginalWidth-130 ,Jpeg.Originalheight-22"Zhangding.net" ' 自己修改X、Y坐标以及需要水印的文字

    bb=jpeg.binary

    set myjpeg=server.createobject("persits.jpeg")
    myjpeg.openbinary aa
    set logo=server.createobject("persits.jpeg")
    logo.openbinary bb
    myjpeg.drawimage 0,0,logo,0.3
    cc=myjpeg.binary
    '
    response.binarywrite cc
    myJpeg
    .Save Server.MapPath("2.jpg")
    set aa=nothing
    set bb
    =nothing
    set cc
    =nothing
    jpeg
    .close
    myjpeg
    .close
    logo
    .close 
    %>
    Demo:
     

    附件文件:

  2. 著名混混

    著名混混 New Member

    注册:
    2006-03-22
    帖子:
    292
    赞:
    1
    以上的asp代码,需要用到aspjpeg组件
     
  3. herryli

    herryli New Member

    注册:
    2006-06-29
    帖子:
    2
    赞:
    0
    非常不错,谢谢楼主提供!
     
  4. herryli

    herryli New Member

    注册:
    2006-06-29
    帖子:
    2
    赞:
    0
    非常不错,谢谢楼主提供!感谢!
     
  5. cody

    cody New Member

    注册:
    2006-01-11
    帖子:
    291
    赞:
    1
    可是我现在不用ASP了,用PHP了
     
  6. 著名混混

    著名混混 New Member

    注册:
    2006-03-22
    帖子:
    292
    赞:
    1
    水印!水印!水印!aspjpge立功了,aspjpge立功了!不要给PHP任何的机会。

      ——伟大的aspjpge!他继承了asp啥都需要组件得光荣的传统。jmail、aspupload在这一刻灵魂附体!

    aspjpge组件悠久的历史和传统,在这一刻他不是一个组件在战斗,他不是一个组件!
     
  7. shizhou

    shizhou New Member

    注册:
    2005-09-05
    帖子:
    5
    赞:
    0
    晕,伟大的ASP万岁,意大利万岁