(Classic ASP) Fetch Web Pages from Local Cache

Demonstrates how to keep a local cache to avoid re-fetching web pages.

Note: This example requires Chilkat v9.5.0.91 or later.

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

' Define a cache directory and set the number of levels based on the anticipated size of the cache.
http.AddCacheRoot "c:/AAWorkarea/httpCache/"

' up to 256 sub-directories under the cache root will be created as needed to hold cached GET's.
http.NumCacheLevels = 1

' Tell the http object to fetch from the cache if possible.
http.FetchFromCache = 1

' Also tell the http object to update the cache with newly fetched pages.
http.UpdateCache = 1

' This HTTP GET should result in a cache file getting created.
html = http.QuickGetStr("https://www.google.com/")
If (http.LastMethodSuccess = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Response.End
End If

' The 1st GET was not from cache:
Response.Write "<pre>" & Server.HTMLEncode( "Fetched from cache: " & http.LastFromCache) & "</pre>"

' Fetching again will cause the page to be delivered from our local cache.
html = http.QuickGetStr("https://www.google.com/")
If (http.LastMethodSuccess = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Response.End
End If

' The 2nd GET is from cache:
Response.Write "<pre>" & Server.HTMLEncode( "Fetched from cache: " & http.LastFromCache) & "</pre>"

%>
</body>
</html>