هل تعرف كيفية تنفيذ رمز جمع ASP؟ اليوم ، سيقدم لك محرر Foxin البرنامج التعليمي حول تنفيذ مجموعة رمز ASP. الأصدقاء المهتمين ، اتبع خطوات المحرر لرؤية المحتوى المحدد.
تبدأ المجموعة
الخطوة الأولى هي تحليل الصفحة المراد جمعها.
استخدم متصفحًا لفتح الصفحة التي تريد جمعها (مثل: http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml ، يمكنك استخدام صفحات أخرى). بعد الافتتاح ، انقر بزر الماوس الأيمن للتحقق من الملف المصدر.
الخطوة الثانية هي العثور على موقع المحتوى المراد جمعه.
إذا أردت جمع العنوان والمحتوى في هذه الصفحة:
العنوان بين <h1 id = "artibodytitle" style = "color:#03005c ؛"> و </h1>
المحتوى بين المحتوى يبدأ -> ونهاية المحتوى -> من محتوى النص
انتبه لتفرد الموقع. بعد العثور عليه ، يمكنك استخدام البحث في التحرير لمعرفة ما إذا كان فريدًا وفريدًا قدر الإمكان. إذا لم يكن كذلك ، أول ما يمكن. إذا لم ينجح ، فيمكنك استبداله فقط.
الخطوة 3: اكتب الرمز
نسخة الكود كما يلي:<٪
"الوظيفة: رمز جمع ASP
المؤلف: وانغسدونغ
ملاحظة: دعم البرامج الأصلية ، يرجى الاحتفاظ بهذه المعلومات ، شكرًا لك
url = "http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml"
str = gethttppage (url)
title = strcut (str ، "<h1 id =" "artibodytitle" "style =" "color:#03005c ؛" ">" ، "</h1>" ، 2)
content = strcut (str ، "<!-محتوى النص يبدأ->" ، "<!-نهاية محتوى النص->" ، 2)
Response.write "عنوان الأخبار <br> <b>" & title & "</b> <br> <br> <br> <br> محتوى الأخبار: <br>" & content
وظيفة gethttppage (url)
عند استئناف الخطأ التالي
خافت HTTP
تعيين http = server.createBject ("microsoft.xmlhttp")
http.Open "get" ، url ، false
http.send ()
إذا http.readyState <> 4 ثم
وظيفة الخروج
إنهاء إذا
gethttppage = bytestobstr (http.responsebody ، "GB2312")
تعيين http = لا شيء
إذا err.number <> 0 ثم
reponse.write "<p align = 'center'> <font color = 'red'> <b> الخادم يخطئ في الحصول على محتوى الملف </b> </font> </p>"
err.clear
إنهاء إذا
وظيفة نهاية
وظيفة bytestobstr (الجسم ، CSET)
قاتمة objstream
تعيين OBJStream = server.createBject ("Adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.Open
objstream.write الجسم
objstream.position = 0
objstream.type = 2
objstream.charset = cset
bytestobstr = objstream.readtext
objstream.close
اضبط OBJStream = لا شيء
وظيفة نهاية
"اعتراض السلسلة ، 1. يتضمن أحرف البدء والنهاية ، 2. لا يشمل
وظيفة strcut (strcontent ، startStr ، endstr ، cuttype)
Dim Strhtml ، S1 ، S2
strhtml = strcontent
عند استئناف الخطأ التالي
حدد CASE CUTTYPE
الحالة 1
S1 = instr (strhtml ، startstr)
S2 = Instr (S1 ، Strhtml ، Endstr)+Len (Endstr)
الحالة 2
S1 = instr (strhtml ، startstr)+len (startstr)
S2 = Instr (S1 ، Strhtml ، Endstr)
نهاية الاختيار
إذا أخطأ بعد ذلك
strcute = "<p align = 'center'> لم يتم العثور على ما هو مطلوب. </p>"
err.clear
وظيفة الخروج
آخر
Strcut = Mid (Strhtml ، S1 ، S2-S1)
إنهاء إذا
وظيفة نهاية
٪>
ما سبق هو البرنامج التعليمي حول تنفيذ رمز جمع ASP. الآن وبعد أن قام المحرر بإخراج المحتويات التي تحصل عليها ، يمكنك كتابة هذه المحتويات في قاعدة البيانات ، والبيانات الخاصة بك.