ASP中使用XMLHTTP读取远程数据2

最新推荐文章于 2021-08-10 19:15:39 发布

blueonly

最新推荐文章于 2021-08-10 19:15:39 发布

阅读量933

点赞数

分类专栏： AJAX-- 文章标签： asp function 服务器 url

本文链接：https://blog.csdn.net/blueonly/article/details/584615

版权

AJAX-- 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

ASP中使用XMLHTTP读去远程数据1

http://blog.csdn.net/blueonly/archive/2006/01/20/584609.aspx

关于XMLHTTP的细节可以参考

http://www.channel7.cn/2004/11-18/14458.html

关于adodb.stream的细节可以参考

http://www.daima.com.cn/Info/32/Info22138/

下面重新注释了BytesToBstr函数,它的作用是把由xmlhttp.responsebody返回的字节数组转换成文本字符串,如果数据要用做屏幕输入则必须转换否则汉字会出现乱码.

Function BytesToBstr(body)
  'Cset:GB2312 UTF-8
  dim objstream
  set objstream = Server.CreateObject("adodb.stream")
  with objstream
   .Type = 1 ' 设置返回数据类型为二进制
   .Mode = 3 '打开模式为读写
   .Open
   .Write body ' 将指定的数据装入对像中 body为内容
   .Position = 0 ' 指定对像内数据的当前指针
   .Type = 2 ' 设置返回数据类型为文本
   .Charset = Cset ' 设定字符集类型
   BytesToBstr = .ReadText ' 取对象内的文本
   .Close
  end with
  set objstream = nothing
End Function

获取其他服务器的数据和获取文本是一个道理，通过图片的url获取图片的数据处理,只是保存的时候不需要把它转换成字符串了。这里利用adodb.stream的SaveToFile方法将其保存在本地服务器上。

Public function saveimage(tofile)
  dim objStream,imgs
  imgs=getBody(sUrl)' 取得图片的具休内容的过程
  Set objStream = Server.CreateObject("ADODB.Stream")' 建立ADODB.Stream对象，必须要ADO 2.5以上版本
  with objStream
   .Type =1' 以二进制模式打开
   .Open
   .write imgs' 将字符串内容写入缓冲
   .SaveToFile server.mappath(tofile),2' 将缓冲的内容写入文件
   .Close()
  end with
  set objstream=nothing
end function