Asp classic 需要使用VBscript从网站中拉出链接

Asp classic 需要使用VBscript从网站中拉出链接,asp-classic,vbscript,Asp Classic,Vbscript,我已经将HTML响应转化为一个变量,现在我陷入了困境: 链接: 在理想情况下,我将能够获得x86和x64的第一个和第二个链接。我需要得到的只是exe在变量中的实际位置:即: 下载:avg.com/filedir/inst/avg_ipw_x86_all_2011_1204a3402.exe 谁能给我指出正确的方向吗 提前感谢您提供的任何帮助这是可行的,但这远远不是一个一流的技术,因为我是 然而,我不知道在经典ASP中有什么更简单的方法可以实现这一点,这是一项简单的任务 <% url =

我已经将HTML响应转化为一个变量,现在我陷入了困境:

链接:

在理想情况下,我将能够获得x86和x64的第一个和第二个链接。我需要得到的只是exe在变量中的实际位置:即:

下载:avg.com/filedir/inst/avg_ipw_x86_all_2011_1204a3402.exe

谁能给我指出正确的方向吗


提前感谢您提供的任何帮助

这是可行的,但这远远不是一个一流的技术,因为我是

然而,我不知道在经典ASP中有什么更简单的方法可以实现这一点,这是一项简单的任务

<%

url = "http://www.avg.com/gb-en/31.prd-avb"

Dim http
Set http = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
http.SetTimeouts 20000, 20000, 20000, 10000
http.Open "GET", url, False
http.Send
If http.WaitForResponse(5) Then
    responseText = http.ResponseText
End If
Set http = Nothing

'Response.Write(Server.HtmlEncode(responseText))

Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "<a href=""(http://download\.avg\.com/filedir/inst/.*?)"""
Set matches = re.Execute(responseText)
If matches.Count > 0 Then
    For Each match In matches
        Response.Write(match.SubMatches(0) & "<br />")
    Next
Else
    Response.Write("No matches.")
End If

%>

这太棒了,谢谢你。我研究了通过标记进行解析,但由于它们位于表中,所以有点困难。再次感谢
http://download.avg.com/filedir/inst/avg_ipw_x86_all_2011_1204a3402.exe
http://download.avg.com/filedir/inst/avg_ipw_x64_all_2011_1204a3402.exe
http://download.avg.com/filedir/inst/avg_msw_x86_all_2011_1204a3402.exe
http://download.avg.com/filedir/inst/avg_msw_x64_all_2011_1204a3402.exe
http://download.avg.com/filedir/inst/avg_rad_x86_all_2011_1154.exe
http://download.avg.com/filedir/inst/avg_rad_x64_all_2011_1154.exe