'On Error Resume NextServer.Scripttimeout=300'---------------------------------------------------------------------'采集数据Function getHTTPData(url) dim http set http=Server.createobject("Msxml2.XMLHTTP") if instr(url,"http://")=0 then url="http://"&url Http.open "GET",url,false Http.send() if Http.Status<>200 then exit function getHTTPData=bytesToBSTR(Http.responseBody,"UTF-8") set http=nothing if err.number<>0 then err.Clear sCharset="" End function'----------