圆通快递订单创建接口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"'物流单号，打