موصى به: يقوم ASP بتنفيذ عمليات الإضافة والطرح في تنسيق تاريخ بيان SQL واجهت مشكلة في العمل اليوم ، وكنت بحاجة إلى الاستعلام عن الوقت ، ولكن تم عرض نتائج الاستعلام بشكل غير صحيح. على سبيل المثال ، لمعرفة الأعضاء المسجلين على موقع الويب بين 2007-10-12 و 2007-10-31 ، بعد تحديد التاريخ ، انقر فوق "Query & r
يقوم ASP بتنفيذ رمز مصدر الضغط RAR وإزالة الضغط ، ويمكن القيام به مع ملف واحد فقط. ASP يضغط الدلائل أو الملفات ، ويقوم بإزالة ضغط ملفات RAR ، ويحذف ملفات محددة ووظائف أخرى. رمز المصدر هذا مناسب للجميع لتطوير ومشاركة.
هنا هو رمز winrar.asp:
| ما يلي هو المحتوى المقتبس: <!- الاسم - Ayan Online Winrar Plugin حقوق الطبع والنشر - Beiguo Pharmaceutical Garden BBS (www.spubbs.com) تم إنشاؤها - 2006/5/17 المؤلف - Ayan: [email protected] qq: 12895551 -> <٪@language = vbscript codepage = 936 ٪> <title> مرحبًا بك في Ayan Online Winrar Plugin </title> <body> <table border = 0 width = 80 ٪ align = cenct cellpacing = 1 cellpadding = 3 style = font-family: verdana ؛ font-size: 14px ؛ الحدود: #000000 1px صلبة ؛ خلفية اللون: #f7f7f7> <tr> <th width = 100 ٪ height = 24 bgColor =#e4e4e4> <strong> <font color =#ff0000> ayan online winrar plugin </font> </strong> time time 2006.5.17 [<a href = http: //www.spubbs.com/dispbbs.asp؟ الصفحة </a>] </th> </r> <tr> <td> <٪ server.scriptTimeout = 99999 Dim Winrar ، Cmddir winrar = c:/program files/winrar/winrar.exe 'path of winrar.exeprogra ~ 1. cmddir = ٪ Windir ٪/system32/cmd.exe 'cmd.exe' مسار إلى cmd.exe user = spubbs.com 'اسم المستخدم pwd = spubbs.com 'تسجيل الدخول ، ضغط ، إلغاء ضغط كلمة المرور ، لأسباب أمان ، يرجى تعيين كلمة المرور هذه قوية بما يكفي إذا طلب. استجابة. كتابة مسار المجلد هذا: & server.mappath (.) & <br> من = request.form (من) أين = request.form (أين) إذا من <> وأين <> ثم Dim A ، B ، Shell ، Runing ، Runcode ، CMD إذا instr (أين ، إذا instr (من ، 'استجابة. write ب إذا كان اليمين (ب ، 1) <>/ واليسار (يمين (ب ، 4) ، 1) <>. ثم ب = b & .rar عند استئناف الخطأ التالي تعيين shell = server.createBject (wscript.shell) إذا طلب إذا لم تكن تقارير Filestatus (ب) ثم الاستجابة. write (b & غير موجود!): reponse.end () Runing = cmddir & /c & winrar & x -ibck -t -y -o -p & pwd & 'قم بتعيين الأمر لتشغيل الضغط. CMD = Runing & B & & A &// elseif request.querystring (إجراء) = 0 ثم "الضغط إذا (لا تقارن Filestatus (A)) و (ليس تقرير FoldFolderStatus (A)) ثم Response.write (A & غير موجود!): reponse.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 & 'compression. CMD = Runing & B & & a آخر 'حذف الملف cmd = cmddir & /c del /f /q & b إنهاء إذا 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) تعيين شل = لا شيء errinfo ٪> <٪ آخر ٪> <name form = frm method = post Action =؟ Action = 1 style = الحدود: #d9d9d9 1px solid ؛ الخلفية اللون: #f7f7f7> ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- <br> <br> الرجاء إدخال عنوان ملف RAR: <اسم الإدخال = من value = 1. Rar Size = 50> <br> قم بفك الضغط إلى: <اسم الإدخال = حيث القيمة =. الحجم = 50> يرجى استخدام المسار المطلق للمجلد وإضافة / <br> في النهاية <br> <اسم الإدخال = إرسال النوع = إرسال القيمة = decresssion> <إدخال النوع = name hidden = value user = <٪ = request.form (user) ٪ >> <نوع الإدخال = name hidden = pwd value = <٪ = request.form (pwd) ٪ >> </form> <name form = frm method = post Action =؟ Action = 0 style = الحدود: #d9d9d9 1px solid ؛ الخلفية اللون: #f7f7f7> ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- <br> الرجاء إدخال عنوان الملف لضغط: <اسم الإدخال = حيث القيمة =./data/dvbbs7#.mdb size = 50> المجلدات متاحة أيضا <br> <br> مسار التخزين واسم الملف الجديد: <اسم الإدخال = من value = ../data/1.rar size = 50> قم بملف الكتابة الزائدة تلقائيًا بنفس الاسم <br> <br> <اسم الإدخال = إرسال النوع = إرسال القيمة = الضغط> <إدخال نوع = اسم مخفي = قيمة المستخدم = <٪ = request.form (user) ٪ >> <نوع الإدخال = name hidden = pwd value = <٪ = request.form (pwd) ٪ >> </form> <٪ errinfo إنهاء إذا آخر تسجيل الدخول() إنهاء إذا sub errinfo إذا لم يكن isEmpty (رمز Runcode) و RunCode = 0 ثم Response.write (تم تنفيذ الأمر بنجاح ، فإن الأمر الذي أرسلته هو كما يلي: <br> و cmd) elseif not isempty (الرمز الجري) ثم استجابة. write (فشل تنفيذ الأوامر! لا يوجد إذن كافي أو لا يمكن تشغيل البرنامج في حالة DOS. الأمر الذي قدمته هو كما يلي: <br> و cmd) آخر إنهاء إذا إذا أخطأ بعد ذلك استجابة. write <br> & err.description err.clear إنهاء إذا ٪> <name form = frm method = post Action =؟ Action = 2 style = الحدود: #d9d9d9 1px solid ؛ الخلفية اللون: #f7f7f7> ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- <br> الرجاء إدخال العنوان لحذف الملف: <اسم الإدخال = من الحجم = 50 value = <٪ = من ٪ >> يرجى استخدام المسار المطلق للمجلد وإضافة / <br> في النهاية <نوع الإدخال = name hidden = حيث القيمة = <٪ إذا <> then then reponse.write inher elle <br> <اسم الإدخال = إرسال نوع = إرسال قيمة = حذف> <نوع الإدخال = الاسم المخفي = قيمة المستخدم = <٪ = request.form (user) ٪ >> <type type = hidden name = pwd value = <٪ = request.form (pwd) ٪ >> </form> <br> <٪ نهاية الفرعية وظيفة ReportFilestatus (FILESPEC) قاتمة FSO set fso = createObject (scripting.filesystemObject) ReportFilestatus = false إذا (fso.filexists (fileSpec)) ، فإن الإبلاغ = صحيح تعيين fso = لا شيء وظيفة نهاية وظيفة تقرير قاتمة FSO set fso = createObject (scripting.filesystemObject) reportFolderStatus = false إذا (fso.folderexists (fldr)) ثم تقرير اطلاع = صحيح تعيين fso = لا شيء وظيفة نهاية تسجيل الدخول الفرعي () ٪> <name form = frm method = post Action =؟ Action = 2 style = الحدود: #d9d9d9 1px solid ؛ الخلفية اللون: #f7f7f7> <p> ------------------------------------------- <strong> نظام تسجيل الدخول </strong> ------------------------------------------------------ <br> اسم المستخدم: <اسم الإدخال = قيمة المستخدم = spubbs.com> </p> كلمة المرور: <اسم الإدخال = نوع pwd = معرف كلمة المرور = pwd> <br> <br> <اسم الإدخال = إرسال نوع = إرسال قيمة = تسجيل الدخول> </form> <٪ end sub ٪> </td> </r> <tr> <td height = 22 align = center bgcolor =#e8e8e8> مدعوم من: <a href = mailto: [email protected]> ayan </a> & nbsp ؛ <a target = blank href = http: //wpa.qq.com/msgrd؟ v = 1 & uin = 12895551 & site = www.spubbs.com عبر الإنترنت winrar & menu = yes> <img border = 0 src = http: //wpa.qq.com/pa؟ p = 1: 1: QQ: 12895551 align = abbottom> </a> حقوق الطبع والنشر والنسخ ؛ 2003 - 2006 <a href = http: //www.spubbs.com> beiguo pharmaceutical Garden BBS </a> </td> </r> </table> </body> |
مشاركة: كيفية تحسين سرعة الوصول إلى برامج ASP عند استخدام برنامج ASP لتصميم صفحة الويب ، يرجع ذلك في الغالب إلى أنك تحتاج إلى الوصول إلى قاعدة البيانات ثم عرض البيانات إلى الصفحة. إذا كان هناك الكثير من البيانات ، فسوف تبطئ سرعة الوصول للصفحة. من أجل حل هذه المشكلة ، يمكنك استخدام التقنيات التالية لتحسين سرعة وصول الصفحة. مهارات