في أحد الأيام، فكرت فجأة، ألن يكون من الرائع أن أتمكن في كل مرة أذهب فيها إلى أحد مواقع الويب من استدعاء المعلومات التي أحتاج إلى رؤيتها على الفور؟ بعد ذلك، أردت أن أفكر في هذا الأمر بعمق أكبر، جالسًا على كرسي ومعي قلم رصاص ولا أعرف ما كنت أكتبه. في هذه الحالة، لا يزال يتعين علي التعامل مع ترميزها.
??افتتح صديقي موقعًا صغيرًا، وهو في الأصل من تصميمي. هذه منصة جيدة لاختبار أفكاري. لذلك كتبت الكود وقمت بتحميل الملف. إنه أمر مثير حقًا، فالبرنامج يعمل بشكل مثالي، ويثبت أيضًا أن فكرتي جيدة بالفعل.
لقد قرأت بعض تقارير اتجاهات مستخدمي الإنترنت من قبل، وهناك نمط فيها أثار إعجابي بشدة. يقال أن معظم المستخدمين سيغادرون الموقع على الفور إذا لم يتمكنوا من العثور على ما يحتاجون إليه خلال ثلاث نقرات. يمكن للكود الخاص بي حل هذه المشكلة والتأكد من قدرة المستخدمين على العثور على الهدف بنقرة واحدة فقط على الفأرة. في المثال الخاص بي، لنفترض أن أحد المستخدمين قام بتسجيل الدخول إلى Yahoo وقام بالبحث عن ملحقات المدفأة (ملحقات معدات الطيران). في النتائج المقدمة، عندما يأتي إلى موقع صديقي، سيرى شاشة بها كلمات مثل "أنت تبحث عن ملحقات المدفأة". وبعد ذلك سيتبع التعليمات الموجودة على موقع الويب وينتقل مباشرةً إلى الصفحة التي يريد الانتقال إليها.
؟؟الخطوة الأولى التي عليك القيام بها هي إنشاء متغير أولي في ملف global.asa ووضعه في برنامج Sub Session_onStart() الخاص بك.
؟؟Sub Session_onStart()
المرجع = Trim(Request.ServerVariables("HTTP_REFERER"))
??إذا كان المُحيل = "" إذن
؟؟المرجع = "لا شيء"
نهاية إذا
??Session("Referer") = Referer
??End Sub
??ثم دعونا نلقي نظرة على كيفية إكمال الوظائف الرئيسية للبرنامج.
??لأن عنوان URL قد تم تشفيره، يجب علينا أولاً استعادة بيانات التأشير الخاصة بمضيف الزائر إلى شيء مفيد لنا. أنشئ صفحة ASP، وأطلق عليها اسم decode.asp، وهي العمود الفقري لبرنامجنا. الوظيفة الأولى هي فك تشفير رأس التأشير المشفر. الإجراء طويل بعض الشيء، ومباشر للغاية، دون أي جهد. إذا وجدت الأمر مزعجًا، فيمكنك أيضًا الانتقال إلى "دورة التدريب على دودة الإنترنت" على www.popunet.com للعثور على هذه المقالة واستخدام الموقع. طريقة "النسخ/اللصق".
؟؟الشيء الثاني الذي يجب فعله في الكود المصدري
هو فصل جزء الاستعلام عن معلومات رأس URL - وهذا ما نحتاج إليه.
'افصل حقول الاستعلام عن عنوان URL الذي يشير إليه.
الدالة هي المنتج (pStr)
؟؟ إذا كان pStr <> "" وlCase(pStr) <> "لا شيء" إذن
""حقل البحث إلى الوراء.""
??درجة الحرارة = inStrRev(pStr, "/")
""احصل على موقع فصل الدليل.""
درجة الحرارة = اليمين (بستر، درجة الحرارة)؟؟
""احصل على طول البيانات ذات الصلة.""
درجة الحرارة 2 = لين (بستر)؟؟
""الحصول على صفوف بيانات الاستعلام.""
??pStr = منتصف (pStr، درجة الحرارة، temp2)
؟؟ "تعيين قيمة وظيفة الإرجاع."
??
؟؟آخر
??هو المنتج = ""
??النهاية إذا
وظيفة النهاية
الخطوة التالية هي وضع معايير واضحة للبحث. لتحقيق هذا الغرض، قم بإنشاء مساحتين ثابتتين "مؤشرات" للعثور على البيانات المشار إليها بواسطة
Function Finder(byRef prodList, byVal refList)
؟؟'استعلام غامض
؟؟refList = lCase(refList)
??' قم بالتمرير عبر المؤشرات للعثور على الحقول المطابقة
؟؟For i = 0 إلى uBound(prodList) - 1
؟؟إذا كان inStr(refList, lCase(prodList(i, 0))) إذن
؟؟'البحث عن تطابق
??tHolder = tHolder & "هل تبحث عن" _
؟؟& "" _
؟؟& قائمة المنتجات(i, 0) & "
؟؟"
??النهاية إذا
؟؟'الحلقة الثانية
؟؟التالي
؟؟'إرجاع النتيجة
؟؟Finder = وظيفة tHolderEnd
??من خلال تضمين، ضع decode.asp الذي أعددناه في أي صفحة تحتاج إلى هذه الوظيفة، وبذلك تكون قد انتهيت.
التفاصيل هي كما يلي:
'إذا لم يكن رأس التأشير فارغًا، فاتصل بهذه الوظيفة إذا كان lCase(Session("Referer")) <> "none" OR Session("Referer") <> "" ثم" تحليل بيانات التأشير Response.Write vbCrLf & "
؟؟" _ & Finder(pArray, URLDecode(isProduct(Session("Referer"))) _ & "
؟؟" & vbCrLf
??النهاية إذا