数据采集中的XMLHTTP和serverXMLHTTP方法

采集中一般常用的是XMLHTTP和serverXMLHTTP方法，各有不同，数据获取方法如下：

1、用serverXMLHTTP组件获取数据
Function GetBody(weburl)
’创建对象
Dim ObjXMLHTTP
Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
’请求文件,以异步形式
ObjXMLHTTP.Open "GET",weburl,False
ObjXMLHTTP.send
While ObjXMLHTTP.readyState <> 4
ObjXMLHTTP.waitForResponse 1000
Wend
’得到结果
GetBody=ObjXMLHTTP.responseBody
’释放对象
Set ObjXMLHTTP=Nothing
End Function
调用方法：GetBody(文件的URLf地址)

2、XMLHTTP组件获取数据
Function GetBody(weburl)
’创建对象
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", weburl, False, "", ""
.Send
GetBody = .ResponseBody
End With
’释放对象
Set Retrieval = Nothing
End Function
调用方法：GetBody(文件的URLf地址)

这样获取的数据内容还需要进行编码转换才能使用

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
调用方法：BytesToBstr(要转换的数据,编码)’编码常用为GB2312和UTF-8。

在服务器端用ASP来取得互联网上的任意文件使用ServerXMLHTTP或许更加合适。可以设定过期时间可以让ASP程序更具效率和可靠性。

ServerXMLHTTP的SetTimeOuts方法设置超，一旦网络连接超时，就断开连接。

具体的应用如下：

Set objXml =Server.CreateObject("MSXML2.ServerXMLHTTP")

objXml.SetTimeOuts 10000, 10000, 15000, 15000

第一个数值：解析DNS名字的超时时间10秒
第二个数值：建立Winsock连接的超时时间10秒
第三个数值：发送数据的超时时间15秒
第四个数值：接收response的超时时间15秒

建立连接，获取数据后，然后利用截取函数分离数据。