Was ich Ihnen heute sage, ist das Wissen über ASP, dem Bild Wasserzeichen hinzuzufügen. Mein ASP lernt sehr schlecht.
ASP zum Hinzufügen von Wasserzeichen zum Bild erfordert Komponenten ... häufig verwendete ASPJPEG und die chinesischen entwickelten WSIMage ... das erstere ist 30 Tage lang kostenlos ... Letzteres ist völlig kostenlos ... natürlich müssen wir die Produkte von verwenden Chinesen.
Die Komponente kann http://aknife.ys168.com (Version 3.0 herunterladen) unter http://aknife.ys168.com herunterladen
Methode der Registrierungskomponenten:
Geben Sie "RegSVR32 [DLL Path]" unter der Eingabeaufforderung ein
Das Hinzufügen von Wasserzeichen zu dem Bild ist nichts anderes als die Bildgröße zu erhalten und dann das Wasserzeichen zu schreiben. Der Code spielt nur die Rolle einer Kontrollkomponente.
Eins: Holen Sie sich die Bildgröße (hier wird durch Pixelwerte dargestellt. Freunde, die Photoshop lernen, sollten verstehen)
| Das Folgende ist das Codefragment: <% Setzen Sie obj = server.createObject ("wsimage.Resize") '' -call -Komponente obj.loadsoucepic server.mappath ("25.jpg") '' '' "Öffnen Sie das Bild, der Bildname ist 25.jpg obj.getSourceinfo iwidth, iHeight Antwort.Write "Bildbreite:" & iwidth & "<br>" "Erhalten Sie die Breite des Bildes Antwort.Write "Bildhöhe:" & ipight & "<br>" "die Bildhöhe erhalten Strerror = obj.Errorinfo Wenn Strerror <> "" dann response.write obj.Erorinfo Ende wenn obj.free Setzen Sie obj = nichts %> '' -------------------------------------------- ---------------------------------------------- ----- ----- ------------ Zwei: Textwasserzeichen hinzufügen <% Setzen Sie obj = server.createObject ("wsimage.Resize") obj.loadsoucepic server.mappath ("25.jpg") '' ' obj.Quality = 75 obj.txtmarkfont = "chinesische Farbwolke" '' '' Watermark Text -Schriftart obj.txtmarkbond = false '' Stellen Sie die Dicke des Wasserzeichentextes fest obj.markrotate = 0 '' rotierender Winkel des Wasserzeichentextes obj.txtmarkheigh = 25 '' 'hydaline Texthöhe obj.addtxtmark server.mappath ("txtmark.jpg"), "Nimm dich vom Land weg", & H00ff00 &, 10, 70 Strerror = obj.Erorinfo '' Um Bildernamen zu generieren, ist die Textfarbe Wasserzeichen an der Stelle des Bildes Wenn Strerror <> "" dann response.write obj.Erorinfo Ende wenn obj.free Setzen Sie obj = nichts %> '' -------------------------------------------- ---------------------------------------------- ----- ----- ------------ Drei: Fügen Sie Bilder Wassermarkierungen hinzu <% Setzen Sie 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, & hffffffff, 70 Strerror = obj.Erorinfo '' Um Bildernamen zu generieren, ist die Textfarbe Wasserzeichen an der Stelle des Bildes Wenn Strerror <> "" dann response.write obj.Erorinfo Ende wenn obj.free Setzen Sie obj = nichts %> '' -------------------------------------------- ---------------------------------------------- ----- ----- ------------ In der Tat sagte ich, dass die beiden anderen Hauptverwendung der WSIMage.dll -Komponente: die beiden anderen Hauptverwendung der WSIMage -Komponente, einschließlich: Schneiden Sie das Bild und erzeugen Sie die Miniaturansicht des Bildes. Ich muss mich immer noch daran gewöhnen und Code verwenden, um Injekte hinzuzufügen, um zu erklären: Das Bild schneiden: <% Setzen Sie 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 Wenn Strerror <> "" dann response.write obj.Erorinfo Ende wenn obj.free Setzen Sie obj = nichts %> Detaillierte Anmerkung: Die Cutimage -Methode von WSIMage wird verwendet, um das Bild zu reduzieren. Das Bild und die Top 10 Pixel oben. '' -------------------------------------------- ---------------------------------------------- ----- ----- ------------ Bilder von Bildern generieren: <% Setzen Sie 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 '' 'Der Name des Definitionsdiagramms ist die Größe der Größe Strerror = obj.Errorinfo Wenn Strerror <> "" dann response.write obj.Erorinfo Ende wenn obj.free Setzen Sie obj = nichts %> |
Es gibt vier Exportmethoden:
(1) obj.outputSpic Server.MAppath ("25_s.jpg"), 200,150,0
200 ist die Ausgangsbreite, 150 ist die Ausgangsform.
(2) obj.outputapic Server.Mappath ("25_s.jpg"), 200,0,1
Mit 200 Ausgangsbreite wird der Ausgangshoch mit Säule skaliert.