代码如下:url=”http://www.csdn.net/” wstr=getHTTPPage(url) start=Newstring(wstr,”资源精选”) over=Newstring(wstr,””) body=mid(wstr,200,500) response.write body Function getHTTPPage(url) dim objXML set objXML=createobject(“MSXML2.XMLHTTP”)’定义 objXML.open “GET”,
