مفتاح النجاح هنا هو: يجب أن تكون صورة العلامة المائية بصيغة png، وسيكون التأثير هو نفسه عند إزالة الخلفية. وظيفة تنفيذ العملية:
انسخ رمز الكود كما يلي:
الوظيفة AddWater(n)
تعيين الصورة = Server.CreateObject(Persits.Jpeg)
PhotoPath = Server.MapPath(n)
الصورة. افتح برنامج PhotoPath
الصورة. الاستيفاء = 1
جودة الصورة = 100
iWidth=Photo.OriginalWidth
iHeight=Photo.OriginalHeight
iiwidth=214 'عرض صورة العلامة المائية
iiheight=51 'ارتفاع صورة العلامة المائية
Photo.Canvas.DrawPNG iWidth-iiWidth-5, iHeight-iiHeight-5,Server.MapPath(Water.png) 'Water.png هي صورة العلامة المائية
Photo.save Server.mappath(n) 'إخراج الصور
تعيين الصورة = لا شيء
وظيفة النهاية
طريقة الاتصال:
<% اتصل بـ AddWater(اسم الصورة)%>