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

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