(编辑:jimmy 日期: 2024/11/6 浏览:2)
如有转载,请标明来自此出处http://blog.csdn.net/qxs965266509,必须注意!
爱查快递API使用说明文档API地址:
以前:http://api.ickd.cn/"100" scope="col"> 字段
<script language="javascript"> <"http://www.ickd.cn/api/reg.html">http://www.ickd.cn/api/reg.html申请 $url='http://api.ickd.cn/"var data='",$data,"'"; "520px" cellspacing="0" cellpadding="0" border="0" style="border-collapse: collapse; border-spacing: 0pt;">'; html+='<tr>'; html+='<td width="163" style="background-color:#e6f9fa;border:1px solid #75c2ef;font-size:14px;font-weight:bold;height:20px;text-indent:15px;">'; html+='时间'; html+='</td>'; html+='<td width="354" style="background-color:#e6f9fa;border:1px solid #75c2ef;font-size:14px;font-weight:bold;height:20px;text-indent:15px;">'; html+='地点和跟踪进度'; html+='</td>'; html+='</tr>'; //输出data的子对象变量 $.each(dataObj.data,function(idx,item){ html+='<tr>'; html+='<td width="163" style="border:1px solid #dddddd;font-size: 12px;line-height:22px;padding:3px 5px;">'; html+=item.time;// 每条数据的时间 html+='</td>'; html+='<td width="354" style="border:1px solid #dddddd;font-size: 12px;line-height:22px;padding:3px 5px;">'; html+=item.context;// 每条数据的状态 html+='</td>'; html+='</tr>'; }); html+='</table>'; }else{ //查询不到 html+='<span style="color:#f00">Sorry! '+dataObj.message+'</span>'; } html+='</td></tr>'; $("#shipping_detail").append(html);});</script>
若服务器禁用了file_get_contents和fsockopen等函数,可使用CURL类,示例如下:
<"gb2312"
Server.ScriptTimeout = 999999999Dim Retrieval
Dim url,nu,com
com = Request("com")'公司
nu = Request("nu")'单号Dim AppKey,SendURL,ResponseTxt
AppKey = "xxxxxxxxxx" '请将XXXXXX替换成您在http://www.ickd.cn/reg.html申请到的KEY
SendURL ="http://api.ickd.cn/"&AppKey&"&com="&com&"&nu="&nu&"&type=json&encode=GBK"'如果使用UTF8,请确保encode=utf8
'Response.Write SendURL'发送数据
ResponseTxt=fopen(SendURL) '//获取源代码的函数
'调用发送数据组件
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
%>