首页  /  留言  /  音乐  /  管理

ASP获取远程数据

<%
‘//1、输入url目标网页地址,返回值getHTTPPage是目标网页的html代码
 Function getHTTPPage(url)
  url=cstr(url)
  dim Http
  set Http=server.createobject("MSXML2.ServerXMLHTTP")
 ‘ Response.write url
 ‘ Response.end
  Call Http.setTimeouts(90000,90000,90000,90000)
  Http.open "GET",url,false
  Http.send()
  if Http.readystate<>4 then
   exit function
  end if
 
 ‘ Response.write bytesToBSTR(Http.responseBody,"GB2312")
 ‘ Response.end
 
  getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8")
  set http=nothing
  if err.number<>0 then err.Clear
 End Function

 ‘//2、转换乱玛,直接用xmlhttp调用有中文字符的网页得到的将是乱玛,可以通过adodb.stream组件进行转换
 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

‘使用示例:
session.CodePage=65001
response.Charset="utf-8"
Dim data : data = getHTTPPage("http://www.webczw.com/")

%>

作者:Wilber 类别:编程学习 时间:2010/12/22 15:25:04 评论:0 点击204
标签:  ASP,获取,远程数据,xmlhttp
打印:  打印本页
字体:  
本页地址:  http://www.webczw.com/s/2010122215250476977.html
上一篇:纠结
下一篇:回来火车上的短片

  评论    
当第一个评论者吧!抢沙发>>
  
昵    称: Wilber
形    象:
内    容:
验证码:   
以上网友发言只代表其个人观点,不代表伟博小城的观点或立场。
  Copyright © 2010 - 2016 WEBCZW.COM, All Rights Reserved
伟博小城  版权所有 网站统计
粤ICP备14091989号