تبادل البيانات بين الملفات النصية وملفات قاعدة البيانات في ASP
يعد تطبيق قواعد بيانات الشبكة مكونًا مهمًا جدًا من WWW. يمكن القول أنه إذا كانت قاعدة البيانات مفقودة ، فستفقد الشبكة روحها. يمكنك أن تتخيل مدى صعوبة العثور على هدف عبر الإنترنت دون محركات البحث مثل Yahoo و Sohu. يصبح الجميع في حيرة من أمرهم ويفقد طريقهم في البحر الشاسع من الإنترنت. في الواقع ، تعد محركات البحث هذه أكثر التطبيقات النموذجية لقواعد بيانات الشبكة. هناك العديد من العمليات المباشرة على قواعد البيانات في تقنية ASP (صفحات الخادم النشط). يصف ما يلي طريقة تمرير البيانات من الملفات النصية إلى ملفات قاعدة البيانات.
يتم جمع نموذج النص هذا ونقله إلى دليل ثابت للخادم بواسطة المحطة. يقرأ الخادم البيانات ويخزنها في قاعدة البيانات المحلية. بعد التحويل ، يتم حذف الملف النصي. وبهذه الطريقة ، تكون المحطة مسؤولة عن جمع البيانات وتحميلها إلى الدليل المخصص للخادم بالتنسيق المحدد. قاعدة بيانات جانب الخادم غير شفافة تمامًا للمحطة ، مما يضمن أمان الخادم ، وقد يكون مفيدًا إلى حد ما لتطبيقات قاعدة بيانات الشبكة الحالية.
txttolib.asp
<html>
<head>
<meta http-equiv = تحديث المحتوى = 30 ؛ url = deltext.asp>
<meta http-equiv = نوع المحتوى
المحتوى = النص/html ؛ charset = gb_2312-80>
<meta name = Generator Content = Microsoft Frontpage Express 2.0>
<title> [تحويل الملفات النصية إلى ملفات قاعدة البيانات] </title>
</head>
<body bgcolor =#ffffff>
<align = center>
<p align = center> <font color =#ff0000> تتم معالجة البيانات ، يرجى الانتظار!
<br>
</font> <font color =#000000> <align = center> <٪
str = server.mappath (/) 'احصل على دليل الجذر للخادم
set fso = createObject (scripting.filesystemObject)
تعيين f = fso.getfolder (str & /thetext)
تعيين fc = f.files
ك = 1
لكل F1 في FC
ملف (k) = f1.name 'احصل على جميع أسماء الملفات تحت هذا المسار
ك = ك+1
التالي
٪> <٪ II = 1 ٪> <٪
set fs = createObject (scripting.filesystemObject) ٪> <٪
بينما الثاني <ك
reponse.write file (ii) & <br>
تعيين textInstance = fs.opentextFile (str & / thetext / & file (ii) ، 1 ، false ، false) "افتح الملف لقراءة البيانات
بينما textinstance.atendofstream <> true 'إذا لم ينتهي الملف
visitornum = textInstance.Readline 'اقرأ سطرًا من البيانات
J = 0
CD = LEN (Visitornum)
لأني = 1 إلى قرص مضغوط
إذا كان Mid (visitornum ، i ، 1) = ، فإن "البيانات مفصولة" ، "،" ، "،"
J = J+1
آخر
حدد CASE J 'يحصل على كل قيمة بيانات بشكل منفصل
الحالة 0
ME1 = ME1+MID (Visitornum ، I ، 1)
الحالة 1
ME2 = ME2+MID (Visitornum ، I ، 1)
الحالة 2
ME3 = ME3+MID (Visitornum ، I ، 1)
الحالة 3
ME4 = ME4+MID (Visitornum ، I ، 1)
الحالة 4
ME5 = ME5+MID (Visitornum ، I ، 1)
الحالة 5
ME6 = ME6+MID (Visitornum ، I ، 1)
نهاية الاختيار
إنهاء إذا