رمز الوظيفة الأساسية التي تم جمعها بواسطة وكيل asp

إذا كنت لا تعرف كيفية كتابة مجموعة ASP، فقد لا تفهم الكود، وهذا ليس ما أناقشه في هذا المنشور وآمل أن يكون مفيدًا للجميع. صفحة الوكيل الوظيفية(url)

تعيين الاسترداد = CreateObject(MSXML2.ServerXMLHTTP.5.0)

مع الاسترجاع

.SetProxy 2, 255.0.0.0:80 'عنوان IP للوكيل: منفذ الوكيل

.افتح Get، url، False،،

.setRequestHeader Referer,http://www.baidu.com/ 'المرجع المزيف

.يرسل

ProxyPage = BytesToBstr(.ResponseBody)

نهاية مع

تعيين الاسترجاع = لا شيء

وظيفة النهاية

تم إرفاق عملية BytesToBstr عند التجميع، يمكنك تحديد ما إذا كانت صفحة الويب هي utf-8 أو gb2312.

الدالة BytesToBstr(body)

objstream خافت

تعيين objstream = Server.CreateObject(ad&&odb.st&&ream)

objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.اكتب النص

objstream.Position = 0

objstream.Type = 2

إذا utf=صحيح إذن

objstream.Charset = utf-8

آخر

objstream.Charset = gb2312

نهاية إذا

BytesToBstr = objstream.ReadText

objstream.Close

تعيين objstream = لا شيء

وظيفة النهاية

شرح الكود:

إذا كان نظامك يعمل بنظام Win 2003، فيمكنك فقط استخدام الكود التالي

كرياتوبجيكت (MSXML2.ServerXMLHTTP.4.0)

إذا كان إكس بي

كرياتوبجيكت (MSXML2.ServerXMLHTTP.5.0)

يعد استخدام المرجع المزيف عامًا جدًا، ولكنه لا يزال مفيدًا لبعض مواقع الويب، لذلك أضفت الكود ويمكنك التعليق عليه.

يلاحظ:

إذا كنت لا تعرف كيفية كتابة مجموعة ASP، فقد لا تفهم الكود، وهذا ليس ما أناقشه في هذا المنشور وآمل أن يكون مفيدًا للجميع.