لنفترض أنك تريد إنشاء دفتر زوار بسيط حيث يمكنك إنشاء قاعدة بيانات حيث تقوم بتخزين معلومات المستخدم. ومع ذلك ، فإن استخدام FSO لتخزين المعلومات سيوفر لك الوقت والمال إذا كانت قوة قاعدة البيانات غير مطلوبة. وقد يقيد بعض مزودي خدمة الإنترنت تطبيقات قاعدة البيانات على الويب.
لنفترض أنك قمت بجمع بعض معلومات المستخدم في نموذج ، إليك رمز HTML بسيط:
<html>
<body>
<form action = formhandler.asp method = post>
<نوع الإدخال = حجم النص = 10 اسم = اسم المستخدم>
<نوع الإدخال = حجم النص = 10 اسم = الصفحة الرئيسية>
<نوع الإدخال = حجم النص = 10 اسم = البريد الإلكتروني>
< /form>
< /body>
</html>
دعنا نلقي نظرة على الكود الذي يعالج النماذج في formhandler.asp:
<٪
احصل على معلومات النموذج
strname = request.form (اسم المستخدم)
strhomepage = request.form (الصفحة الرئيسية)
Stremail = request.form (البريد الإلكتروني)
"إنشاء كائن FSO
set fso = server.createObject (scripting.filesystemObject)
حتى الآن ، لا شيء جديد ليس أكثر من الحصول على قيمة حقل النموذج وتعيين القيم للمتغيرات. يظهر جزء مثير للاهتمام أدناه - اكتب ملفًا:
PATH = C: EMP EST.TXT
forreading = 1 ، forwriting = 2 ، forappending = 3
افتح الملف
تعيين ملف = fso.opentextFile (المسار ، forappending ، صحيح)
اكتب المعلومات إلى الملف
file.write (strname) & vbcrlf
file.write (strhomepage) & vbcrlf
file.write (stremail) & vbcrlf
"إغلاق وتنظيف
file.close
تعيين ملف = لا شيء
تعيين fso = لا شيء
أذكر أن طريقة OpenTextFile تُرجع كائن TextStream ، وهو كائن آخر في نموذج FSO. يكشف كائن TextStream عن طرق لمعالجة محتوى الملف ، مثل الكتابة والقراءة وتخطي الخط. ينتج VBCRLF الثابت VB حرفًا جديدًا.
يتم تعريف TRUE في معلمة الأوامر من OpentExtFile ، والتي تخبر النظام أنه إذا لم يكن الملف موجودًا ، قم بإنشائه. إذا لم يكن الملف موجودًا ولم يتم تعريف المعلمة الحقيقية ، يحدث خطأ.
انتقل الآن إلى الدليل C: EMP ، Open Test.txt ، ويمكنك رؤية المعلومات التالية:
اسم المستخدم
الصفحة الرئيسية للمستخدم
البريد الإلكتروني للمستخدم
بالطبع ، يمكن استبدال هذه الكلمات بأي شيء يتم إدخاله في النموذج