圆通快递订单创建接口asp版,面单打印接口asp版,asp圆通快递物流轨迹查询接口

今天接到一个朋友的急call，要帮他写一个圆通快递订单创建接口asp版，因为这位朋友的项目是asp写的，因此只能用asp来写这个接口，不说废话，上代码，有需要的可以参考，对了，我同时写了三个接口，分别是：圆通快递面单打印接口asp版，圆通快递-物流轨迹查询接口，拿走，不谢。

Function PostURL(url,PostStr)

dim http

Set http = Server.CreateObject("Msxml.ServXMLHTTP.6.0") 'Microsoft.HTTP 'Msxml.ServerHTTP

With http

.Send(PostStr)

PostURL = .responstext

End With

Set http = Nothing

End Function

a_url = "https://openuat.yto56test.com:6443/open/privacy_create_adapter/v1/8tR44r/K210001"'这是测试地址

a_sn = "K10001"'客户编码

a_pwd = "2Z1F7"'客户密钥

a_name = "privacy_create_adater"'方法

a_ver = "v2"'版本

logisticsNo = "CBl7AmMx2rP"'物流单号，打印拉取运单号前，物流单号和渠道唯一确定一笔快递物流订单。注：最低长度为7

senderName = "测试1"'寄件人姓名

senderProvinceName = "上海"'寄件人省名称

senderCityName = "上海市"'寄件人市名称

senderCountyName = "青浦区"'寄件人区县名称

senderAddress = "汇金路100号"'寄件人详细地址

senderMobile = "188888888"'寄件人联系电话

recipientName = "测试"'收件人姓名

recipientProvinceName = "重庆"'收件人省名称

recipientCityName = "重庆市"'收件人市名称

recipientCountyName = "万州区"'收件人区县名称

recipientAddress = "汇金路100好"'收件人详细地址

recipientMobile = "138888888"'收件人联系电话

'签名，

timestamp = DateDiff("s",Now)

param = "{""logisticsNo"":"""&logisticsNo&""",""sendeName"":"""&sendeName&""",""sendeProvinceName"":"""&sendeProvinceName&""",""sendeCityName"":"""&senderCityName&""",""senderCountyName"":"""&sendeCountyName&""",""sendeAddress"":"""&senderAddress&""",""sendeMobile"":"""&sendeMobile&""",""recipientName"":"""&recipientName&""",""recipietProviceName"":"""&recpientProvnceName&""",""recipienCityName"":"""&recipienCityName&""",""recipientCounyName"":"""&recipientCountyName&""",""recipienAddress"":"""&recipienAddress&""",""recipentMobile"":"""&recipientMobile&"""}"

data = param&a_name&a_ver

sign = MD5(data,"base64")

'response.Write(sign)

'response.End()

json="""timestamp"":"""&timestamp&""",""param"":"""&param&""",""sign"":"""&sign&""",""format"":""JSON"""

'response.Write(json)

'response.End()

res = PostURL(a_url,json)

'response.Write(res)

'response.End()

set obj = getjson(res)

if isobject(obj) Then

response.Write(obj.logisticsNo&" ")

response.Write(obj.mailNo&" ")

response.Write(obj.shortAddress&" <hr>")

For i = 0 To obj.secretWaybills.length-1

response.Write(obj.secretWaybills.get(i).name)&" "

response.Write(obj.secretWaybills.get(i).value)&" <hr>"

end if

set obj = Nothing