高清无码视频在线观看,XXXXXL56ENDIAN

主頁(yè) > 知識(shí)庫(kù) > ASP程序給上傳的圖片增添水印效果!

ASP程序給上傳的圖片增添水印效果!

ASPJPEG是Persits出品的共享軟件，試用期為30天，您可以在這里下載：http://www.persits.com/aspjpeg.exe。
最新版本號(hào)是1.3
=========================================
%
    sub   jpegclass(imgurl,fontsize,family,isbold,top,left,content,Horflip)   '調(diào)用過(guò)程名

          Dim   Jpeg,font_color,font_size,font_family,f_width,f_height,f_content,f_Horflip
          '建立實(shí)例
                Set   Jpeg   =   Server.CreateObject("Persits.Jpeg")
                font_size=10
                font_family="宋體"
                f_left=   5
                f_top=5

                      if   imgurl>""   then
                            Jpeg.Open   Server.MapPath(imgurl)'圖片路徑并打開(kāi)它
                      else
                      response.write   "未找到圖片路徑"
                      exit   sub
                      end   if

                      if   fontsize>""   then   font_size=fontsize     '字體大小
                      if   family>""   then       font_family=family       '字體
                      if   top>""   then   f_left=left               '水印離圖片左邊位置
                      if   left>""   then   f_top=top         '水印離圖片top位置
                      if   content=""   then     '水印內(nèi)容
                                response.write   "水印什么內(nèi)容呢，水印不成功！"
                                exit   sub
                      else
                                f_content=content
                      end   if


                        '   添加文字水印
                      Jpeg.Canvas.Font.Color   =   hff0000         '   紅色
                      Jpeg.Canvas.Font.Family   =   font_family
                      jpeg.canvas.font.size=     font_size
                      if   isbold=1     then
                      Jpeg.Canvas.Font.Bold   =   True
                      end   if
    If   Horflip   =   1   Then
              Jpeg.FlipH
      'Jpeg.SendBinary
                    End   If
                      Jpeg.Canvas.Print   f_left,     f_top,   f_content

                        '   保存文件
                      Jpeg.Save   Server.MapPath(imgurl)

                      '   注銷對(duì)象
                      Set   Jpeg   =   Nothing
  response.write   "水印成功，圖片上加了  "content""
  end   sub

  call   jpegclass("apple.jpg",13,"楷體",1,18,18,"你好，這是水印程序",1)
  %>

  先下載aspjpeg組建，注冊(cè)后使用

################轉(zhuǎn)載方法2####################

ASP給圖片加水印是需要組件的...常用的有aspjpeg軟件和中國(guó)人自己開(kāi)發(fā)的wsImage軟件，可以上網(wǎng)搜索下載這兩個(gè)軟件，推薦使用咱們中國(guó)人自己開(kāi)發(fā)的wsImage，畢竟是中文版，容易操作．

注冊(cè)組件的方法:

命令提示符下輸入"regsvr32 [Dll路徑]" 就可以了．

圖片添加水印無(wú)非就是獲得圖片大小,然后把水印寫(xiě)上去..ASP代碼只是起個(gè)控制組件的作用.用代碼來(lái)說(shuō)明一切吧.

一:獲得圖片大小(這里是用象素值表示的.學(xué)PhotoShop的朋友都應(yīng)該明白)

%

set obj=server.CreateObject("wsImage.Resize") ''調(diào)用組件

obj.LoadSoucePic server.mappath("25.jpg") ''打開(kāi)圖片,圖片名字是25.jpg

obj.GetSourceInfo iWidth,iHeight

response.write "圖片寬度:"  iWidth  "br>" ''獲得圖片寬度

response.write "圖片高度:"  iHeight  "br>" ''獲得圖片高度

strError=obj.errorinfo

if strError>"" then

response.write obj.errorinfo

end if

obj.free

set obj=nothing

%>

''----------------------------------------------------------------''

二:添加文字水印

%

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

%>

''----------------------------------------------------------------''

三:添加圖片水印

%

set obj=server.CreateObject("wsImage.Resize")

obj.LoadSoucePic server.mappath("25.jpg") ''裝載圖片

obj.LoadImgMarkPic server.mappath("blend.bmp") ''裝載水印圖片

obj.Quality=75

obj.AddImgMark server.mappath("imgMark.jpg"), 315, 220,hFFFFFF, 70

strError=obj.errorinfo ''生成圖片名字,文字顏色即水印在圖片的位置

if strError>"" then

response.write obj.errorinfo

end if

obj.free

set obj=nothing

%>

''----------------------------------------------------------------''

其實(shí)給圖片添加水印就這么簡(jiǎn)單.然后我在說(shuō)下WsImage.dll組件的另外兩個(gè)主要用法.包括:

剪裁圖片,生成圖片的縮略圖.

還是以我得習(xí)慣,用代碼加注釋說(shuō)明:

剪裁圖片:

%

set obj=server.CreateObject("wsImage.Resize")

obj.LoadSoucePic server.mappath("25.jpg")

obj.Quality=75

obj.cropImage server.mappath("25_crop.jpg"),100,10,200,200 ''定義裁減大小和生成圖片名字

strError=obj.errorinfo

if strError>"" then

response.write obj.errorinfo

end if

obj.free

set obj=nothing

%>

詳細(xì)注釋:裁減圖片用到了WsImage的CropImage方法.其中定義生成圖片時(shí)候,100,10是左上角的裁減點(diǎn),即離圖片左邊是100象素,頂端10象素.后兩個(gè)200代表的是裁減的寬帶和高和高度.

''----------------------------------------------------------------''

生成圖片縮略圖:

%

set obj=server.CreateObject("wsImage.Resize")

obj.LoadSoucePic server.mappath("25.jpg") ''加載圖片

obj.Quality=75

obj.OutputSpic server.mappath("25_s.jpg"),0.5,0.5,3 ''定義縮略圖的名字即大小

strError=obj.errorinfo

if strError>"" then

response.write obj.errorinfo

end if

obj.free

set obj=nothing

%>

詳細(xì)說(shuō)明:

產(chǎn)生縮略圖共有四種導(dǎo)出方式：

(1) obj.OutputSpic server.mappath("25_s.jpg"),200,150,0

200為輸出寬，150為輸出高，這種輸出形式為強(qiáng)制輸出寬高，可能引起圖片變形。

(2) obj.OutputSpic server.mappath("25_s.jpg"),200,0,1

以200為輸出寬，輸出高將隨比列縮放。

(3) obj.OutputSpic server.mappath("25_s.jpg"),0,200,2

以200為輸出高，輸出寬將隨比列縮放。

(4) obj.OutputSpic server.mappath("25_s.jpg"),0.5,0.5,3

第一個(gè)0.5表示生成的縮略圖是原圖寬的一半，即表示寬縮小比例。

第二個(gè)0.5表示生成的縮略圖是原圖高的一半，即表示高縮小比例。

寬高的縮小比例一致意味著將對(duì)原圖進(jìn)行比例縮小。寬高的縮放比例如果大于1，則對(duì)原圖進(jìn)行放大。

希望這點(diǎn)技術(shù)性文章對(duì)你有幫助．

小程序詳細(xì)內(nèi)容和下載地址：http://www.mbsky.com/SoftView/SoftView_38956.html

您可能感興趣的文章:

aspJpeg圖片水印有雜點(diǎn)的完美解決方法
基于ASPJPEG 制作了一個(gè)夢(mèng)寐已久的批量水印工具步驟
aspjpeg 添加水印教程及生成縮略圖教程
aspjpeg組件通用加水印函數(shù)代碼
asp水印組件之AspJpeg的結(jié)合代碼實(shí)例
利用ASPUPLOAD，ASPJPEG實(shí)現(xiàn)圖片上傳自動(dòng)生成縮略圖及加上水印
asp圖片加水印的功能代碼

標(biāo)簽：孝感四平遼陽(yáng) 平頂山馬鞍山防城港湖北朝陽(yáng)

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《ASP程序給上傳的圖片增添水印效果!》，本文關(guān)鍵詞 ASP,程序,給,上傳,的,圖片,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。