日期:2014-05-16 浏览次数:21048 次
set xhr=Server.CreateObject("microsoft.xmlhttp")
xhr.open "get","http://www.youdao.com/smartresult-xml/search.s?type=mobile&q=13888880000",false
xhr.send
rst=xhr.responsetext
set xhr=nothing
set rx=new regexp
rx.pattern="<location>([\s\S]+?)</location>"
if rx.test(rst) then
set m=rx.Execute(rst)
response.write m.item(0).submatches(0)
end if
set rx=nothing