Function GetURL(url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False .Send GetURL = bytes2bstr(.responsebody) '對取得信息進行驗證,如果信息長度小於100則說明截取失敗 if len(.responsebody)<100 then response.write "獲取遠程文件 "&url&" 失敗。" response.end end if End 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 objstream1 set objstream1=createobject("adodb.stream") objstream1.type=2 objstream1.open objstream1.position=objstream1.size objstream1.writetext bodyall objstream1.savetofile filename,2 objstream1.close set objstream1=nothing end function '聲明截取的格式,從Start開始截取,到Last為結束 Function GetKey(HTML,Start,Last) filearray=split(HTML,Start) filearray2=split(filearray(1),Last) GetKey=filearray2(0) End Function url="http://www.86516.com" Html = GetURL(Url) savetofile html,"ce.htm" [Ctrl+A 全選 注:如需引入外部Js需刷新才能執行]
當前1/2頁 12下一頁閱讀全文
盡管我們可以通過設計器來創建數據庫, 但是我
有意思的ASP小程序,根據用戶輸入的日期格式
Asp 使用 Microsoft.XMLHTTP 抓取網頁內
打包下載(該版本為破解版僅用於學習,請不要用與商業用途,解壓
asp查詢記錄: 學習目的:學會數據庫的基
首先要清醒一點,什麼人才可以修改。 一,本