أولاً ، أضف رمزًا كاملًا
<!-name-ASP Online Declusse ، Compression Tool Copyright -VEVB Wulin.com (www.vevb.com)-> <٪@language = vbscript codepage = 936 ٪> أداة < /title> <body> <table border = 0 width = 80 ٪ align = cenct cellpacing = 1 cellpadding = 3 style = font-family: verdana ؛ font-size: 14px ؛ border: #000000 1px solid ؛ background-color :# f7f7f7> <tr> <th width = 100 ٪ الارتفاع = 24 bgColor =#33ccff> </h> </tr> <tr> <td bgcolor =#33ccff> <٪ server.scripttimeout = 99999dim winrar ، cmddirwinrar = c:/program files/winrar.exe 'compulation عنوان الملف (winrar) cmddir = ٪ windir ٪/system32/cmd.exe 'cmd.exe' عنوان عنوان موجه أوامر مستخدم = csissp 'اسم المستخدم لهذا البرنامج pwd = csissp' وإزالة ضغط كلمة مرور البرنامج هذه ، يرجى التأكد من تعديل (ما لا يقل عن 8 أرقام مع كلمات المرور المدمجة آمنة!) إذا طلب. طلب. > ثم Dim A ، B ، Shell ، Runing ، RunCode ، CMD if instr (حيث ، mappath (& from &) else b = from 'response.write b إذا كان صحيحًا (b ، 1) <>/ و يسار (ب ، 4) ، 1) <>. (ب) ثم استجابة. write (لم يتم العثور عليها & b & قد لا تكون موجودة! ): response.end () runing = cmddir & /c & winrar & x -ibck -t -y -o+ -p & pwd & 'قم بتعيين الأمر لتشغيل الضغط. CMD = Runing & B & & A &/ elseif request.querystring (الإجراء) = 0 ثم 'ضغط الملف إذا (لا تقارن Filestatus (A)) و (وليس تقرير FOLDERSTATUS (A)) ثم RESEPTRIM.WRITE (غير موجود & a & قد لا توجد!): الرد. end () cmd = cmddir & /c del /f /q & b runcode = shell.run (cmd ، 1 ، true) runing = cmddir & /c & winrar & a -ibck -y -ep -o+ -p & pwd & 'ضغط. cmd = runing & b & & a else 'حذف الملف cmd = cmddir & /c del /f /q & b end if runcode = shell.run (cmd ، 1 ، true) runing = shell.run (cmddir & /c taskkill /im winrar.exe ، 1 ، false) runing = shell.run (cmddir & /c exit ، 1 ، false) shell = لا شيء errinfo ٪> <٪ else ٪> <name form = frm method = post Action =؟ Action = 1 style = border: # D9d9d9 1px صلبة ؛ خلفية اللون:#F7F7F7> ------------------------------------------------------------------------ -<strong> فك ضغط الملف </strong> --------------------------------------- ------------ <br> <br> الرجاء إدخال عنوان الملف المضغوط RAR: <input name = from = 1.rar size = 50> <br> قم بإلغاء الضغط على: <input name = حيث القيمة =. request.form (المستخدم) ٪ >> <الإدخال اكتب = name hidden = pwd value = <٪ = request.form (pwd) ٪ >> </form> <name form = frm method = post action =؟ action = 0 style = bord :#F7F7F7> ------------------------------------------------- ------------------------------------------------- ------------------------------------------------- ------------------------------------------------- -------------------------------------------------> ------------------------------------------------- ------------------------------------------------- ------------------------------------------------- ------------------------------------------------- ------------------------------------------------- ---- عنوان الملف الذي تريد ضغطه: <اسم الإدخال = حيث value =./data/dvbbs7#.mdb Size = 50> يمكنك أيضًا إدخال المجلد <br> <br> مسار التخزين واسم الملف الجديد: <name input <br> <br> <input name = submit type = product value = compression> <input type = hidden name = user value = <٪ = request.form (user) ٪ >> <input type = hidden name = pwd value = <٪] RunCode = 0 ثم استجابة. write (يتم تنفيذ العملية بنجاح ، فإن العملية التي قدمتها هي كما يلي: <br> و cmd) elseif not isempty (runcode) ثم الاستجابة. write (تم تنفيذ العملية فشل! ربما تكون أذوناتك غير كافية أو لا يمكن تشغيل البرنامج في DOS (موجه الأوامر). ٪> <name form = frm method = post action =؟ Action = 2 style = الحدود: #d9d9d9 1px solid ؛ proundy-color: #f7f7f7> ---------------- --- ------------------- <strong> حذف الملفات </strong> ---------------------- ------ -------------------- <br> <br> الرجاء إدخال العنوان لحذف الملف: <input name = from الحجم = 50 قيمة = <٪ = من ٪ >> المجلد يرجى استخدام المسار المطلق وإضافة / في النهاية / <br> <type type = hidden name = where value = <٪ إذا <> ثم استجابة. استجابة. = pwd value = <٪ = request.form (pwd) ٪ >> </form> <br> <٪ end subfunction reportFileStatus (fileSpec) dim fso set fso = createObject ) reportFolderStatus = false if (fso.folderexists (fldr)) ثم reportFolderStatus = true set fso = nothingend functionsub login () ٪> <form name = frm method = post action =؟ action = 2 style = border: #d9d9d9 1px solid ؛ prounded-color: #f7f7f7> <p> ---- ------------------------- <strong> نظام تسجيل الدخول </strong> ----- ----------- ---------------------- <br> <br> اسم المستخدم: <input name = user value = csissp> </p> كلمة المرور = معرف كلمة المرور = pwd> <br> <br> <إدخال name = submit type = submit value = login> </pump> <٪ end sub ٪> </td> </tr> <tr> <td height = 22 align = center bgcolor =#ffffff> copyright © 2008 <a href = // www.vevb.com> vevb wulin.com </a> </td> </tr> </table> </body>
كيفية استخدام:
1. التحميل مباشرة إلى أي دليل على الخادم (المضيف الظاهري) (ويفضل أن يكون دليل الجذر)
2. استخدم متصفحًا للوصول إلى عنوان ملف winrar.asp
3. أدخل رقم الحساب وكلمة المرور (رقم الحساب الافتراضي: كلمة المرور الافتراضية CSISP: CSISP)
4.
5. أدخل عنوان الملف الذي تريد ضغطه ، وبعد التأكيد ، يمكنك ضغطه!
تذكير خاص: عنوان الملف هو العنوان النسبي لنظام WinRar هذا!
يجب تثبيت الخادم الذي يستخدم هذا البرنامج باستخدام WinRar (يتم تثبيت الخوادم المعتادة)
عنوان البرنامج الافتراضي لهذا البرنامج مناسب لأكثر من 99 ٪ من الخوادم (المضيفين الظاهريين)
إذا كان العنوان غير صحيح ، فيمكنك تعديله بنفسك.
التفاصيل والمكملات الغذائية التالية
1. زيادة المشكلة
مع تطور الإنترنت ، زاد عدد مواقع الويب بأرقام مذهلة. بالإضافة إلى توفير خدمات المعلومات إلى مستخدمي الإنترنت ، يجب أن يصبح موقع الويب أيضًا مكانًا لـ Tetizens لتحميل الملفات وتنزيلها. أثناء عملية تحميل الملفات وتنزيلها ، يكون وقت الإرسال هو المفتاح ، الذي يتطلب سرعة نقل أسرع. عندما تكون سرعة الإرسال ثابتة أو تتغير لأعلى ولأسفل ، فإنها تتغير قليلاً ، فهي طريقة ممكنة لتقليل حجم الملف المنقول: عند تحميل الملف ، قم أولاً بضغط الملف ليتم تحميله باستخدام Winrar ، وبعد ناجح التحميل ، سيكون في الموقع الإلكتروني. تناقش هذه المقالة الحل لهذه المشكلة.
2. الأساليب والتعليمات
أولاً ، تحتاج إلى تحميل برنامج إزالة الضغط على WinRar ، وهو برنامج إلغاء الضغط الخاص بـ WinRar. ثم تريد تحميل برنامج Rar.exe. بعد تحميل هذين الملفين ، تحتاج إلى كتابة بعض رمز البرنامج لتنفيذ الضغط وإزالة الضغط.
يمكنك أيضًا تسمية الملف الذي ينفذ وظيفة الضغط zip.asp ، والملف الذي ينفذ وظيفة إلغاء الضغط unzip.asp.
يحتوي رمز البرنامج على بناء جملة سطر الأوامر للتطبيق WinRar ، والما يلي هو مقدمة موجزة:
WinRar <Porder> -<switch 1> -<switch n> <file compressed> <file ...> <flist file ...> <decressed path/>
يمثل مجموعة الأحرف التي يديرها WinRar الوظيفة.
تحدد عملية التبديل التبديل النوع ، قوة الضغط ، نوع ملف الضغط ، إلخ.
اسم الملف المضغوط للمعالجة.
اسم الملف المراد معالجته.
قائمة ملفات قائمة هي نص عادي يحتوي على اسم الملف المراد معالجته. يجب أن يبدأ اسم الملف في المجلد 1. يمكنك إضافة تعليقات بعد استخدام // الأحرف في ملف القائمة. على سبيل المثال ، يمكنك إنشاء النسخ الاحتياطي. : winrar a backup @backup.lst يمكنك تحديد اسم الملف والاحتفال في الملف العادي في سطر الأوامر.
يتم استخدام مسار الضغط فقط مع الأوامر E و X. يشير إلى المكان الذي تمت فيه إضافة الملف المضغوط. إذا لم يكن المجلد موجودًا ، فسيتم إنشاؤه تلقائيًا.
قائمة أوامر الحروف:
| إضافة ملف إلى ملف مضغوط | C إضافة تعليقات ملف مضغوطة |
| D حذف الملف من ملف مضغوط | E قم بإلغاء الضغط من ملف مضغوط ، تجاهل المسار |
| F تحديث الملف في الملف المضغوط | أجد سلاسل في ملفات مضغوطة |
| كوكينج قفل الملفات المضغوطة | M نقل الملفات والمجلدات إلى الملفات المضغوطة |
| ص إصلاح الملفات المضغوطة التالفة | RC إعادة بناء حجم مفقود |
| RN إعادة تسمية الملف المضغوط | RR [N] إضافة سجل استرداد البيانات |
| RV [N] إنشاء وحدة تخزين استرداد | S [name] يحول الملفات المضغوطة إلى نوع الملف المستثمر الذاتي |
| S- حذف وحدة الاستخراج الذاتي | T اختبار الملفات المضغوطة |
| U تحديث الملفات من الملفات المضغوطة | X فك الضغط من ملف مضغوط باسم المسار الكامل |
في الواقع ، تتمثل النقطة الرئيسية في رمز البرنامج في استخدام server.createBject (wscript.shell) لتنفيذ cmd.exe.
3. قائمة الإجراءات
قائمة برنامج zip.asp:
<٪ 'المجلد الرئيسي يحتوي على cmd.exe rar.exe على سبيل المثال: الملف المراد ضغطه (*.mdb)' دليل التخزين المضغوط هو الرئيسي/data.raron خطأ استئناف nextunzip_path = server.mappath (main) & set wshshell = server.createObject (wscript.shell) issuccess = wshshell.run (Winrar A & unzip_path & unzip_path &*. .> <@list file...> <Decompress path/>' command: A - Add to compressed file if IsSuccess = 0 تم تنفيذ أمر thenresponse.write بنجاح! فشل الأمر elseResponse.write في التنفيذ! الأذونات غير كافية أو لا يمكن للبرنامج تشغيل End IFIF err.number <> 0 therresponse.write <p> رقم الخطأ: & err.numberresponse.write <p> السبب: يخطئ
قائمة برنامج unzip.asp:
<٪ 'المجلد الرئيسي يحتوي على ملف cmd.exe rar.exe ليتم إلغاء ضغطه (*.rar)' الدليل الذي تم إلغاء الضغط عليه هو استئناف خطأ في Mainon nextunzip_path = server.mappath (main) و/set wshshell = الخادم. ISSUCCESS = WSHSHELL.RUN (WINRAR X -R -O+ & UNZIP_PATH &*. RAR & UNZIP_PATH & 1 ، false) ملف ...> <decompress path/> 'الأمر: x - قم بإلغاء ضغط المسار الكامل من الملف المضغوط "التبديل: -r - مع المجلد الفرعي" التبديل: -O+ - الكتابة فوق ملف التبديل الحالي: -o- - ليس الكتابة فوق الملف الحالي إذا تم تنفيذ أمر ISSUCCESS = 0 therresponse.write بنجاح! فشل الأمر elseResponse.write في التنفيذ! الأذونات غير كافية أو لا يمكن للبرنامج تشغيل End IFIF err.number <> 0 therresponse.write <p> رقم الخطأ: & err.numberresponse.write <p> السبب: يخطئ
4. الخلاصة
تستخدم هذه المقالة rar.exe و cmd.exe لإدراك وظيفة الضغط عبر الإنترنت وإزالة ضغط الملفات في مواقع الويب في برمجة ASP. طريقة التنفيذ بسيطة ، وهناك القليل من رمز البرنامج ، والذي يمكن استخدامه للرجوع إليه والاستخدام أثناء البرمجة العملية. خاصة عندما يكون لديك الخادم الخاص بك ، فهو مفيد للغاية ومريح. يتم تشغيل البرنامج أعلاه ضمن Windows 2000Sever و IIS 5.0.