方法一 <% '常用函数 '1、输入url目标网页地址,返回值getHTTPPage是目标网页的html代码 function getHTTPPage(url) dim Http set Http=server.createobject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<4 then exit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") ...