HTTP Session with Cookies

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

How to keep a session with cookies. Demonstrates how to login to WordPress.

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set req = Server.CreateObject("Chilkat_9_5_0.HttpRequest")
set http = Server.CreateObject("Chilkat_9_5_0.Http")

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Response.Write Server.HtmlEncode(http.LastErrorText) & "<br>"

End If

'  This example will demonstrate maintaining a session with
'  cookies by doing a simple login to a WordPress blog.
'  Indicate that cookies are to be saved and re-sent.
'  Instead of using a cookie file, you may use the string "memory"
'  to save cookies to memory.
http.CookieDir = "memory"
http.SendCookies = 1
http.SaveCookies = 1

'  Let's first hit the chilkat.wordpress.com login page to make sure
'  we have any initial cookies...

html = http.QuickGetStr("http://chilkat.wordpress.com/wp-login.php")
If (html = vbNullString ) Then
    Response.Write Server.HtmlEncode(http.LastErrorText) & "<br>"

End If

'  Build an HTTP POST request to login
req.UsePost 
req.Path = "/wp-login.php"
req.AddParam "log","chilkat"
req.AddParam "pwd","myPassword"
req.AddParam "rememberme","forever"
req.AddParam "wp-submit","Login"
req.AddParam "redirect_to","/wp-admin/"

req.AddHeader "Referer","http://chilkat.wordpress.com/wp-login.php"

'  Send the HTTP POST and get the response.  Note: This is a blocking call.
'  The method does not return until the full HTTP response is received.

domain = "chilkat.wordpress.com"
port = 80
ssl = 0

Set resp = http.SynchronousRequest(domain,port,ssl,req)
If (resp Is Nothing ) Then
    Response.Write Server.HtmlEncode(http.LastErrorText) & "<br>"

End If

'  Is this a 302 redirect?
If (resp.StatusCode = 302) Then

    '  Get the redirect URL:

    redirectUrl = resp.GetHeaderField("Location")

    html = http.QuickGetStr(redirectUrl)
    If (html = vbNullString ) Then
        Response.Write Server.HtmlEncode(http.LastErrorText) & "<br>"
    Else
        Response.Write Server.HtmlEncode(html) & "<br>"
    End If

Else
    Response.Write Server.HtmlEncode(resp.BodyStr) & "<br>"
End If

%>
</body>
</html>