هذه هي المرة الأولى التي أترجم فيها مقالًا، لذا أرجو أن تسامحوني على أي تقصير.
السبب الذي يجعل الهند الآن مصدرًا رئيسيًا للبرمجيات هو أنها تتفوق علينا في العديد من الأماكن. إحدى المزايا الأولى هي أن اللغة الرسمية في الهند هي اللغة الإنجليزية، مما يجلب مزايا فريدة للمبرمجين الهنود الذين يستخدمون اللغة الإنجليزية كلغة برمجة. بالنسبة لأولئك منا الذين يعملون في صناعة تكنولوجيا المعلومات، يجب علينا أيضًا تعزيز تدريبنا في اللغة الإنجليزية.
مقدمة إذا كان لديك موقع ويب يعمل منذ أكثر من شهرين، فربما لاحظت أن الكثير من ملفات الصور قد تراكمت على موقع الويب الخاص بك. على الرغم من أننا جميعًا نبذل قصارى جهدنا لتسمية ملفات الصور هذه جيدًا، إلا أنه عندما نتصفح أسماء ملفات هذه الصور، يصعب علينا دائمًا أن نتذكر المعنى الخاص أو استخدام بعض أسماء ملفات الصور.
في هذا الوقت، عادة ما نفتح تلك الصور بالمتصفح بشكل متكرر لنرى ما هي الصور؟ في الوقت الحالي، يمكن استخدام رمز ASP هذا كمتصفح للصور (ومنظف) لتصفح هذه الصور وإجراء عمليات التنظيف.
الترميز:
في الواقع، هذا البرنامج عبارة عن صفحة قائمة تحتوي على جميع الصور في دليل معين، وذلك باستخدام كائن FileSystemObject لسرد ملفات الصور هذه (ملفات gif و jpeg).
قم بإضافة رابط تبديل العرض إلى الصفحة للتحكم في عرض الصورة أم لا. عندما يكون لديك الكثير من الملفات ولا تريد تحميلها كلها، يمكنك فقط السماح لصورة على الصفحة بعرض رابط. على العكس من ذلك، إذا لم تكن متأكدًا مما تعنيه بعض أسماء الملفات، فستكون هذه الوظيفة بمثابة مساعدة جيدة بالنسبة لك لتنظيف.
ما يلي هو رمز موجز للغاية
<%@ اللغة=VBScript %>
<% خيار صريح %>
<%
Const ImageFilePath = "الصور"
Const RemoveButtonLabel = "حذف الصور المحددة"
Dim objFSO
خافت مجلد obj
خافت objFile
خافت strFileName
خافت strFileExtension
خافت blnShowImages
إذا Request.QueryString("ShowImages") = "" ثم
blnShowImages = خطأ
آخر
blnShowImages = CBool(Request.QueryString("ShowImages"))
End If
If Request.Form("btnDelete") = RemoveButtonLabel بعد ذلك
تعيين objFSO = Server.CreateObject("Scripting.FileSystemObject")
لكل اسم strFileName في Request.Form("delete")
objFSO.DeleteFile(Server.MapPath(ImageFilePath & "/" & _
اسم الملف))
التالية
objFSO = لا شيء
نهاية إذا
%>
<أتش تي أم أل>
<الرأس>
<title>متصفح الصور والقاتل ASP 101!</title>
</الرأس>
<body>
<form action="<%= Request.ServerVariables("URL") %>"method="post">
<table border="1">
<تر>
<th>اسم الصورة</th>
<th>الصورة <a href="<%= Request.ServerVariables("URL") %>؟
ShowImages=<%= ليس blnShowImages %>">(تبديل العرض)</a></th>
<th>احذف هذه الصورة</th>
</tr>
<%
تعيين objFSO = Server.CreateObject("Scripting.FileSystemObject")
قم بتعيين objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))
لكل ملف objFile في objFolder.Files
strFileExtension = LCase(Mid(objFile.Name, _
InStrRev(objFile.Name, ".", -1, 1) + 1))
إذا كان strFileExtension = "gif" أو strFileExtension = "jpg" أو _
strFileExtension = "jpeg" إذن
' خيار تعريف ملف الصورة الأصلي:
'إذا كان objFile.Type = "صورة GIF" أو _
objFile.Type = "صورة JPEG" إذن
%>
<تر>
<TD>
<a href="<%= ImageFilePath & "/" & objFile.Name %>">
<%= objFile.Name %></a>
</TD>
<%
إذا blnShowImages ثم
%>
<TD>
<img src="<%= ImageFilePath & "/" & objFile.Name %>" />
</TD>
<%
آخر
%>
<TD>
<a href="<%= ImageFilePath & "/" & objFile.Name %>">
عرض الصورة</a>
</TD>
<%
نهاية إذا
%>
<td محاذاة = "المركز">
<نوع الإدخال = "مربع الاختيار" الاسم = "حذف"
value="<%= objFile.Name %>" />
</TD>
<%
نهاية إذا
التالية
objFolder = لا شيء
تعيين objFSO = لا شيء
%>
<تر>
<td colspan = "3" محاذاة = "يمين">
<نوع الإدخال = "إرسال" الاسم = "btnDelete"
value="<%= DeleteButtonLabel %>">
</TD>
</tr>
</الجدول>
</النموذج
> </الجسم>
</html>
عند إجراء عملية الحذف، تأكد من ملاحظة أنه إذا لم يكن هناك مطالبة بتأكيد الحذف في البرنامج، فلن يتمكن البرنامج من التراجع عن عملية الحذف.
الاستنتاج لن يستخدم الأشخاص أبدًا ASP لإنشاء مواقع ويب قابلة للتطوير واسعة النطاق. (ملاحظة المترجم: هذه الجملة ليست مناسبة جدًا بدون ترجمة. وفقًا لخبرتي العملية، يمكن لـ ASP إنشاء أنظمة مواقع ويب واسعة النطاق بشكل كامل. فيما يتعلق بـ ASP، فقد شاركت في إنشاء شبكات داخلية واسعة النطاق للشركات وتطبيقات صناعة الهاتف المحمول ، وما إلى ذلك) ولكن في بعض الأحيان يمكنك استخدام هذا لتبسيط عملك، حتى لو لم يتم نشر الكود مطلقًا على الويب.
للحصول على الكود، يمكنك تنزيل ملف المناقشة المضغوط الذي يحتوي على هذا الكود من الدليل الجذر لـ http://www.weiw.com . بعد تنفيذ الكود، جميع الصور موجودة ضمن http://www.weiw.com/images / سيتم عرضها.
يمكنك تغيير قيمة ثابت ImageFilePath. يمكنك أيضًا وضع بعض المسارات الافتراضية هنا وسيستخدم الكود Server.MapPath لتحديد المسار الفعلي المناسب. يمكنك بسهولة تحديد مواقع معينة على موقع الويب الخاص بك. على سبيل المثال، تغيير قيمة هذا الثابت من "images" إلى "/images" من شأنه أن يوجه البرنامج إلى دليل الصور في الدليل الجذر لموقع الويب. وبنفس الطريقة، يمكن تعديل قيمة ImageFilePath لتحقيق نفس الغرض.
ثانيًا: عند كتابة هذا الرمز، قمت ببساطة باستخدام نوع الملف الموجود على جهازي. هذا يعمل بسلاسة فقط على الجهاز الخاص بي. اتضح أن وصف نوع الملف يمكن أن يغير أساس اتحاد الملف الخاص بك. من أجل الحصول على الملحقات التي تختارها لعرض تلك التي تعتمد على هذه الملفات بدلا من نوعها. لقد قمت بتنفيذ هذه الوظيفة في الكود الموجود في ملف ZIP هذا، وهو الآن الإصدار الأحدث من البرنامج.