(Classic ASP) HTTPS Requests over Squid Proxy Direct TLS Connection

Demonstrates how to send HTTP requests through an HTTP proxy that supports Direct TLS Connections. (Chilkat tests with a squid 4.11 proxy.)

A direct TLS connection to an HTTP proxy is where the initial connection to the proxy server is TLS.

Note: This example requires Chilkat v9.5.0.83 or greater.

For more information, see https://wiki.squid-cache.org/Features/HTTPS#Direct_TLS_connection

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<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")

' Set the HTTP proxy domain or IP address.
http.ProxyDomain = "172.16.16.46"
' The proxy port..
http.ProxyPort = 3128

' Indicate that we are to use a direct TLS connection with the HTTP proxy
' (we use a Squid Cache: Version 4.11 for testing)
http.ProxyDirectTls = 1

' If the proxy requires a login or password, we can set it here.
' Otherwise comment out these lines.
http.ProxyLogin = "myProxyLogin"
http.ProxyPassword = "myProxyPassword"

' All requests sent on the http object will now go through the proxy.
' Give it a test:
s = http.QuickGetStr("https://www.chilkatsoft.com/helloWorld.html")
If (http.LastMethodSuccess = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Response.End
End If

' The LastErrorText property also contains information when method call succeeds.
' Have a look to see that the request was sent through the proxy:
Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"

Response.Write "<pre>" & Server.HTMLEncode( "---") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( s) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "---") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Success for TLS destination over direct TLS HTTP proxy.") & "</pre>"

%>
</body>
</html>