Classic ASP
Classic ASP
UPS Tracking API
See more HTTP Misc Examples
Demonstrates making a call to the UPS tracking REST API. Parses the tracking response and extracts the base64 signature image to a gif file.Chilkat Classic ASP Downloads
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
set http = Server.CreateObject("Chilkat.Http")
' This is the testing endpoint for the tracking API:
url = "https://wwwcie.ups.com/rest/Track"
' Send an HTTP request with the following JSON body:
' {
' "UPSSecurity": {
' "UsernameToken": {
' "Username": "Your Username",
' "Password": "Your Password"
' },
' "ServiceAccessToken": {
' "AccessLicenseNumber": "Your Access License Number"
' }
' },
' "TrackRequest": {
' "Request": {
' "RequestOption": "1",
' "TransactionReference": {
' "CustomerContext": "Your Test Case Summary Description"
' }
' },
' "InquiryNumber": "YourTrackingNumber"
' }
' }
'
' Build the above JSON.
set json = Server.CreateObject("Chilkat.JsonObject")
success = json.UpdateString("UPSSecurity.UsernameToken.Username","UPS_USERNAME")
success = json.UpdateString("UPSSecurity.UsernameToken.Password","UPS_PASSWORD")
success = json.UpdateString("UPSSecurity.ServiceAccessToken.AccessLicenseNumber","UPS_ACCESS_KEY")
' Request all activity...
success = json.UpdateString("TrackRequest.Request.RequestOption","activity")
success = json.UpdateString("TrackRequest.Request.TransactionReference.CustomerContext","Your Test Case Summary Description")
success = json.UpdateString("TrackRequest.InquiryNumber","1Z12345E0205271688")
set sb = Server.CreateObject("Chilkat.StringBuilder")
set resp = Server.CreateObject("Chilkat.HttpResponse")
success = http.HttpJson("POST",url,json,"application/json",resp)
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
Response.End
End If
Response.Write "<pre>" & Server.HTMLEncode( "status = " & resp.StatusCode) & "</pre>"
' A 200 response status indicate success.
If (resp.StatusCode <> 200) Then
Response.Write "<pre>" & Server.HTMLEncode( resp.BodyStr) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Failed.") & "</pre>"
Response.End
End If
success = json.Load(resp.BodyStr)
json.EmitCompact = 0
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"
' {
' "TrackResponse": {
' "Response": {
' "ResponseStatus": {
' "Code": "1",
' "Description": "Success"
' },
' "TransactionReference": {
' "CustomerContext": "Your Test Case Summary Description"
' }
' },
' "Shipment": {
' "InquiryNumber": {
' "Code": "01",
' "Description": "ShipmentIdentificationNumber",
' "Value": "1Z12345E0205271688"
' },
' "ShipmentType": {
' "Code": "01",
' "Description": "Small Package"
' },
' "ShipperNumber": "12345E",
' "Service": {
' "Code": "002",
' "Description": "2ND DAY AIR"
' },
' "ReferenceNumber": {
' "Code": "01",
' "Value": "LINE4AND115"
' },
' "PickupDate": "19990608",
' "Package": {
' "TrackingNumber": "1Z12345E0205271688",
' "Activity": [
' {
' "ActivityLocation": {
' "Address": {
' "City": "ANYTOWN",
' "StateProvinceCode": "GA",
'
' "PostalCode": "30340",
' "CountryCode": "US"
' },
' "Code": "ML",
' "Description": "BACK DOOR",
' "SignedForByName": "JOHN DOE"
' },
' "Status": {
' "Type": "D",
' "Description": "DELIVERED",
' "Code": "KM"
' },
' "Date": "19990610",
' "Time": "120000",
' "Document": {
' "Type": {
' "Code": "01",
' "Description": "Signature Image"
' },
' "Content": "R0lGODdhoA ... JU9Y8RdHsRKLMVJ4MVDMREAAADs=",
' "Format": {
' "Code": "01",
' "Description": "GIF"
' }
' }
' },
' {
' "Status": {
' "Type": "M",
' "Description": "BILLING INFORMATION RECEIVED. SHIPMENT DATE PENDING.",
' "Code": "MP"
' },
' "Date": "19990608",
' "Time": "120000"
' }
' ],
' "PackageWeight": {
' "UnitOfMeasurement": {
' "Code": "LBS"
' },
' "Weight": "5.00"
' },
' "ReferenceNumber": [
' {
' "Code": "01",
' "Value": "LINE4AND115"
' },
' {
' "Code": "08",
' "Value": "LJ67Y5"
' }
' ]
' }
' },
' "Disclaimer": "You are using UPS tracking service on customer integration test environment, please switch to UPS production environment once you finish the test. The URL is https://onlinetools.ups.com/webservices/Track"
' }
' }
' Use the online tool at Generate JSON Parsing Code
' to generate JSON parsing code.
statusCode = json.StringOf("TrackResponse.Response.ResponseStatus.Code")
statusDescription = json.StringOf("TrackResponse.Response.ResponseStatus.Description")
Response.Write "<pre>" & Server.HTMLEncode( "statusCode: " & statusCode) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "statusDescription" & statusDescription) & "</pre>"
customerContext = json.StringOf("TrackResponse.Response.TransactionReference.CustomerContext")
inquiryNumberCode = json.StringOf("TrackResponse.Shipment.InquiryNumber.Code")
inquiryNumberDescription = json.StringOf("TrackResponse.Shipment.InquiryNumber.Description")
inquiryNumberValue = json.StringOf("TrackResponse.Shipment.InquiryNumber.Value")
shipmentTypeCode = json.StringOf("TrackResponse.Shipment.ShipmentType.Code")
shipmentTypeDescription = json.StringOf("TrackResponse.Shipment.ShipmentType.Description")
shipperNumber = json.StringOf("TrackResponse.Shipment.ShipperNumber")
serviceCode = json.StringOf("TrackResponse.Shipment.Service.Code")
serviceDescription = json.StringOf("TrackResponse.Shipment.Service.Description")
referenceNumberCode = json.StringOf("TrackResponse.Shipment.ReferenceNumber.Code")
referenceNumberValue = json.StringOf("TrackResponse.Shipment.ReferenceNumber.Value")
pickupDate = json.StringOf("TrackResponse.Shipment.PickupDate")
trackingNumber = json.StringOf("TrackResponse.Shipment.Package.TrackingNumber")
unitOfMeasurementCode = json.StringOf("TrackResponse.Shipment.Package.PackageWeight.UnitOfMeasurement.Code")
weight = json.StringOf("TrackResponse.Shipment.Package.PackageWeight.Weight")
disclaimer = json.StringOf("TrackResponse.Disclaimer")
i = 0
activityCount = json.SizeOfArray("TrackResponse.Shipment.Package.Activity")
Response.Write "<pre>" & Server.HTMLEncode( "activityCount: " & activityCount) & "</pre>"
Do While i < activityCount
Response.Write "<pre>" & Server.HTMLEncode( "-- activity " & i) & "</pre>"
json.I = i
If (json.HasMember("TrackResponse.Shipment.Package.Activity[i].ActivityLocation.Address.City") = 1) Then
city = json.StringOf("TrackResponse.Shipment.Package.Activity[i].ActivityLocation.Address.City")
Response.Write "<pre>" & Server.HTMLEncode( "city: " & city) & "</pre>"
provinceCode = json.StringOf("TrackResponse.Shipment.Package.Activity[i].ActivityLocation.Address.StateProvinceCode")
postalCode = json.StringOf("TrackResponse.Shipment.Package.Activity[i].ActivityLocation.Address.PostalCode")
countryCode = json.StringOf("TrackResponse.Shipment.Package.Activity[i].ActivityLocation.Address.CountryCode")
End If
locationCode = json.StringOf("TrackResponse.Shipment.Package.Activity[i].ActivityLocation.Code")
locationDescription = json.StringOf("TrackResponse.Shipment.Package.Activity[i].ActivityLocation.Description")
locationSignedForByName = json.StringOf("TrackResponse.Shipment.Package.Activity[i].ActivityLocation.SignedForByName")
activityStatusType = json.StringOf("TrackResponse.Shipment.Package.Activity[i].Status.Type")
Response.Write "<pre>" & Server.HTMLEncode( "activityStatusType: " & activityStatusType) & "</pre>"
activityStatusDescription = json.StringOf("TrackResponse.Shipment.Package.Activity[i].Status.Description")
Response.Write "<pre>" & Server.HTMLEncode( "activityStatusDescription: " & activityStatusDescription) & "</pre>"
activityStatusCode = json.StringOf("TrackResponse.Shipment.Package.Activity[i].Status.Code")
Response.Write "<pre>" & Server.HTMLEncode( "activityStatusCode: " & activityStatusCode) & "</pre>"
activityDate = json.StringOf("TrackResponse.Shipment.Package.Activity[i].Date")
activityTime = json.StringOf("TrackResponse.Shipment.Package.Activity[i].Time")
If (json.HasMember("TrackResponse.Shipment.Package.Activity[i].Document") = 1) Then
typeCode = json.IntOf("TrackResponse.Shipment.Package.Activity[i].Document.Type.Code")
typeDescription = json.StringOf("TrackResponse.Shipment.Package.Activity[i].Document.Type.Description")
documentContent = json.StringOf("TrackResponse.Shipment.Package.Activity[i].Document.Content")
documentFormatCode = json.StringOf("TrackResponse.Shipment.Package.Activity[i].Document.Format.Code")
' Format description would be something like "GIF" for a signature image.
documentFormatDescription = json.StringOf("TrackResponse.Shipment.Package.Activity[i].Document.Format.Description")
' 01 - Signature Image
' 02 - Delivery Receipt
' 03 - Free Astray
' 04 - POD
If (typeCode = 1) Then
' We have a signature image. Get the image data and save to a file.
set sbImagePath = Server.CreateObject("Chilkat.StringBuilder")
success = sbImagePath.Append("qa_output/sig_")
success = sbImagePath.Append(trackingNumber)
success = sbImagePath.Append(".")
success = sbImagePath.Append(documentFormatDescription)
set imageData = Server.CreateObject("Chilkat.BinData")
success = imageData.AppendEncoded(documentContent,"base64")
' Write to "qa_output/sig_1Z12345E0205271688.GIF"
success = imageData.WriteFile(sbImagePath.GetAsString())
End If
End If
i = i + 1
Loop
i = 0
refnumCount = json.SizeOfArray("TrackResponse.Shipment.Package.ReferenceNumber")
Do While i < refnumCount
json.I = i
refnumCode = json.StringOf("TrackResponse.Shipment.Package.ReferenceNumber[i].Code")
refnumValue = json.StringOf("TrackResponse.Shipment.Package.ReferenceNumber[i].Value")
i = i + 1
Loop
Response.Write "<pre>" & Server.HTMLEncode( "Success.") & "</pre>"
%>
</body>
</html>