使用经典 ASP 从另一个页面读取所有元素

Question

有没有办法读取另一个页面的元素并获取整个 HTML 代码？

举例来说，我想从此页面获取所有 HTML：http://localhost/test3.html

谢谢！

Answer 1

这是我使用的函数：

function http_post (strUrl, data)
    ' call another URL (e.g. ASP or PHP script) via HTTP and POST. "data" should be GET-style parameter string or empty '
    dim xmlHttp
    Set xmlHttp = Server.Createobject("MSXML2.ServerXMLHTTP.6.0")
    With xmlHttp
        .Open "POST", strUrl, False
        .setRequestHeader "User-Agent", Request.ServerVariables("HTTP_USER_AGENT")
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .setRequestHeader "Content-Length", Len(data)
        .Send data
        if .Status < 400 then
            http_post = .responseText
        else
            ' do error logging here if you want '
            http_post = false
        end if
        .abort()
    End With
    set xmlHttp = Nothing
end function

使用经典 ASP 从另一个页面读取所有元素

read all elements from another page using classic ASP

asp-classic