所属类别：Asp

文章作者：未知

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

内码问题.用这段代码的吧,我已经改得很精简了.'使用XMLHTTP抓取地址并进次内容处理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处理二进制数据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 = nothingEnd Function 关闭本页

....