الزحف إلى صفحات الويب. في بعض الأحيان، من الضروري تحقيق توقعات الطقس المحدثة الحقيقية. يتم استخدام مكون 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=getHTTPPage(url)
بدء = نيوسترينغ (وستر، دتايم)
over=Newstring(wstr,</p>)
الجسم = منتصف (wstr، بداية، الإفراط في البداية)
Response.write <MARQUEE onmouseover=this.stop(); onmouseout=this.start();>&body&</marquee>
%>
<!--انتهى-->
</body></html>