|
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) SOAP Request to fseservicetest.sanita.finanze.it with Smart Card Authentication (TS-CNS Italian Card)Demonstrates sending a SOAP request to fseservicetest.sanita.finanze.it with Smart Card (TS-CNS Italian Card).
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http") set http = Server.CreateObject("Chilkat.Http") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml") set xml = Server.CreateObject("Chilkat.Xml") success = 0 ' -------------------------------------------------------------------------------- ' Also see Chilkat's Online WSDL Code Generator ' to generate code and SOAP Request and Response XML for each operation in a WSDL. ' -------------------------------------------------------------------------------- ' Create the SOAP envelope... xml.Tag = "soapenv:Envelope" success = xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/") success = xml.AddAttribute("xmlns:stat","http://statoconsensirichiesta.xsd.fse.ini.finanze.it") success = xml.AddAttribute("xmlns:tip","http://tipodatistatoconsensi.xsd.fse.ini.finanze.it") xml.UpdateChildContent "soapenv:Header","" xml.UpdateChildContent "soapenv:Body|stat:StatoConsensiRichiesta|stat:IdentificativoUtente","XXXXXXAAABBBCCC" xml.UpdateChildContent "soapenv:Body|stat:StatoConsensiRichiesta|stat:pinCode","..." xml.UpdateChildContent "soapenv:Body|stat:StatoConsensiRichiesta|stat:IdentificativoOrganizzazione","999" xml.UpdateChildContent "soapenv:Body|stat:StatoConsensiRichiesta|stat:StrutturaUtente","123456789" xml.UpdateChildContent "soapenv:Body|stat:StatoConsensiRichiesta|stat:RuoloUtente","ZZZ" xml.UpdateChildContent "soapenv:Body|stat:StatoConsensiRichiesta|stat:ContestoOperativo","" xml.UpdateChildContent "soapenv:Body|stat:StatoConsensiRichiesta|stat:IdentificativoAssistitoGenitoreTutore","" xml.UpdateChildContent "soapenv:Body|stat:StatoConsensiRichiesta|stat:PresaInCarico","true" xml.UpdateChildContent "soapenv:Body|stat:StatoConsensiRichiesta|stat:TipoAttivita","READ" xml.UpdateChildContent "soapenv:Body|stat:StatoConsensiRichiesta|stat:IdentificativoAssistitoConsenso","ABCDEFGHIJKLM" soapEnvelope = xml.GetXml() domain = "fseservicetest.sanita.finanze.it" path = "/FseInsServicesWeb/services/fseStatoConsensi" ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.HttpRequest") set req = Server.CreateObject("Chilkat.HttpRequest") req.HttpVerb = "POST" req.SendCharset = 0 req.AddHeader "Content-Type","application/soap+xml; charset=utf-8" req.Path = path success = req.LoadBodyFromString(soapEnvelope,"utf-8") ' Load the default certificate from the smartcard currently in the reader. ' (This assumes only one reader with one smartcard containing one certificate. ' If the situation is more complex, you can do it with Chilkat, but it requires ' using the Chilkat certificate store object to get the desired certificate ' from the desired smart card.) ' ' Note: This is for Windows-only. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Cert") set cert = Server.CreateObject("Chilkat.Cert") success = cert.LoadFromSmartcard("") If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( cert.LastErrorText) & "</pre>" Response.End End If ' Tell the Chilkat HTTP object to use the certificate for client authentication. success = http.SetSslClientCert(cert) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If http.TlsVersion = "TLS 1.1" ' resp is a Chilkat.HttpResponse Set resp = http.SynchronousRequest(domain,443,1,req) If (http.LastMethodSuccess = 0) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml") set xmlResp = Server.CreateObject("Chilkat.Xml") success = xmlResp.LoadXml(resp.BodyStr) Response.Write "<pre>" & Server.HTMLEncode( xmlResp.GetXml()) & "</pre>" %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.