مثال لتحليل بداية جمع مبدأ جمع asp
الخطوة الأولى هي تحليل الصفحات التي تريد التقاطها.
استخدم المتصفح لفتح الصفحة التي تريد جمعها (مثل: http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml، يمكنك أيضًا استخدام صفحات أخرى بعد الفتح). انقر بزر الماوس الأيمن لعرض الملف المصدر.
الخطوة الثانية هي العثور على موقع المحتوى الذي سيتم جمعه.
إذا كنت أرغب في جمع العنوان وموقع المحتوى لهذه الصفحة:
يقع العنوان بين <h1 id=artibodyTitle style=color:#03005C;> و </h1>
المحتوى يقع بين ＜!-- بداية محتوى النص --＞ و ＜!-- نهاية محتوى النص --＞
انتبه إلى تفرد الموقع بعد العثور عليه، يمكنك استخدام البحث في التحرير لمعرفة ما إذا كان فريدًا. إذا لم يكن الأمر كذلك، فحاول أن تكون الأول ، يمكنك فقط استبداله.
الخطوة الثالثة هي كتابة التعليمات البرمجية
انسخ رمز الكود كما يلي:
<%
'الوظيفة: كود جمع asp
"المؤلف: وانجسدونج
'ملاحظات: دعم البرامج الأصلية، يرجى الاحتفاظ بهذه المعلومات، شكرًا لك
url=http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml
str=getHTTPage(url)
title=strcut(str,<h1 id=artibodyTitle style=color:#03005C;>,</h1>,2)
content=strcut(str,<!-- بداية محتوى النص -->,<!-- نهاية محتوى النص -->,2)
Response.اكتب عنوان الأخبار<br><b>&العنوان&</b><br><br><br>محتوى الأخبار:<br>&المحتوى
الدالة getHTTPPage(url)
على خطأ استئناف التالي
خافت http
تعيين http=Server.createobject(Microsoft.XMLHTTP)
Http.open الحصول على، URL، خطأ
المتشعب.إرسال ()
إذا Http.readystate<>4 ثم
وظيفة الخروج
نهاية إذا
getHTTPPage=bytesToBSTR(Http.responseBody,GB2312)
تعيين http=لا شيء
إذا Err.number<>0 ثم
Response.Write <p align='center'><font color='red'><b>حدث خطأ في الخادم في الحصول على محتوى الملف</b></font></p>
خطأ.واضح
نهاية إذا
وظيفة النهاية
الدالة BytesToBstr(body,Cset)
objstream خافت
تعيين objstream = Server.CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.اكتب النص
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
تعيين objstream = لا شيء
وظيفة النهاية
'اعترض السلسلة، 1. بما في ذلك أحرف البداية والنهاية، 2. باستثناء
الدالة strCut(strContent،StartStr،EndStr،CutType)
خافت strHtml،S1،S2
strHtml = strContent
على خطأ استئناف التالي
حدد نوع قص الحالة
الحالة 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'>لم يتم العثور على المحتوى المطلوب. </ص>
خطأ.واضح
وظيفة الخروج
آخر
strCut = منتصف (strHtml،S1،S2-S1)
نهاية إذا
وظيفة النهاية
%>
هذا كل شيء، سأقوم بإخراج المحتوى الذي تم الحصول عليه الآن، ويمكنك كتابة المحتوى في قاعدة البيانات، بحيث تكون البيانات ملكك.