<%
''''''''''''''تعليقات السيف المكسور''''''''''''''''
''''strText هو محتوى القسم الذي سيتم اقتطاعه''''''''''''
''''strStarTag هي نقطة البداية للمحتوى الذي سيتم قصه''''''''''
''''strEndTag هي نهاية المحتوى الذي سيتم قصه''''''''''
''''قيمة الإرجاع GetText هي المحتوى المقطوع'''''''''''''
'''''''''''''انتهى التعليق''''''''''''''''''
الدالة GetText(strText، strStartTag، strEndTag)
intStart خافت
intStart = instr(strText، strStartTag)
إذا intStart ثم
intStart = intStart + لين(strStartTag)
intEnd = InStr(intStart, strText, strEndTag)
GetText = منتصف (strText، intStart، intEnd - intStart)
آخر
احصل على نص=
نهاية إذا
وظيفة النهاية
%>
<%
''''''''تعليقات السيف المكسور'''''''''
''''''''يمكن تجاهل الوظائف التالية'''''''''
''''''''فقط استخدم وظيفة الإدخال getHTTPPage'''''''
'''''''المسار هو عنوان صفحة الويب المراد قراءتها''''''''
'''''''getHTTPPage تقوم بإرجاع محتوى صفحة الويب المقروءة''
''''''' ما يجب ملاحظته هنا هو gb2312 إذا كان رمز صفحة الويب التي تتم قراءتها هو
''بالنسبة إلى gb2312، استخدم gb2312 إذا كان UTF-8، فقم بتغييره إلى UTF-8'''
'''''''نهاية التعليق'''''''''
الدالة getHTTPage(المسار)
ر = جيتبودي (المسار)
getHTTPPage=BytesToBstr(t,gb2312)
وظيفة النهاية
وظيفة GetBody(url)
على خطأ استئناف المقبل
تعيين الاسترداد = CreateObject(Microsoft.XMLHTTP)
مع الاسترجاع
.فتح الحصول على، URL، خطأ،،،
.يرسل
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 = لا شيء
وظيفة النهاية
%>