Lo que te digo hoy es el conocimiento de ASP para agregar marcas de agua a la imagen. Mi ASP aprende muy mal ...
ASP para agregar marcas de agua a la imagen requiere componentes ... comúnmente usado aspjpeg y la wsimage desarrollada china ... el primero es gratis durante 30 días ... el segundo es completamente gratuito ... por supuesto que tenemos que usar los productos de Gente chino.
El componente puede descargar http://aknife.ys168.com (Descargar versión 3.0) en http://aknife.ys168.com
Método de componentes de registro:
Ingrese "regsvr32 [ruta dll]" en el símbolo del sistema
Agregar marcas de agua a la imagen no es más que obtener el tamaño de la imagen, y luego escribir la marca de agua. El código de WAP solo juega el papel de un componente de control para explicar todo.
Uno: Obtenga el tamaño de la imagen (aquí está representado por Pixel Values. Los amigos que aprenden Photoshop deben entender)
| El siguiente es el fragmento de código: <% establecer obj = server.createObject ("wsimage.resize") '' -call componente obj.loadsoucepic server.mappath ("25.jpg") '' '' '"Abra la imagen, el nombre de la imagen es 25.jpg obj.getSourceInfo iWidth, iHeight Response.Write "Ancho de imagen:" & iWidth & "<br>" "" Obtenga el ancho de la imagen Response.Write "Altura de la imagen:" & Ipight & "<br>" "" Obtenga la altura de la imagen strerror = obj.errorinfo Si Strerror <> "" entonces Respuesta.WRITE OBJ.ErrorInfo final si obj. establecer obj = nada %> '' ------------------------------------------------ --------------------------------------------- ----- ------------ Dos: agregar texto de agua <% establecer obj = server.createObject ("wsimage.resize") obj.loadsoucepic server.mappath ("25.jpg") '' obj.Quality = 75 obj.txtmarkfont = "nube de color chino" '' Establezca la fuente de texto de la marca de agua obj.txtmarkBond = false '' Establezca el grosor del texto de la marca de agua obj.markrotate = 0 '' 'ángulo giratorio del texto de la marca de agua obj.txtmarkheigh = 25 '' 'Hydaline Text Altura obj.addtxtmark server.mappath ("txtmark.jpg"), "Llévelo del país", y H00FF00 y 10, 70 Strerror = obj.errorinfo '' Para generar el nombre de las imágenes, el color de texto es marca de agua en la ubicación de la imagen Si Strerror <> "" entonces Respuesta.WRITE OBJ.ErrorInfo final si obj. establecer obj = nada %> '' ------------------------------------------------ --------------------------------------------- ----- ------------ Tres: Agregar imágenes Marcas de agua <% establecer 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 y hffffffff, 70 Strerror = obj.errorinfo '' Para generar el nombre de las imágenes, el color de texto es marca de agua en la ubicación de la imagen Si Strerror <> "" entonces Respuesta.WRITE OBJ.ErrorInfo final si obj. establecer obj = nada %> '' ------------------------------------------------ --------------------------------------------- ----- ------------ De hecho, agregar marcas de agua a la imagen es tan simple como. Corta la imagen y genera la miniatura de la imagen. Todavía tengo que acostumbrarme a él, usar código para agregar inyecciones para explicar: Corta la imagen: <% establecer obj = server.createObject ("wsimage.resize") obj.loadsoucepic server.mappath ("25.jpg") obj.Quality = 75 Obj.cropimage servidor.mappath ("" 25_crop.jpg "), 100,10,200,200 '' 'Definir los nombres de la imagen y generar nombres de imágenes strerror = obj.errorinfo Si Strerror <> "" entonces Respuesta.WRITE OBJ.ErrorInfo final si obj. establecer obj = nada %> Nota detallada: El método de Cutimage de WSIMAGE se usa para reducir la imagen. la imagen y los 10 píxeles superiores en la parte superior. '' ------------------------------------------------ --------------------------------------------- ----- ------------ Generar fotos de fotos: <% establecer 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 '' '' El nombre del diagrama de definición es el tamaño del tamaño strerror = obj.errorinfo Si Strerror <> "" entonces Respuesta.WRITE OBJ.ErrorInfo final si obj. establecer obj = nada %> |
Hay cuatro métodos de exportación:
(1) Obj.outputspic Server.Mappath ("25_s.jpg"), 200,150,0
200 es el ancho de salida, 150 es la salida alta.
(2) obj.outputapic server.mappath ("25_s.jpg"), 200,0,1
Con 200 ancho de salida, la salida alta se escalará con columna.