添加文字水印

    <%
    set obj=server.CreateObject("wsImage.Resize")
    obj.LoadSoucePic server.mappath("25.jpg") ''裝載圖片
    obj.Quality=75
    obj.TxtMarkFont = "華文彩云" ''設(shè)置水印文字字體
    obj.TxtMarkBond = false ''設(shè)置水印文字的粗細(xì)
    obj.MarkRotate = 0 ''水印文字的旋轉(zhuǎn)角度
    obj.TxtMarkHeight = 25 ''水印文字的高度
    obj.AddTxtMark server.mappath("txtMark.jpg"), "帶你離境", &H00FF00&, 10, 70
    strError=obj.errorinfo ''生成圖片名字,文字顏色即水印在圖片的位置
    if strError<>"" then
    response.write obj.errorinfo
    end if
    obj.free
    set obj=nothing
    %>