موصى به: استخدم ASP لتحليل عنوان الصورة تلقائيًا في صفحة الويب الآن يتم استخدام محرر HTML استنادًا إلى صفحات الويب بشكل أكبر في نظام الأخبار ونظام المقالات. يمكن أن تحافظ صفحة الويب على نمطها الأصلي بمجرد أن تتمسك ، ويمكن أيضًا الحفاظ على الصور في هذه الصفحة. ومع ذلك ، أثناء الاستخدام ، إذا تم حذف الصورة الموجودة على الصفحة التي تم لصقها
ASP هي تقنية أطلقتها Microsoft لاستبدال واجهة Gateway Universal. اسمها الكامل صفحات خادم نشطة. إنها بيئة تشغيل من جانب خادم الويب. يحتوي ASP نفسه على محركات VBScript و JavaScript ، مما يسمح بتضمين البرامج النصية مباشرة في HTML. الآن سأشارككم بعض النصائح حول كيفية استخدامنا ASP.
1. عمود الأخبار
تحتوي معظم صفحات الويب على أشرطة أخبار لعرض موضوع الأخبار الحديثة. انقر فوق هذا الموضوع لعرض التقارير التفصيلية. إذا قمت بكتابتها واحدة تلو الأخرى على صفحة الويب كل يوم ، فسيكون من المزعج للغاية إنشاء روابط بدورها. كيف تجعلها تحديث تلقائيًا بناءً على الملف؟
1. التحضير:
1) إنشاء مجلد وتسمية أخبار ، على افتراض أنه يتم تخزينه في D:/ ASP/ الدليل ؛
2) اكتب المحتوى التفصيلي لكل أخبار في ملف ، وشكل التسمية لهذا الملف هو: x (newstime) .htm. حيث X هي موضوع هذا الخبر ، و Newstime هو الوقت الذي يتم فيه إصدار الأخبار (مكتوب بترتيب يوم السنة). لماذا تكتب مثل هذا؟ ستعرف بعد قراءة أفكار الخوارزمية وبرامج المصدر أدناه.
2. فكرة الخوارزمية: بالنسبة للملفات الموجودة في مجلد الأخبار ، فرز من كبير إلى صغير وفقًا لوقت الإصدار الصحفي في أسماء الملفات الخاصة بهم (أي المحتوى الموجود في قوسين). وبهذه الطريقة ، تصنف آخر الأخبار في القمة. طالما يتم عرض أسماء الملفات العديدة في مجلد الأخبار في الموضع المقابل لصفحة الويب ، يمكن عرض آخر الأخبار في عمود الأخبار كما هو موضح في 1.
3. كتلة المصدر (مكتوب في VBScript)
| ما يلي هو المحتوى المقتبس: <٪ Dim FS ، F ، F1 ، FC ، FileNum عدد خافت Dim I ، J ، T1 ، T2 ملف قاتم (100) Dim Myster (100) 'مستوى التاريخ في الملف العد = 0 set fs = createObject (scripting.filesystemObject) تعيين f = fs.getfolder (d:/asp/news) تعيين fc = f.files لكل F1 في FC العد = العد 1 'احسب عدد الملفات الملف (العد) = fs.getBasename (F1) 'اسم ملف العلامة اسم قاعدة mypos = instr (1 ، ملف (عدد) ، () ') في اسم قاعدة الملف 'سلسلة التاريخ في اسم ملف mystr (count) = mid (file (count) ، mypos 1 ، len (file (count)) - (mypos 1)) التالي لأني = 1 للعد ل j = 1 إلى العد الأول إذا myster (j) <mystr (j 1) ثم T1 = ملف (ي) ملف (j) = ملف (j 1 ملف (J 1) = T1 T2 = mystr (j) myster (j) = mystr (j 1) myster (j 1) = t2 إنهاء إذا التالي التالي J = 1 إذا كان العد <10 ثم يعرض عمود الأخبار 10 أخبار temcount = العد آخر temcount = 10 إنهاء إذا تفعل بينما j <= temcount ٪> <a href = file: /// d:/asp/news/<٪ = file (j) ٪> .htm target = new_window> <٪ = file (j) ٪> </a> <٪ J = J 1 حلقة ٪> |
4. محتوى عمود الأخبار المحدثة:
طالما قمت بتطوير عادات الكتابة الجيدة ، اجعل اسم الأخبار اتبع متطلبات 1 ، ثم حفظ الملفات المكتوبة في مجلد الأخبار ، سيتم عرض آخر 10 أخبار تلقائيًا.
2. لوحة الإعلانات
بالإضافة إلى عمود الأخبار ، فإن أكثرها استخدامًا هي لوحة الإعلانات ، والتي تُستخدم بشكل أساسي لعرض بعض الإخطارات المهمة. بالطبع ، يجب تغيير هذه الإشعارات بشكل متكرر. هل ستسمح للمستخدمين بالذهاب إلى برنامج المصدر لتعديل في كل مرة يقومون فيها بتغيير محتوى الإعلان؟ بالطبع لا. يجب أن نقدم واجهة صيانة للمستخدم ، بحيث يتم عرض محتوى الإخطار طالما يدخل المستخدم للإشعار ، وسيتم عرض محتوى الإخطار في لوحة الإعلانات على صفحة الويب.
1. مفتاح حل هذه المشكلة يكمن في التطبيق المرن لكائنات نظام الملفات وكائنات TextStream. في التطبيقات الفعلية ، لا تحتاج إلى إنشاء كائن TextStream بنفسك ، لأنه طالما قمت بفتح الملف باستخدام كائن FileSystemObject ، سيقوم النظام تلقائيًا بإنشاء كائن TextStream. وهذا هو ، بمجرد استدعاء طريقة OpentExtFile أو CreateTextFile ، سيتم تمرير كائن TextStream مرة أخرى.
2. هناك ثلاثة ملفات ذات صلة مطلوبة: update.asp ، explaced.asp ، text.txt ، وحفظها في الدليل D:/ASP/صيانة.
3. الوظائف الرئيسية وكتل المصدر للملفات الثلاثة:
1) Update.asp
تتمثل الوظيفة الرئيسية في السماح للمستخدم بإدخال الإعلان لعرضه ، والتحقق مما إذا كان محتوى الإدخال فارغًا. إذا لم يكن فارغًا ، فسيتم تقديمه إلى برنامج الإعلان. APP للمعالجة.
| ما يلي هو المحتوى المقتبس: <html> <head> <meta http-equiv = content-type content = text/html ؛ charset = gb2312> <meta name = Generator Content = Microsoft Frontpage 4.0> <name meta = progid content = frontpage.editor.document> <title> تحديث محتوى لوحة نشرة </title> </head> <body> <لغة البرنامج النصي = vbscript> وظيفة datacheck () DIM MSG ، errflag errflag = صحيح إذا كان len (trim (kearaint.t1.value)) = 0 ثم Focusto (0) errflag = خطأ msg = الرجاء إدخال محتوى الإعلان المطلوب إرساله إنهاء إذا إذا (errflag = false) ثم msgbox msg ، 64 ، أوه لا! وظيفة الخروج إنهاء إذا datacheck = errflag صيانة وظيفة نهاية FOCUSTO الفرعي (X) document.maintain.Elements (x) .focus () نهاية الفرعية </script> ① <طريقة النموذج = post Action = إعلان. الاسم = صيانة> <p> <input type = text name = t1 size = 84> <input type = reset value = rewrite name = b2> <type type = button value = إرسال اسم = b1 onClick = datacheck ()> </p> <hr color =#ff99ff size = 1> </form> </body> </html> |
الإجراء = الإعلان. ASP في البيان ① يشير إلى أن البرنامج الذي سيتم بدء تشغيله بعد تقديم النموذج هو الإعلان.
2) إعلان
تتم قراءة ملف نص الصيانة والكتابة من خلال كائن FileSystemObject وكائن TextScream ، بحيث يكون محتوى أفضل 5 أسطر من هذا الملف هو الإعلان الذي سيتم عرضه في لوحة الإعلانات.
| ما يلي هو المحتوى المقتبس: <٪ خافت شارع str = request.form (t1) Dim S (5) const forreading = 1 ، forwriting = 2 قاتمة fso ، myfile set fso = server.createObject (scripting.filesystemObject) set myfile = fso.opentextFile (صيانة text.txt ، forreading) "فتح الملف في وضع القراءة بالنسبة لـ i = 1 إلى 5 'يعرض لوحة الإعلانات 5 إعلانات في المجموع s (i) = myfile.readline'read محتوى الملف التالي myfile.close set myfile = fso.opentextFile (صيانة text.txt ، forwriting ، true) 'فتح ملف في وضع الكتابة myfile.writeline str لأني = 1 إلى 4 myfile.writeline s (i) 'كتابة البيانات مرة أخرى إلى الملف التالي myfile.close ٪> |
3) الحفاظ على text.txt
يبدأ هذا الملف فارغًا ، وبعد إدخال إعلان من الواجهة المعروضة في التحديث .asp ، تتم كتابة محتويات هذا الملف تلقائيًا.
4. أضف الكود التالي إلى قطاع التعليمات البرمجية حيث يمكن لموقع الإعلان عرض إعلان التحديث في ملف الصفحة الرئيسية (عادةً افتراضيًا) لعرض الإعلان المحدث.
| ما يلي هو المحتوى المقتبس: <marquee scrolllamount = 2 scrolldelay = 50 Direction = Up Width = 223 height = 133 id = a onMouseover = A.Stop () onMouseout = A.Start ()> 'التمرير لأعلى ولأسفل لوحة النشرة <٪ Dim S (20) قاتمة fso ، myfile set fso = createObject (scripting.filesystemObject) set myfile = fso.opentextfile (d:/asp/intear/enainain text.txt ، 1 ، true) لأني = 1 إلى 5 readlinetextFile = myfile.readline s (i) = readLinetextFile الرد. write ★ & s (i) الرد. write <br> التالي ٪> </marquee> |
يمكن للنصائح المذكورة أعلاه حل العديد من هذه المشكلات من خلال التعلم من مثال واحد. قد يجربها عشاق تصميم الويب.
المشاركة: أعمق فهم للجلسة وملفات تعريف الارتباط دعنا نتحدث عن نقاش الجلسة حول الجلسة ، ولكن يجب أن يكون هناك أكثر من 90 شخصًا يمكنهم فهم الجلسة. لكن دعني أخبرك ، لا أعتقد أنك قديم ~ بعض الناس يتفقون مع الجلسة ، بينما لا يوافق الآخرون. ولكن ما الذي يجب أن أقوله بالضبط عن هذا السؤال؟ لماذا لا تستمع