الزحف إلى صفحات الويب. في بعض الأحيان، من الضروري تحقيق توقعات الطقس المحدثة الحقيقية. يتم استخدام مكون XMLHTTP لالتقاط الجزء المحدد من صفحة الويب. في الواقع، تحتاج العديد من برامج اللصوص إلى تقسيم كود مصدر HTML ليكون أكثر فائدة.
كود مصدر HTML الذي تم التقاطه في هذا المثال هو كما يلي
<p align=left>الثلاثاء 24 أغسطس 2004؛ نهارًا: مشمس وغائم أحيانًا، مستوى الرياح في يوننان 3-4 ليلاً: درجة الحرارة مشمسة جنوبية 3-4: الحد الأقصى 29 درجة مئوية والحد الأدنى 19 درجة مئوية </p>
البرنامج من
استخدم 24 أغسطس 2004 ككلمة رئيسية للبحث حتى</p>النهاية
يصبح المحتوى الذي تم التقاطه يوم الثلاثاء 24 أغسطس 2004؛ نهارًا: مشمس وغائم أحيانًا، مستوى الرياح في يوننان 3-4 ليلًا: مستوى الرياح الجنوبية المشمسة 3-4؛ درجة الحرارة القصوى 29 درجة مئوية، والحد الأدنى 19 درجة مئوية؛
انها نظيفة. قم بتسجيله.
انسخ رمز الكود كما يلي:
<%
على خطأ استئناف التالي
Server.ScriptTimeOut=9999999
الدالة getHTTPage(المسار)
ر = جيتبودي (المسار)
getHTTPPage=BytesToBstr(t,GB2312)
وظيفة النهاية
وظيفة GetBody(url)
على خطأ استئناف المقبل
تعيين الاسترداد = CreateObject(Microsoft.XMLHTTP)
مع الاسترجاع
.افتح Get، url، False،،
.يرسل
GetBody = .ResponseBody
نهاية مع
تعيين الاسترجاع = لا شيء
وظيفة النهاية
الدالة 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 = لا شيء
وظيفة النهاية
الدالة نيوسترينغ(wstr,strng)
سلسلة جديدة=Instr(lcase(wstr),lcase(strng))
إذا كانت Newstring<=0 ثم Newstring=Len(wstr)
وظيفة النهاية
%>
<أتش تي أم أل>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 MARGINHEIGHT=0 MARGINWIDTH=0>
<!--ابدأ-->
<%
خافت wstr، str، url، بدء، أكثر، dtime
dtime=Year(Date)&Year&Month(Date)&Month&Day(Date)&Day
URL=http://www.vevb.com/
wstr=getHTTPage(url)
بدء = نيوسترينغ (وستر، دتايم)
over=Newstring(wstr,</p>)
الجسم = منتصف (wstr، بداية، الإفراط في البداية)
Response.write <MARQUEE onmouseover=this.stop(); onmouseout=this.start();>&body&</marquee>
%>
<!--انتهى-->
</body></html>