最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp msxml.xmlhttp采集数据并解决乱码问题
时间:2010-11-09 编辑:简简单单 来源:一聚教程网
'在asp中要采集数据一般会利用了asp xmlhttp这个组件来实例了,很多时候采集过来的中文会是乱码,我们利用
bytestobstr函数转换解决了采集乱码的问题。
function gethttppage(url)
on error resume next
dim http
set http=server.createobject("msxml2.xmlhttp")
http.open "get",url,false
http.send()
if http.readystate<>4 then
exit function
end if
gethttppage=bytestobstr(http.responsebody,"utf-8")
set http=nothing
if err.number<>0 then
response.write "www.111com.net 服务器获取文件内容出错"
err.clear
end if
end function
'字节流转换为字符串
function bytestobstr(body,cset)
dim objstream
set objstream = server.createobject("adodb.stream")
objstream.type = 1
objstream.mode =3
objstream.open
objstream.write body
objstream.position = 0
objstream.type = 2
objstream.charset = cset
bytestobstr = objstream.readtext
objstream.close
set objstream = nothing
end function
-
上一个: ajax asp的二级联动菜单实例
-
下一个: 自定义去除HTML代码函数
相关文章
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- ajax实现城市三级联动的代码介绍 09-16
- asp中获取日期为星期几的技巧 09-14