以下是代码: 代码如下:<% on error resume next Dim objXMLHTTP, xml Set xml = Server.CreateObject(“Microsoft.XMLHTTP”) xml.Open “GET”, “http://chanye.finance.sina.com.cn/yj/2005-01-05/236914.shtml”, False xml.Send tmpstr= xml.responseText ep=clng(instr(1,tmpstr,”meta_data2′′))+18 t
