|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Classic ASP) Populi Add Financial Aid DisbursementDemonstrates the Populi addFinancialAidDisbursement task.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' First load the previously obtained API token. ' See Get Populi Access Token for sample code showing how to get the API token. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml") set xml = Server.CreateObject("Chilkat.Xml") success = xml.LoadXmlFile("qa_data/tokens/populi_token.xml") accessKey = xml.GetChildContent("access_key") If (xml.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( "Did not find the access_key") & "</pre>" Response.End End If ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Rest") set rest = Server.CreateObject("Chilkat.Rest") ' Connect using TLS. ' A single REST object, once connected, can be used for many Populi REST API calls. ' The auto-reconnect indicates that if the already-established HTTPS connection is closed, ' then it will be automatically re-established as needed. bAutoReconnect = 1 success = rest.Connect("yourcollege.populi.co",443,1,bAutoReconnect) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If rest.Authorization = accessKey success = rest.AddQueryParam("task","addFinancialAidDisbursement") success = rest.AddQueryParam("person_id","12345678") success = rest.AddQueryParam("award_id","555555") success = rest.AddQueryParam("academic_term_id","123") success = rest.AddQueryParam("scheduled_date","2019-10-10") success = rest.AddQueryParam("amount","12345") responseBody = rest.FullRequestFormUrlEncoded("POST","/api/index.php") If (rest.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If ' We should expect a 200 response if successful. If (rest.ResponseStatusCode <> 200) Then Response.Write "<pre>" & Server.HTMLEncode( "Request Header: ") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( rest.LastRequestHeader) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response StatusCode = " & rest.ResponseStatusCode) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response StatusLine: " & rest.ResponseStatusText) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response Header:") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( rest.ResponseHeader) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response Body:") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( responseBody) & "</pre>" Response.End End If success = xml.LoadXml(responseBody) Response.Write "<pre>" & Server.HTMLEncode( xml.GetXml()) & "</pre>" ' Sample response: ' Use this online tool to generate parsing code from sample XML: ' Generate Parsing Code from XML ' <?xml version="1.0" encoding="UTF-8"?> ' <result> ' <disbursement>123456</disbursement> ' </result> disbursement = xml.GetChildIntValue("disbursement") %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.