كود البرنامج
<%
'--------------------------------------------
'اسم الوظيفة: ChkImg
'الوظيفة: التحقق مما إذا كان ملف الصورة قانونيًا أم لا
'المعلمات: img، مسار الصورة، المسار المطلق بالنسبة إلى الدليل الجذر لموقع الويب
'قيمة الإرجاع: نوع منطقي، إذا كانت الصورة قانونية، قم بإرجاع True، وإلا قم بإرجاع False
'الحالة: يجب أن يدعم الخادم مكون AspJpeg،
إذا لم تكن مدعومة، لتجنب عدم إمكانية تحميل جميع الصور، فستعيد هذه الوظيفة True مباشرة
'--------------------------------------------
الدالة ChkImg(img)
عند استئناف الخطأ التالي 'من أجل التقاط معلومات الخطأ، يجب أن يستمر تنفيذ التعليمات البرمجية عند حدوث خطأ
Dim RetunValue, ChkJpeg
RetunValue = True
'إذا كان المسار فارغًا، فإن الصورة تعتبر غير قانونية
إذا كانت فارغة (img) ثم ChkImg = False: الخروج من
مجموعة الوظائف ChkJpeg = Server.CreateObject("Persits.Jpeg")
إذا -2147221005 <> خطأ، ثم "إذا كان المكون مدعومًا، استخدم المكون للتحقق من شرعية الصورة"
ChkJpeg.Open Server.mappath(img)
إذا أخطأت ثم
قيمة ريتون = خطأ
نهاية إذا
آخر 'إذا كان المكون غير مدعوم، قم بالتخطي وإرجاع True مباشرة
قيمة ريتون = صحيح
إنهاء إذا كان
"www.downcodes.com" عملًا ضروريًا بعد ذلك
إذا كان Err.number <> 0 ثم Err.clear
تعيين ChkJpeg = لا شيء
ChkImg = RetunValue
وظيفة النهاية
%>
ملاحظة: نظرًا لأن AspJpeg يمكنه فقط معالجة الملفات الموجودة بالفعل على الخادم، فإننا نحتاج إلى القيام بذلك أثناء التطبيق الفعلي: قم أولاً بتحميل الصورة إلى مجلد مؤقت، ثم تحقق من شرعية الصورة، إذا كانت قانونية، انسخ الصورة إلى دليل حفظ الصورة، احذف الملف المؤقت وأعد رسالة نجاح التحميل إذا كان غير قانوني، فاحذف الملف المؤقت مباشرة وأعد تحذيرًا بالخطأ.
نظرًا لأنه يتم فتح الصورة فقط باستخدام AspJpeg ولا تتم معالجة الصورة، فإن كفاءة تنفيذ هذه الوظيفة لا تزال عالية جدًا، ولا داعي للقلق بشأن مشكلات الكفاءة أثناء الاستخدام.