مكون المقبس وطريقة الاتصال به

تم تصنيع مكون المقبس هذا بواسطة الشركة التي طورت jmail.
نسخة قديمة جدا. لكنها جيدة جدًا. أنا استخدمه في كل وقت.
مستقرة نسبيا. لقد وجدت سابقًا أن xmlhttp لا يعمل بشكل جيد على خادم win2003. إذا كانت حركة المرور كبيرة، فسيتم تعطل IIS بسهولة. هذا المكون مستقر تمامًا.

paraHost =" www.downcodes.com " ' المضيف
بارابورت = 80 'ميناء
paraFileUrl = "/test/test.htm"

تعيين المقبس = CreateObject("Socket.TCP")
المقبس.Host = paraHost & ": & paraPort
المقبس.Timeout = paraTimeout
إذا كان Err.Number <> 0 ثم Err.Clear
المقبس. مفتوح
خطأ المهلة = 8000ffff
المقبس.SendLine "GET" وparaFileUrl و"HTTP/1.0"
المقبس.SendLine "المضيف:" & paraHost
المقبس.سيندلين ""
المقبس.سيندلين ""
"النوم 200."
المقبس. انتظر قطع الاتصال
إذا Err.Number <> 0 ثم
Response.write Err.Number & "-" & Err.Description

Err.Clear
آخر
Response.write HTTPResponse(Socket.Buffer, 1) 'إخراج النص من المقبس
نهاية إذا
المقبس. إغلاق
تعيين المقبس = لا شيء

الوظيفة الخاصة HTTPResponse (ByVal toHTTPResponse، ByVal whoHTTPResponse)
على خطأ استئناف التالي
خافت HTTPResponseDelimiter

HTTPResponseDelimiter = Chr(13) & Chr(10) & Chr(13) & Chr(10)
إذا (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) <> 0) ثم
حدد الحالة التيHTTPResponse
الحالة 0 'الرأس
HTTPResponse = Mid(toHTTPResponse, 1, (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) - 1))
الحالة 1 "الجسم
HTTPResponse = Mid(toHTTPResponse, (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) + Len(HTTPResponseDelimiter))), (Len(toHTTPResponse) - (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) - 1))))
إنهاء التحديد
نهاية إذا كانت

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