'调用发送数据组件
Function fopen(URL)
Dim objXML
'Set objXML=CreateObject("MSXML2.SERVERXMLHTTP.3.0") '调用XMLHTTP组件，若服务器不支持，请换用以下两个中的一个再试
Set objXML=Server.CreateObject("Microsoft.XMLHTTP")
'Set objXML=Server.CreateObject("MSXML2.XMLHTTP.4.0")
'objXML.SetTimeouts 5000, 5000, 30000, 10000' 解析DNS名字的超时时间，建立Winsock连接的超时时间，发送数据的超时时间，接收response的超时时间。单位毫秒
objXML.Open "GET",URL,False '以同步方式获取API查询数据
objXML.Send() '发送
If objXML.Readystate<>4 Then '状态不为4，错误
Response.Write "{status:0,errCode:100,message:'获取数据出错'}"
Exit Function
End If
'Readystate属性,传回XML文件资料的目前状况,返回值分别有以下：
'0-UNINITIALIZED：XML 对象被产生，但没有任何文件被加载。
'1-LOADING：加载程序进行中，但文件尚未开始解析。
'2-LOADED：部分的文件已经加载且进行解析，但对象模型尚未生效。
'3-INTERACTIVE：仅对已加载的部分文件有效，在此情况下，对象模型是有效但只读的。
'4-COMPLETED：文件已完全加载，代表加载成功。
fopen=objXML.ResponseBody
fopen=BytesToBstr(objXML.ResponseBody)'返回信息，同时用函数定义编码，如果您需要转码请选择
Set objXML=Nothing'关闭
If Err.number<>0 Then
Response.Write "{status:0,errCode:100,message:'获取数据出错'}"
Err.Clear
End If
End Function
'页面编码转换
Function BytesToBstr(body)
Dim objstream
Set objstream = Server.CreateObject("Adodb.Stream") '//调用adodb.stream组件
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GBK" '转换原来默认的编码转换成GB2312编码，否则直接用XMLHTTP调用有中文字符的网页得到的将是乱码
BytesToBstr = objstream.ReadText
objstream.Close
Set objstream = Nothing
End Function
'输入查询结果
Response.Write ResponseTxt
%>
您可能感兴趣的文章: