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

<%
Dim xmlhttp, responseText
Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.Open "GET", "http://example.com/another_page.html", False
xmlhttp.Send

If xmlhttp.Status = 200 Then
    responseText = xmlhttp.responseText
    ' 在这里对responseText进行处理，提取所需的元素信息
    ' 例如，可以使用正则表达式或字符串处理函数来提取元素
    ' 示例代码：提取所有<a>标签的href属性值
    Dim regex, matches
    Set regex = New RegExp
    regex.Pattern = "<a\s+[^>]*href\s*=\s*['""]([^'""]+)['""][^>]*>"
    Set matches = regex.Execute(responseText)
    
    If matches.Count > 0 Then
        For Each match In matches
            Response.Write "Href: " & match.SubMatches(0) & "<br>"
        Next
    Else
        Response.Write "No <a> tags found."
    End If
Else
    Response.Write "Failed to retrieve the page."
End If

Set xmlhttp = Nothing
%>