Text/Chen Cheng
هل فكرت يومًا في فك ضغط الملفات المضغوطة عبر الإنترنت؟ هاها، في بعض الأحيان بعد تحميل حزمة مضغوطة، يكون من الملائم حقًا استخدام برنامج Asp لفك ضغطها، خاصة لمشرفي المواقع الذين يقومون غالبًا بتحديث مواقعهم على الويب نظرًا لأن نسبة ضغط الملفات النصية كبيرة، فإنهم يستخدمون الضغط للتحميل ثم فك الضغط. مما يوفر المال مقارنة بالتحميل المباشر والكثير من الوقت الثمين. هل أنت مستعد؟ ثم مواكبة.
لتحقيق هذه الوظيفة، يجب عليك أولاً الحصول على دعم الملف الأساسي لفك الضغط لبرنامج Rar (يمكنك تنزيل برنامج WinRar، ثم "إخراج" ملف WinRar.exe بشكل منفصل.)، وتحتاج أيضًا إلى cmd الذي يأتي مع برنامج نظام التشغيل Windows .exe (يستخدم هذا البرنامج لتنفيذ ملف WinRar.exe. ويأتي مع نظام التشغيل. يمكن لنظام التشغيل NT kernel العثور عليه في المجلد System32 ضمن دليل تثبيت نظام التشغيل؛ Windows 9X يمكن تثبيت نظام التشغيل في نظام التشغيل، ابحث عنه ضمن مجلد النظام في الدليل). ثم قم بتحميلها إلى نفس الدليل. قم بإنشاء ملف asp، راجع الكود التالي:
<%
Dim a,b,Main,Shell,Runing,Runcode,Cmd,comm,fso
Main="d:chenchengrar" `المسار بعد Winrar.exe وcmd.exe بعد التحميل.
a=Server.mappath("rar")&"" 'مسار التخزين بعد فك ضغط ملف rar.
b=Server.mappath("rarhomepage.rar") 'لكي يتم فك ضغط ملف rar، قم بتغيير homepage.rar إلى الملف الذي يحتاج إلى فك ضغطه.
تعيين Shell = Server.CreateObject("WScript.Shell")
Running= "d:chenchengrarcmd.exe /c "&Main&"Winrar.exe x -t -o+ -p- " 'اضبط الأمر لتشغيل عملية إلغاء الضغط.
Cmd=Run&b&" "&a
رمز التشغيل = Shell.Run(Cmd,1, True)
%>