Download Web Page to MHT with w/ Disk Cache

Downloads a web page into a .mht web archive. Embedded images and style sheets are loaded and/or saved to a disk cache.

Download Chilkat MHT ActiveX

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set mht = Server.CreateObject("Chilkat.Mht")

success = mht.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( mht.LastErrorText) & "</pre>"

End If

'  Use a single directory to hold cached files.
'  (Make sure it is a directory your app has permission to create files.)
mht.NumCacheLevels = 0
mht.AddCacheRoot "/Users/chilkat/temp/mhtCache/"

'  Tell the MHT component to save files to cache,
'  and to retrieve from cache if possible:
mht.FetchFromCache = 1
mht.UpdateCache = 1

'  The 1st time this is run, the parts (image files,
'  style sheets, etc.) will be saved to the disk cache.
'  The 2nd time this is run, the parts will load from cache.
'  Note: The main content (i.e. the HTML page)
'  is not saved to cache, nor is it retrieved from cache.
'  It is only the sub-parts (embedded images, style sheets)
'  that are saved to and loaded from cache.
success = mht.GetAndSaveMHT("http://www.intel.com/","intel.mht")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( mht.LastErrorText) & "</pre>"
Else
    Response.Write "<pre>" & Server.HTMLEncode("MHT Created!") & "</pre>"
End If


%>
</body>
</html>