內(nèi)碼問(wèn)題.用這段代碼的吧,我已經(jīng)改得很精簡(jiǎn)了.
使用XMLHTTP抓取地址并進(jìn)次內(nèi)容處理
| 以下為引用的內(nèi)容： Function GetBody(Url) Dim objXML On Error Resume Next Set objXML = CreateObject("Microsoft.XMLHTTP") With objXML .Open "Get", Url, False, "", "" .Send GetBody = .ResponseBody End With GetBody=BytesToBstr(GetBody,"GB2312") Set objXML = Nothing End Function |
使用Adodb.Stream處理二進(jìn)制數(shù)據(jù)
| 以下為引用的內(nèi)容： Function BytesToBstr(strBody,CodeBase) dim objStream set objStream = Server.CreateObject("Adodb.Stream") objStream.Type = 1 objStream.Mode =3 objStream.Open objStream.Write strBody objStream.Position = 0 objStream.Type = 2 objStream.Charset = CodeBase BytesToBstr = objStream.ReadText objStream.Close set objStream = nothing End Function |
新聞熱點(diǎn)
疑難解答
圖片精選
