احصل على رمز التنفيذ للمحتوى المحدد لصفحة الويب البعيدة

استخدم ASP للحصول على المحتوى المحدد لصفحة الويب عن بُعد ، يمكنك بسهولة الحصول على بعض المحتويات المحددة لصفحة الويب للآخرين.

الرمز كما يلي:

<٪

"استخدم ASP للحصول على المحتوى المحدد لصفحة الويب الهدف عن بُعد ، يتم توفير الرمز بواسطة موقع Guangzhou لإنشاء http://www.vevb.com

عند استئناف الخطأ التالي

server.scriptTimeout = 9999999

وظيفة gethttppage (المسار)

t = getBody (المسار)

gethtpage = bytestobstr (t ، gb2312)

وظيفة نهاية

وظيفة أخبار الوظائف (WSTR ، Strng)

Newstring = instr (LCAS (WSTR) ، LCASE (Strng))

إذا كان ترجمة الأخبار <= 0 ثم NewsTring = Len (WSTR)

وظيفة نهاية

وظيفة 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 = لا شيء

وظيفة نهاية

وظيفة getBody (url)

عند استئناف الخطأ التالي

تعيين استرجاع = createObject (microsoft.xmlhttp)

مع استرجاع

.open Get ، url ، false ،،،،،،،،،،،،،،،،،

.يرسل

getBody = .responseBody

تنتهي

setRieval = لا شيء

وظيفة نهاية

يحصل ASP على المحتوى المحدد لبدء صفحة الويب عن بُعد ، والبدء

Dim WSTR ، STR ، URL ، ابدأ ، أكثر ، dtime

A = بدء المحتوى 'احصل على محتوى صفحة الويب المستهدفة وابدأ في وضع العلامات

B = نهاية المحتوى 'ASP للحصول على علامة نهاية محتوى الويب

url = http://sc.vevb.com/

WSTR = GethTpage (URL)

START = NEWSTRING (WSTR ، A)

Over = Newstring (WSTR ، B)

الجسم = منتصف (WSTR ، ابدأ ، مبالغ فيه)

Response.write & Body & 'Output تم الحصول عليها محتوى صفحة الويب

يحصل ASP على المحتوى المحدد لصفحة الويب عن بُعد

٪>

يمكن للرمز أعلاه الحصول على محتوى صفحة الويب المحددة.

الكود الأساسي:

يحصل ASP على المحتوى المحدد لبدء صفحة الويب عن بُعد ، والبدء

Dim WSTR ، STR ، URL ، ابدأ ، أكثر ، dtime

url = http://sc.vevb.com/

WSTR = GethTpage (URL)

الجسم = wstr