Несколько классов Повышения очень полезны (shared_ptr), но я думаю, что они немного сошли с ума с чертами и понятиями в Повышении. Время компиляции и огромные двоичные размеры абсолютно безумны с Повышением, как имеет место с любым тяжелым шаблоном кодом. Должен быть баланс. Я не уверен, нашло ли Повышение его.
Ваш код должен выглядеть так: -
Function GetTextFromUrl(url)
Dim oXMLHTTP
Dim strStatusTest
Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0")
oXMLHTTP.Open "GET", url, False
oXMLHTTP.Send
If oXMLHTTP.Status = 200 Then
GetTextFromUrl = oXMLHTTP.responseText
End If
End Function
Dim sResult : sResult = GetTextFromUrl("http://www.certigo.com/demo/request.asp")
Обратите внимание: используйте ServerXMLHTTP изнутри ASP, компонент XMLHTTP разработан для использования на стороне клиента и небезопасен для использования в многопоточной среде, например ASP.
Try changing the oXMLHTTP.responseBody
to oXMLHTTP.responseText
and see if that works.
Refer to this web page if you need some more information on this technique:
http://classicasp.aspfaq.com/general/how-do-i-read-the-contents-of-a-remote-web-page.html.