Dim a,b

Set a=CreateObject(＂msxml2.serverxmlhttp＂)

Set b=New RegExp

b.Pattern=＂(http:.+?\.mp3)＂

b.Global=True

b.IgnoreCase=True

a.Open ＂GET＂，＂地址＂

a.Send

Dim c,d

Set c=b.Execute(a.responseText)

For Each d In c

Response.Write d.SubMatches(0)

Next