Żądanie HTTP GET, ASP - zgubiłem się!

Question

Używanie VBScript z ASP Próbuję skonfigurować żądanie HTTP GET, które odwiedzi stronę, która z kolei generuje linię ASCII (nie HTML). Następnie chcę ekstrapolować tę linię ASCII, która będzie miała 4 wartości rozdzielone średnikami z powrotem na 4 zmienne na mojej oryginalnej stronie ASP, tak żebym mógł wziąć te wartości i zrobić coś z nimi.

To jest strona, na którą chcę uzyskać dostęp za pomocą żądania HTTP GET http://www.certigo.com/demo/request.asp. Trzy wartości są tutaj zerowe.

nie wiem nic o wiele/ASP, więc mam to:

Dim oXMLHTTP 

Dim strStatusTest 

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0") 

oXMLHTTP.Open "GET", "http://www.certigo.com/demo/request.asp", False 

oXMLHTTP.Send 

If oXMLHTTP.Status = 200 Then 

strStatusText = oXMLHTTP.responseBody 

End If 

ale oczywiście nie mam pojęcia, co robię, bo to nie działa w ogóle. Byłbym całkowicie zaskoczony, gdy dowiedziałbym się, że to, co tu mam, nie idzie w dobrym kierunku. Proszę pomóż!!

-Tracy

Answer 1

Kod powinien wyglądać następująco: -

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") 

Uwaga Użycie ServerXMLHTTP od wewnątrz ASP, składnik XMLHTTP jest przeznaczony do użycia po stronie klienta i nie jest bezpieczny w użyciu w środowisku wielowątkowym, takich jak ASP.

Answer 2

Spróbuj zmieniając oXMLHTTP.responseBody do oXMLHTTP.responseText i sprawdzić, czy to działa.

Patrz tej strony, jeśli potrzebujesz trochę więcej informacji na temat tej techniki:

http://classicasp.aspfaq.com/general/how-do-i-read-the-contents-of-a-remote-web-page.html.