لقد تعلمت استخراج قيم الملفات من FSO وتعلمت أيضًا إدخال المعلومات في الملف. ثم دعونا نطبقه.
لا أعرف ما إذا كان لديك هذه العادة: عندما ترى ملفًا ، فأنت ينقر بغير وعي بزر الماوس الأيمن واخترت فتحه باستخدام المفكرة. هاها ، لا يوجد ملف تقريبًا غير ممكن. والآن ، يمكن أن يكون متخلفًا عن أن جميع الملفات نصية ، لكن أسماء اللاحقة مختلفة ؛ أي أنه يمكن استخراج معلومات محتوى أي ملف الآن. حسنًا ، فقط تخيل:
1. استخراج مسار الملف (استخدم زر الملف للعثور على وتحديد موقعه)
2. افتح ملف المسار وقراءة جميع الأسطر
3. عرض معلومات القراءة
1. ViewCode.asp
| <٪ رمز العرض الوظيفي (اسم الملف) set fso = server.createObject ("scripting.filesystemObject") تعيين cnrs = fso.opentextFile (اسم الملف ، 1) بينما لا cnrs.atendofstream rsline = cnrs.readline rsline = server.htmlencode (rsline) Response.write (rsline و "<br>") ويند وظيفة نهاية ٪> <form action = "viewCode.asp" method = "post"> أدخل اسم الملف <input type = "file" name = "filename"> <type type = "إرسال" value = "عرض مصدر المصدر"> </form> <٪ ملف = request.form ("اسم الملف") Response.write (ملف و "برنامج المصدر على النحو التالي <HR>") إذا كانت تقليم (ملف) <> "" ثم عرض المكالمات (ملف) إنهاء إذا ٪> |
عند تصحيح البرنامج أعلاه ، يمكنك تحديد صفحات HTML و ASP ، أو فتح أي تطبيق ، إلخ.
تُستخدم وظيفة الرمز العرضي المحدد بشكل أساسي لفتح جميع محتوى المعلومات في الملف وقراءته وعرضه. لاحظ أن Server.htmlencode (RSLINE) يتم إضافة للملفات التي تحتوي على رمز HTML قياسي.
يتم عرض جميع الخطوط في ملف العرض في حلقة مشروطة.
بينما لا cnrs.atendofstream
...
ويند
بعد ذلك ، يتضمن المثال التالي على وجه التحديد الطريقة المفتوحة. يتذكر؟ في ظل الظروف العادية ، افتح ملفًا باستخدام fso.opentextFile ("C: /Testfile.txt" ، 1) ، ووظيفة المعلمة 1 هي: فتح الملف في وضع القراءة فقط. لا يمكن كتابة هذا الملف. ما الذي يجب أن أفعله إذا كان هناك ملف بالفعل ويحتاج إلى إضافته؟ بسيطة ، المعلمة هي 8.
ملاحظة: هناك أيضًا طريقة للقراءة هنا.
<٪ therfile = server.mappath ("test.txt") set fso = createObject ("scripting.filesystemObject") تعيين txt = fso.opentextFile (thanfile ، 1) rline = txt.readall rline = استبدال (server.htmlencode (rline) ، chr (13) ، "<br>") استجابة. write rline txt.close ٪> |
ما هو استخدام هذا؟ هاها ، هذه هي الطريقة التي تتم بها قصة أمازون عبر الإنترنت: إذا كنت تستطيع القيام بذلك ، فأنت بحاجة أولاً إلى عرض القصة الأصلية ، ثم إضافة القصة لكتابتها إلى الملف بنفسك. أهم شيء في كتابة الملفات هو إضافة كتابة. لذلك يمكن تحقيقه أدناه.
2. story.asp
<٪ إذا لم يكن الطلب. set fso = server.createObject ("scripting.filesystemObject") textFile1 = server.mappath ("story.txt") تعيين cnrs = fso.opentextFile (textFile1،8) cnrs.writeline (request.form ("Nextline")) cnrs.close إنهاء إذا ٪> القصة كما يلي: <٪ set fso = server.createObject ("scripting.filesystemObject") textFile1 = server.mappath ("story.txt") تعيين cnrs = fso.opentextFile (textFile1،1) بينما لا cnrs.atendofstream الرد ويند cnrs.close ٪> <hr> <form method = "post" Action = "story.asp"> الرجاء إدخال سطر جديد لهذه القصة: <input name = "nextline" type = "text" size = "70"> <type type = "إرسال" القيمة = "إرسال"> </form>
|