HTTP GET请求,ASP - 我输了!

Question

使用VBScript与ASP我正在尝试设置一个HTTP GET请求,它将访问一个页面,该页面又生成一行ASCII(非HTML).然后我想推断那个ASCII行,它将有4个由分号分隔的值回到我原来的ASP页面中的4个变量中,这样我就可以获取这些值并对它们做些什么.

这是我想通过HTTP GET请求http://www.certigo.com/demo/request.asp访问的页面.这里有三个值为null.

我不太了解ASP,所以我有这个:

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

但显然我不知道我在做什么,因为这根本不起作用.我完全不会惊讶地发现,我所拥有的不是正确的方向.请帮忙!!

-Tracy

Answer 1

您的代码应如下所示: -

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

注意,在ASP中使用ServerXMLHTTP,XMLHTTP组件是为客户端使用而设计的,并且在多线程环境(如ASP)中使用是不安全的.