使用经典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