Function GetURL(url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False.Send GetURL = bytes2bstr(.responsebody)'对取得信息进行验证，如果信息长度小于100则说明截取失败if len(.responsebody)<100 thenresponse.write "获取远程文件 "&url&" 失败。"response.endend ifEnd With Set Retrieval = Nothing End Function' 二进制转字符串，否则会出现乱码的！function bytes2bstr(vin) strreturn = "" for i = 1 to lenb(vin) thischarcode = ascb(midb(vin,i,1)) if thischarcode < &h80 then strreturn = strreturn & chr(thischarcode) else nextcharcode = ascb(midb(vin,i+1,1)) strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode)) i = i + 1 end if next bytes2bstr = strreturn end function function savetofile(bodyall,filename)dim objstream1set objstream1=createobject("adodb.stream")objstream1.type=2objstream1.openobjstream1.position=objstream1.sizeobjstream1.writetext bodyallobjstream1.savetofile filename,2objstream1.closeset objstream1=nothingend function'声明截取的格式，从Start开始截取，到Last为结束Function GetKey(HTML,Start,Last)filearray=split(HTML,Start)filearray2=split(filearray(1),Last)GetKey=filearray2(0)End Functionurl="http://www.86516.com"Html = GetURL(Url)savetofile html,"ce.htm" （本文来源于图老师网站，更多请访问http://m.tulaoshi.com/webkaifa/）</p><p>function gethttppage(url)dim httpset http=createobject("MICROSOFT.XMLHTTP")http.open "GET",url,falsehttp.send()if http.readystate<>4 thenexit functionend ifgethttppage=bytestostr(http.responseBody,"GB2312")if err.number<>0 then err.clearend function</p><a href="http://m.tulaoshi.com/webkaifa/" style="position:absolute;left:-10000px;">（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/webkaifa/）</a><p>function bytestostr(body,cset)dim objstreamset objstream=createobject("adodb.stream")objstream.type=1objstream.mode=3objstream.openobjstream.write bodyobjstream.position=0objstream.type=2objstream.charset=csetbytestostr=objstream.readtextobjstream.closeset objstream=nothingend function</p><p>function savetofile(bodyall,filename)dim objstream1set objstream1=createobject("adodb.stream")objstream1.type=2objstream1.openobjstream1.position=objstream1.sizeobjstream1.writetext bodyallobjstream1.savetofile filename,2objstream1.closeset objstream1=nothingend function</p><p>dim url,httpurl="http://www.86516.com"html=gethttppage(url)'msgbox htmlsavefilename="index1.htm"savetofile html,savefilename</p><p>
