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" [Ctrl+A 全選注:如需引入外部Js需刷新才能執行] 12下一頁閱讀全文
