يتطلب ASP مكونات لإضافة علامات مائية إلى الصور. تشمل البرامج شائعة الاستخدام برنامج aspjpeg وبرنامج wsImage الذي طوره الصينيون. يمكنك البحث عن هذين البرنامجين وتنزيلهما عبر الإنترنت. يوصى باستخدام wsImage الذي طوره الصينيون النسخة الصينية وسهلة التشغيل أ يتطلب SP مكونات لإضافة علامات مائية إلى الصور... تشمل البرامج شائعة الاستخدام برنامج aspjpeg وبرنامج wsImage الذي طوره الصينيون. يمكنك البحث عن هذين البرنامجين وتنزيلهما عبر الإنترنت. فمن المستحسن استخدام wsImage الذي طوره الصينيون هي النسخة الصينية سهلة التشغيل.
كيفية تسجيل المكون :
فقط أدخل regsvr32 [مسار Dll] في موجه الأوامر.
إن إضافة علامة مائية إلى الصورة لا يعدو كونه مجرد الحصول على حجم الصورة ثم كتابة العلامة المائية عليها، حيث يعمل كود ASP فقط كمكون تحكم، فلنستخدم الكود لشرح كل شيء.
1: احصل على حجم الصورة (يتم التعبير عنه هنا بقيم البكسل. يجب أن يفهم الأصدقاء الذين يتعلمون Photoshop)
انسخ رمز الكود كما يلي:
<%
set obj=server.CreateObject(wsImage.Resize) ''مكون الاتصال
obj.LoadSoucePic server.mappath(25.jpg) ''افتح الصورة، اسم الصورة هو 25.jpg
obj.GetSourceInfo iWidth، iHeight
Response.write عرض الصورة: & iWidth & <br> ''الحصول على عرض الصورة
Response.write ارتفاع الصورة: & iHeight & <br> ''احصل على ارتفاع الصورة
strError=obj.errorinfo
إذا كان strError<> إذن
Response.write obj.errorinfo
نهاية إذا
obj.free
تعيين obj=لا شيء
%>
''------------------------------------------------ ---------------- ''
2: إضافة علامة مائية نصية
انسخ رمز الكود كما يلي:
<%
تعيين obj=server.CreateObject(wsImage.Resize)
obj.LoadSoucePic server.mappath(25.jpg) ''تحميل الصور
obj.الجودة=75
obj.TxtMarkFont = Caiyun الصيني''تعيين خط نص العلامة المائية
obj.TxtMarkBond = false ''ضبط سمك نص العلامة المائية
obj.MarkRotate = 0 ''زاوية دوران نص العلامة المائية
obj.TxtMarkHeight = 25 ''ارتفاع نص العلامة المائية
obj.AddTxtMark server.mappath(txtMark.jpg)، يأخذك خارج البلاد، &H00FF00&، 10، 70
strError=obj.errorinfo ''قم بإنشاء اسم الصورة، لون النص هو موضع العلامة المائية في الصورة
إذا كان strError<> إذن
Response.write obj.errorinfo
نهاية إذا
obj.free
تعيين obj=لا شيء
%>
''------------------------------------------------ ---------------- ''
ثالثاً: إضافة علامة مائية للصورة
انسخ رمز الكود كما يلي:
<%
تعيين obj=server.CreateObject(wsImage.Resize)
obj.LoadSoucePic server.mappath(25.jpg) ''تحميل الصور
obj.LoadImgMarkPic server.mappath(blend.bmp) ''تحميل صورة العلامة المائية
obj.الجودة=75
obj.AddImgMark server.mappath(imgMark.jpg), 315, 220,&hFFFFFF, 70
strError=obj.errorinfo ''قم بإنشاء اسم الصورة، لون النص هو موضع العلامة المائية في الصورة
إذا كان strError<> إذن
Response.write obj.errorinfo
نهاية إذا
obj.free
تعيين obj=لا شيء
%>
''------------------------------------------------ ---------------- ''
في الواقع، تعد إضافة العلامات المائية إلى الصور أمرًا بسيطًا، ثم سأتحدث عن الاستخدامين الرئيسيين الآخرين لمكون WsImage.dll، وهما:
قص الصور وإنشاء صور مصغرة للصور.
ما زلت معتادًا على استخدام الكود وإضافة التعليقات:
صورة المحاصيل:
انسخ رمز الكود كما يلي:
<%
تعيين obj=server.CreateObject(wsImage.Resize)
obj.LoadSoucePic server.mappath(25.jpg)
obj.الجودة=75
obj.cropImage server.mappath(25_crop.jpg),100,10,200,200 ''تحديد حجم الاقتصاص وإنشاء اسم الصورة
strError=obj.errorinfo
إذا كان strError<> إذن
Response.write obj.errorinfo
نهاية إذا
obj.free
تعيين obj=لا شيء
%>
ملاحظة تفصيلية: يتم استخدام طريقة CropImage الخاصة بـ WsImage لاقتصاص الصورة، حيث يتم تحديد أنه عند إنشاء الصورة، تكون 100 و10 هي نقاط الاقتصاص في الزاوية اليسرى العليا، أي 100 بكسل من الجانب الأيسر من الصورة و. 10 بكسل من الأعلى تمثل 200 بكسل اقتصاصًا للنطاق العريض والارتفاع.
''------------------------------------------------ ---------------- ''
إنشاء صور مصغرة للصور :
انسخ رمز الكود كما يلي:
<%
تعيين obj=server.CreateObject(wsImage.Resize)
obj.LoadSoucePic server.mappath(25.jpg) ''تحميل الصور
obj.الجودة=75
obj.OutputSpic server.mappath(25_s.jpg),0.5,0.5,3 ''حدد اسم الصورة المصغرة وهو الحجم
strError=obj.errorinfo
إذا كان strError<> إذن
Response.write obj.errorinfo
نهاية إذا
obj.free
تعيين obj=لا شيء
%>
وصف تفصيلي:
هناك أربع طرق تصدير لإنشاء الصور المصغرة :
(1) obj.OutputSpic server.mappath(25_s.jpg),200,150,0
200 هو عرض الإخراج و150 هو ارتفاع الإخراج. يفرض نموذج الإخراج هذا عرض الإخراج وارتفاعه، مما قد يتسبب في تشوه الصورة.
(2) obj.OutputSpic server.mappath(25_s.jpg),200,0,1
بأخذ 200 كعرض الإخراج، سيتم قياس ارتفاع الإخراج مع العمود.
(3) obj.OutputSpic server.mappath(25_s.jpg),0,200,2
بأخذ 200 كارتفاع الإخراج، سيتم قياس عرض الإخراج مع العمود.
(4) obj.OutputSpic server.mappath(25_s.jpg),0.5,0.5,3
أول 0.5 يعني أن الصورة المصغرة التي تم إنشاؤها هي نصف عرض الصورة الأصلية، مما يعني تقليل العرض.
الثانية 0.5 تعني أن الصورة المصغرة التي تم إنشاؤها هي نصف ارتفاع الصورة الأصلية، مما يعني نسبة تصغير عالية.
نفس نسبة التصغير للعرض والارتفاع تعني أنه سيتم تصغير الصورة الأصلية. إذا كانت نسبة القياس للعرض والارتفاع أكبر من 1، فسيتم تكبير الصورة الأصلية.
2------------------------------------------------- -----------------------------------------------
انسخ رمز الكود كما يلي:
<%
خافت Stream1،stream2،istart،iend،اسم الملف
ابدأ=1
vbEnter=Chr(13)&Chr(10)
الدالة getvalue(fstr,foro,paths)'fstr هو الاسم المستلم، foro Boolean false هو تحميل الملف، true هو حقل عادي، المسار هو مسار تخزين ملف التحميل
إذا كان ذلك الحين
الحصول على قيمة =
istart=instring(istart,fstr)
istart=istart+len(fstr)+5
iend=instring(istart,vbenter+--------------------------------)
إذا istart>5+len(fstr) إذن
getvalue=substring(istart,iend-istart)
آخر
الحصول على قيمة =
نهاية إذا
آخر
istart=instring(istart,fstr)
istart=istart+len(fstr)+13
iend=instring(istart,vbenter)-1
اسم الملف = سلسلة فرعية (istart، iend-istart)
filename9=right(getfilename(filename),4)'احصل على لاحقة الملف الأصلي
اسم الملف8=سنة(الآن())&شهر(الآن())&يوم(الآن())&ساعة(الآن())&دقيقة(الآن())&ثانية(الآن())&int(9*10^3*rnd)+10 ^3'احصل على اسم ملف عشوائي،
'إذا كنت ترغب في إطالة اسم الملف، يرجى تعديل القيمة 100 في (100*rnd)
filename=replace(getfilename(filename),getfilename(filename),filename8) 'استبدل اسم الملف الأصلي واستخدم وظيفة الاستبدال
filename=filename&filename9 'أضف لاحقة ملف، القاعدة هي إضافة لاحقة الملف الأصلي إلى اسم الملف العشوائي الذي تم إنشاؤه
istart=instring(iend,vbenter+vbenter)+3
iend=instring(istart,vbenter+--------------------------------)
filestart=istart
png=iend-istart-1
objstream.position=filestart
تعيين sf = Server.CreateObject(ADODB.Stream)
sf. الوضع = 3
سادس. النوع = 1
sf.Open
objstream.copyto sf، حجم الملف
إذا كان اسم الملف <> ثم
تعيين rf = Server.CreateObject(Scripting.FileSystemObject)
أنا = 0
fn=اسم الملف
بينما rf.FileExists(server.mappath(paths+fn))
fn=cstr(i)+اسم الملف
ط=ط+1
com.wind
اسم الملف = fn
sf.SaveToFile server.mappath(paths+filename),2
''''''''''''''''''''''''''''''''''
DimJpeg
تعيين Jpeg = Server.CreateObject(Persits.Jpeg)
إذا -2147221005=أخطأ إذن
Response.write لا يوجد مثل هذا المكون، يرجى تثبيته! 'تحقق مما إذا كان مكون AspJpeg مثبتًا أم لا
الاستجابة. النهاية ()
نهاية إذا
Jpeg.Open (server.mappath(paths+filename)) 'افتح الصورة
إذا err.number ثم
فشل Response.write في فتح الصورة، يرجى التحقق من المسار!
الاستجابة. النهاية ()
انتهي إذا
خافت أأ
aa=Jpeg.Binary 'تعيين البيانات الأصلية إلى aa
'==========أضف علامة مائية نصية============
Jpeg.Canvas.Font.Color = &Hff0000 'لون نص العلامة المائية
Jpeg.Canvas.Font.Family = خط Arial
Jpeg.Canvas.Font.Bold = صحيح "سواء كان بالخط العريض."
Jpeg.Canvas.Font.Size = حجم الخط 30 بوصة
Jpeg.Canvas.Font.ShadowColor = &H000000 'لون الظل
Jpeg.Canvas.Font.ShadowYOffset = 1
Jpeg.Canvas.Font.ShadowXOffset = 1
Jpeg.Canvas.Brush.Solid = صحيح
Jpeg.Canvas.Font.Quality = 4 'جودة الإخراج
Jpeg.Canvas.PrintText Jpeg.OriginalWidth/2-100,Jpeg.OriginalHeight/2+20,www.my9933.com 'موضع العلامة المائية والنص
bb=Jpeg.Binary 'قم بتعيين القيمة بعد معالجة العلامة المائية النصية إلى bb. في هذا الوقت، لا تحتوي العلامة المائية النصية على عتامة
'==================== ضبط شفافية النص
تعيين MyJpeg = Server.CreateObject(Persits.Jpeg)
MyJpeg.OpenBinary أأ
تعيين الشعار = Server.CreateObject(Persits.Jpeg)
Logo.OpenBinarybb
MyJpeg.DrawImage 0,0, Logo, 0.2 '0.3 هي الشفافية
cc=MyJpeg.Binary 'قم بتعيين النتيجة النهائية إلى cc. في هذا الوقت، يمكن أيضًا إنشاء الصورة المستهدفة.
Response.BinaryWrite cc 'إخراج ثنائي إلى المتصفح
MyJpeg.Save (server.mappath(paths+filename))
تعيين أأ=لا شيء
setbb=لا شيء
setcc=لا شيء
JPEG.إغلاق
MyJpeg.إغلاق
الشعار.إغلاق
''''''''''''''''''''''''''''''''''''''
نهاية إذا
getvalue=filename
نهاية إذا
وظيفة النهاية
سلسلة فرعية للوظيفة (theStart، theLen)
ديمي، ج، الجذعية
objStream.Position=theStart-1
الجذعية =
لأني=1 إلىLen
إذا كان objStream.EOS ثم قم بالخروج لـ
ج=ascB(objStream.Read(1))
إذا ج > 127 ثم
إذا كان objStream.EOS ثم قم بالخروج لـ
stemp=stemp&Chr(AscW(ChrB(AscB(objStream.Read(1)))&ChrB(c)))
ط=ط+1
آخر
الجذعية = الجذعية و مركز حقوق الإنسان (ج)
نهاية إذا
التالي
subString=stemp
وظيفة النهاية
الدالة inString(theStart,varStr)
خافت ط، ي، بت، ذالين، شارع
سلسلة = 0
Str=toByte(varStr)
theLen=LenB(Str)
لـ i=theStart إلى objStream.Size-theLen
إذا كنت>objstream.size ثم قم بالخروج من الوظيفة
objstream.Position=i-1
إذا AscB(objstream.Read(1))=AscB(midB(Str,1)) إذن
InString=i
لـ j=2 إلىLen
إذا objstream.EOS بعد ذلك
inString=0
الخروج ل
نهاية إذا
إذا AscB(objstream.Read(1))<>AscB(MidB(Str,j,1)) ثم
سلسلة = 0
الخروج ل
نهاية إذا
التالي
إذا كان InString<>0 ثم قم بالخروج من الوظيفة
نهاية إذا
التالي
وظيفة النهاية
وظيفة خاصة GetFileName (FullPath)
إذا كان FullPath <> إذن
GetFileName = mid(FullPath,InStrRev(FullPath, /)+1)
آخر
GetFileName =
نهاية إذا
وظيفة النهاية
الدالة toByte(Str)
خافت i,iCode,c,iLow,iHigh
toByte=
لأني = 1 إلى لين (ستر)
ج = منتصف (شارع، ط، 1)
كود = تصاعدي (ج)
إذا كان iCode<0 فإن iCode = iCode + 65535
إذا iCode> 255 ثم
iLow = اليسار(Hex(تصاعدي(ج)),2)
iHigh =Right(Hex(تصاعدي(c)),2)
toByte = toByte & chrB(&H&iLow) & chrB(&H&iHigh)
آخر
toByte = toByte & chrB(AscB(c))
نهاية إذا
التالي
وظيفة النهاية
%>
3------------------------------------------------- -----------------------------------------------
استخدم مكون asp Persits.Jpeg لإضافة علامة مائية إلى الصور وإنشاء صور مصغرة
انسخ رمز الكود كما يلي:
<%
اسم الملف=1.jpg
تعيين Jpeg = Server.CreateObject(Persits.Jpeg)
'احصل على مسار الصورة المصدر
المسار = Server.MapPath(اسم الملف)
"افتح الصورة المصدر."
"الاستجابة. الكتابة (المسار)
Jpeg.فتح المسار
'قم بتعيين تفاصيل إنشاء الصور المصغرة. هناك العديد من طرق الإعداد. الطريقة التالية هي تحديد نسبة العرض إلى الارتفاع أولاً ثم قياسها بشكل متناسب.
إذا كان Jpeg.OriginalWidth / Jpeg.OriginalHeight> 1
عرض Jpeg = 98
Jpeg.Height = int((98/Jpeg.OriginalWidth)*Jpeg.OriginalHeight)
elseif Jpeg.OriginalWidth / Jpeg.OriginalHeight < 1 ثم
عرض Jpeg = 98
Jpeg.Height= int((98/Jpeg.OriginalWidth)*Jpeg.Height)
نهاية إذا
'ضبط تأثير التوضيح
جبيغ.شحذ 1، 130
'إنشاء صور مصغرة للمسار المحدد
الاستجابة.كتابة Server.MapPath(.)
Jpeg.Save Server.MapPath(.)&/small/&filename
'response.write filename1
'response.write Server.MapPath(uploadpic/small)&/&filename1
"انتبهوا إلى هاتين الجلستين
'Session(PPP0)=GP_curPath&FileName
'Session(PPP1)=GP_curPath&small&FileName
تعيين Jpeg = لا شيء
'إنشاء صورة مصغرة ونهاية تلقائيًا
"ابدأ بوضع علامة مائية على الصور الكبيرة."
'إنشاء مثيل
تعيين Jpeg = Server.CreateObject(Persits.Jpeg)
"افتح الصورة المستهدفة."
المسار = Server.MapPath(اسم الملف)
"افتح الصورة المصدر."
Jpeg.فتح المسار
'أضف علامة مائية نصية
Jpeg.Canvas.Font.Color = &HFF0000' أحمر
Jpeg.Canvas.Font.Family = أسرة سونغ
Jpeg.Canvas.Font.Bold = صحيح
Jpeg.Canvas.Print 10, 10، تكنولوجيا هونغلان
"حفظ الملف."
Jpeg.Save Server.MapPath(.)&/small/w_&filename
'إلغاء تسجيل الكائن
تعيين Jpeg = لا شيء
'تنتهي العلامة المائية للصورة الكبيرة
%>
4------------------------------------------------- -----------------------------------------------
استخدم ASPJPEG لإنشاء كود تنفيذ ASP ذو علامة مائية
انسخ رمز الكود كما يلي:
<%
فئة qswhImg
خافت أيضًا
فئة فرعية خاصة_تهيئة
تعيين aso=CreateObject(Adodb.Stream)
aso.Mode=3
aso.Type=1
aso.Open
نهاية الفرعية
فئة فرعية خاصة_إنهاء
تعيين aso=لا شيء
نهاية الفرعية
وظيفة خاصة Bin2Str(Bin)
خافت أنا، شارع
لأني=1 إلى LenB(Bin)
clow = MidB (بن، أنا، 1)
إذا ASCB(clow)<128 إذن
Str = Str & Chr(ASCB(clow))
آخر
أنا=أنا+1
إذا كنت <= LenB(Bin) ثم Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow))
نهاية إذا
التالي
Bin2Str = Str
وظيفة النهاية
وظيفة خاصة Num2Str(num,base,lens)
'كيوشويوهين (2002/8/12)
متقاعد خافت
متقاعد =
بينما (الرقم> = القاعدة)
ret = (قاعدة تعديل الأسطوانات) & ret
num = (num - num mod base)/base
com.wind
Num2Str = يمين (سلسلة (عدسة، 0) ورقم & ret، عدسة)
وظيفة النهاية
الدالة الخاصة Str2Num(str,base)
'كيوشويوهين (2002/8/12)
متقاعد خافت
ريت = 0
لأني = 1 إلى لين (ستر)
ret = ret *base + cint(mid(str,i,1))
التالي
Str2Num=ret
وظيفة النهاية
وظيفة خاصة BinVal(bin)
'كيوشويوهين (2002/8/12)
متقاعد خافت
ريت = 0
لأني = lenb(bin) إلى الخطوة 1 -1
ret = ret *256 + ascb(midb(bin,i,1))
التالي
BinVal=ret
وظيفة النهاية
وظيفة خاصة BinVal2(bin)
'كيوشويوهين (2002/8/12)
متقاعد خافت
ريت = 0
لأني = 1 إلى lenb(bin)
ret = ret *256 + ascb(midb(bin,i,1))
التالي
BinVal2=ret
وظيفة النهاية
الدالة getImageSize(filespec)
'كيوشويوهين (2002-9-3)
خافت ريت (3)
aso.LoadFromFile(filespec)
bFlag=aso.read(3)
حدد الحالة السداسية (binVal (bFlag))
الحالة 4E5089:
أسو.قراءة(15)
ret(0)=PNG
ret(1)=BinVal2(aso.read(2))
أسو.قراءة(2)
ret(2)=BinVal2(aso.read(2))
الحالة 464947:
أسو.قراءة(3)
ret(0)=GIF
ret(1)=BinVal(aso.read(2))
ret(2)=BinVal(aso.read(2))
الحالة 535746:
أسو.قراءة(5)
binData=aso.Read(1)
sConv=Num2Str(ascb(binData),2,8)
nBits=Str2Num(left(sConv,5),2)
sConv = منتصف (sConv، 6)
بينما (لين (sConv) <nBits * 4)
binData=aso.Read(1)
sConv=sConv&Num2Str(ascb(binData),2,8)
com.wind
ret(0)=SWF
ret(1)=int(abs(Str2Num(mid(sConv,1*nBits+1,nBits),2)-Str2Num(mid(sConv,0*nBits+1,nBits),2))/20)
ret(2)=int(abs(Str2Num(mid(sConv,3*nBits+1,nBits),2)-Str2Num(mid(sConv,2*nBits+1,nBits),2))/20)
حالة FFD8FF:
يفعل
افعل: p1=binVal(aso.Read(1)): حلقة بينما p1=255 وليس aso.EOS
إذا كان p1>191 وp1<196، فاخرج، فافعل آخر aso.read(binval2(aso.Read(2))-2)
افعل:p1=binVal(aso.Read(1)):حلقة بينما p1<255 وليس aso.EOS
حلقة بينما صحيح
اسو.اقرأ(3)
ret(0)=JPG
ret(2)=binval2(aso.Read(2))
ret(1)=binval2(aso.Read(2))
حالة أخرى:
إذا ترك (Bin2Str(bFlag),2)=BM إذن
اسو.اقرأ(15)
ret(0)=BMP
ret(1)=binval(aso.Read(4))
ret(2)=binval(aso.Read(4))
آخر
إعادة (0) =
نهاية إذا
حدد النهاية
إعادة (3) = العرض = & إعادة (1) & الارتفاع = & إعادة (2) &
getimagesize=ret
وظيفة النهاية
نهاية الفصل
SavefullPath=326151745wldn.jpg 'تعيين مسار الصورة أو تعيين متغير مسار الصورة
"احصل على عرض الصورة."
اضبط qswh = qswhImg الجديد
arr = qswh.getImageSize(Server.Mappath(SavefullPath))
اضبط qswh = لا شيء
str_ImgWidth=arr(1)
str_ImgHeight=arr(2)
إذا كان Int(str_ImgWidth) > 600، إذن
str_ImgWidth = 600
آخر
str_ImgWidth = str_ImgWidth
نهاية إذا
"أضف علامة مائية."
إذا Int(str_ImgWidth) > 300 و Int(str_ImgHeight) > 100 ثم
LocalFile=Server.MapPath(SavefullPath)
TargetFile=Server.MapPath(SavefullPath)
DimJpeg
تعيين Jpeg = Server.CreateObject(Persits.Jpeg)
إذا -2147221005=أخطأ إذن
Response.Write(<script language='javascript'>alert('هذا المكون غير موجود، يرجى تثبيته!'); History.back();</script>) 'تحقق من تثبيت مكون AspJpeg
الاستجابة. النهاية ()
نهاية إذا
Jpeg.Open (LocalFile) "افتح الصورة."
إذا err.number ثم
Response.Write(<script language='javascript'>alert('فشل فتح الصورة، يرجى التحقق من المسار!'); History.back();</script>)
الاستجابة. النهاية ()
انتهي إذا
خافت أأ
aa=Jpeg.Binary 'تعيين البيانات الأصلية إلى aa
'==========أضف علامة مائية نصية============
Jpeg.Canvas.Font.Color = &Hffffffff 'لون نص العلامة المائية
Jpeg.Canvas.Font.Family = خط Arial
Jpeg.Canvas.Font.Bold = صحيح "سواء كان بالخط العريض."
Jpeg.Canvas.Font.Size = 20 'حجم الخط
Jpeg.Canvas.Font.ShadowColor = &H000000 'لون الظل
Jpeg.Canvas.Font.ShadowYOffset = 1
Jpeg.Canvas.Font.ShadowXOffset = 1
Jpeg.Canvas.Brush.Solid = صحيح
Jpeg.Canvas.Font.Quality = 10 '' 'جودة الإخراج
Jpeg.Canvas.PrintText Jpeg.OriginalWidth/2-40,Jpeg.OriginalHeight/2-10، موضع العلامة المائية والنص الخاص بإنشاء موقع الويب
bb=Jpeg.Binary 'قم بتعيين القيمة بعد معالجة العلامة المائية النصية إلى bb. في هذا الوقت، لا تحتوي العلامة المائية النصية على عتامة
'==================== ضبط شفافية النص
تعيين MyJpeg = Server.CreateObject(Persits.Jpeg)
MyJpeg.OpenBinary أأ
تعيين الشعار = Server.CreateObject(Persits.Jpeg)
Logo.OpenBinarybb
MyJpeg.DrawImage 0,0, Logo, 0.5 '0.3 هي الشفافية
cc=MyJpeg.Binary 'قم بتعيين النتيجة النهائية إلى cc. في هذا الوقت، يمكن أيضًا إنشاء الصورة المستهدفة.
Response.BinaryWrite cc 'إخراج ثنائي إلى المتصفح
MyJpeg.حفظ (ملف الهدف)
تعيين أأ = لا شيء
setbb=لا شيء
setcc=لا شيء
الحياة السياسية في فرنسا. إغلاق
MyJpeg.إغلاق
الشعار.إغلاق
نهاية إذا
"أضف علامة مائية."
%>