المعلمة التي تم تمريرها هي مسار الصورة الذي يحتاج إلى المعالجة. يمكنك ضبط المعلمات أو إضافة معلمات أخرى حسب الحاجة . انسخ الكود كما يلي:
"علامة مائية نصية."
وظيفة العلامة المائية Word(ImagePath)
صورة قاتمة
تعيين الصورة = Server.CreateObject(Persits.Jpeg) 'إنشاء كائن
Image.Open server.mappath(ImagePath) "موقع الصورة
Image.Canvas.Font.Color = &H000000 'اللون، هنا تم ضبطه على: أسود
Image.Canvas.Font.Family = 宋体' اضبط الخط
Image.Canvas.Font.Bold = False 'ما إذا كان سيتم ضبطه على الخط الغامق
Image.Canvas.Font.Size = 26 'حجم الخط
Image.Canvas.Font.Quality = 4 ' وضوح النص
Image.Canvas.طباعة Image.OriginalWidth/2-170،Image.OriginalHeight-30، نص العلامة المائية'نص العلامة المائية
Image.Save server.mappath(ImagePath) 'حفظ الملف
تعيين الصورة = لا شيء
وظيفة النهاية
"صورة العلامة المائية
الوظيفة: علامة مائية للصورة (ImagePath)
تعيين الصورة = Server.CreateObject(Persits.Jpeg)
'حدد مسار الصورة المراد إضافتها إلى العلامة المائية
PhotoPath = Server.MapPath(ImagePath)
صورة. افتح برنامج PhotoPath
"افتح صورة العلامة المائية."
تعيين الشعار = Server.CreateObject(Persits.Jpeg)
LogoPath = Server.MapPath(logo.jpg) "صورة العلامة المائية
الشعار. افتح مسار الشعار
Logo.Width = 121 'حجم صورة العلامة المائية
الشعار.الارتفاع = 50
Transition_Color = &h0066cc
'ضع علامة مائية في الصورة التي تم تحميلها
Image.DrawImage Image.width-150، Image.height-59، الشعار، 1، لون_الانتقال، 90
'هنا يمكنك تغيير موقع العلامة المائية (photo.width-210، photo.height-40 هنا وضعتها في الركن الأيمن السفلي من الصورة) ويمكنك أيضًا تغيير شفافية العلامة المائية
'احفظ الصورة بعد إضافة العلامة المائية
Image.Save Server.MapPath (ImagePath)
تعيين الصورة = لا شيء
وظيفة النهاية