 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
内码问题.用这段代码的吧,我已经改得很精简了. \\\'使用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 = nothing End Function 返回类别: 教程 上一教程: 一个ASP写的侧边菜单栏 下一教程: ASP压缩数据库 您可以阅读与"XMLHTTP抓取数据时乱码问题解决"相关的教程: · 用XMLHTTP POST/GET HTML页面时的中文乱码问题之完全SCRIPT解决方案 · 用XMLHTTP POST/GET HTML页面时的中文乱码之完全SCRIPT解决方案 · 用XML数据岛解决用户界面问题 - 3 · ADO存取数据时如何实现留言记录的分页显示 · 利用XMLHTTP 从其他页面获取数据 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
