<form id="hz9zz"></form>
  • <form id="hz9zz"></form>

      <nobr id="hz9zz"></nobr>

      <form id="hz9zz"></form>

    1. 明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

      用ASPJPEG組件制作圖片的縮略圖與加水印

      [摘要]ASPJPEG是Persits出品的共享軟件,試用期為30天,您可以在這里下載:http://www.persits.com/aspjpeg.exe。最新版本號是1.3 ASPJPEG是一款功能相當強大的圖象處理組件,用它可以輕松地做出圖片的縮略圖和為圖片加上水印功能。下面簡單介紹一下使用方法: ...
      ASPJPEG是Persits出品的共享軟件,試用期為30天,您可以在這里下載:http://www.persits.com/aspjpeg.exe。最新版本號是1.3
      ASPJPEG是一款功能相當強大的圖象處理組件,用它可以輕松地做出圖片的縮略圖和為圖片加上水印功能。下面簡單介紹一下使用方法:
      您先要執行下載得到的exe文件,安裝該組件
      1、為圖片制作縮略圖

      <% ' 建立實例
      Dim Jpeg,Path
      Set Jpeg = Server.CreateObject("Persits.Jpeg")
      ' 圖片所在位置
      Path = Server.MapPath("images") & "\clock.jpg"


      ' 打開
      Jpeg.Open Path

      ' 設置縮略圖大。ㄟ@里比例設定為50%)
      Jpeg.Width = Jpeg.OriginalWidth / 2
      Jpeg.Height = Jpeg.OriginalHeight / 2

      ' 保存縮略圖到指定文件夾下
      Jpeg.Save Server.MapPath("images") & "\clock_small.jpg"

      ' 注銷實例
      Set Jpeg = Nothing
      %>

      <IMG SRC=http://www.okasp.com/techinfo/"images/clock.jpg"><P>
      <IMG SRC=http://www.okasp.com/techinfo/"images/clock_small.jpg">


      2、為圖片加入水印功能
      <%
      Dim Jpeg
      ' 建立實例
      Set Jpeg = Server.CreateObject("Persits.Jpeg")
      ' 打開目標圖片
      Jpeg.Open Server.MapPath("images/dodge_viper.jpg")

      ' 添加文字水印
      Jpeg.Canvas.Font.Color = &HFF0000' 紅色
      Jpeg.Canvas.Font.Family = "宋體"
      Jpeg.Canvas.Font.Bold = True
      Jpeg.Canvas.Print 10, 10, "Copyright (c) Cnmaya.org"

      ' 保存文件
      Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg")

      ' 注銷對象
      Set Jpeg = Nothing
      %> 


      日韩精品一区二区三区高清