Question

利用与ASP的VB文本我正试图建立一个吉大港定居地的申请,该请求将访问一个网页,从而产生一条ASCII(非超文本)线。然后,我想推断一下,ASCII线将包含4项由半殖民地划定的数值,重新纳入我原来的ASP网页的4项变量,以便我能够拿到这些数值,并与这些数值做些什么。

这是我想与吉大港山区GET申请网站。其中三个价值在此无效。

我没有多少人/人了解协会,因此我有:

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

但很明显,我只字不提我干什么,因为那只是一帆风顺。我完全不了解我在这里所看到的朝正确方向发展的趋势。请帮助!

- 林业

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内的服务器XMLHTTP,XMLHTTP部件的设计是为了客户的用量,并且是在多种翻新的环境中安全使用的,如ASP。

Answer 2

Try changing the oXMLHTTP.responseBody to oXMLHTTP.responseText and see if that work.

如果需要关于这一方法的更多信息,请参考这一网页:

。

友情链接