(Classic ASP) Serialize / Deserialize Hashtable to/from XML

Demonstrates how to seralize / deserialize a Hashtable to/from XML.

Note: This example requires Chilkat v9.5.0.64 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>
<%
' Note: This example requires Chilkat v9.5.0.64 or later.

' Add some entries to a hashtable.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Hashtable")
set hashTab = Server.CreateObject("Chilkat.Hashtable")

success = hashTab.AddStr("aaa","111")
success = hashTab.AddStr("bbb","222")
success = hashTab.AddStr("ccc","333")

' Serialize to XML
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sb = Server.CreateObject("Chilkat.StringBuilder")
success = hashTab.ToXmlSb(sb)
Response.Write "<pre>" & Server.HTMLEncode( sb.GetAsString()) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "---") & "</pre>"

' The output is as follows.  Each hash table entry
' is contained in an "e" node.  The entry's key
' is in the "k" node, and the value in the "v" node.

' <?xml version="1.0" encoding="utf8-8"?>
' <hashtable>
' <e><k>aaa</k><v>111</v></e>
' <e><k>bbb</k><v>222</v></e>
' <e><k>ccc</k><v>333</v></e>
' </hashtable>
' 

' Now load (deserialize) into a new hash table.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Hashtable")
set hashTab2 = Server.CreateObject("Chilkat.Hashtable")
success = hashTab2.AddFromXmlSb(sb)

' Get the hash table keys, and lookup each (to show 
' that the hash table was correctly deserialized).
' The GetKeys method can return the keys in any order.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringTable")
set sTable = Server.CreateObject("Chilkat.StringTable")
success = hashTab2.GetKeys(sTable)

i = 0
numKeys = sTable.Count
Do While i < numKeys
    key = sTable.StringAt(i)
    Response.Write "<pre>" & Server.HTMLEncode( key & ": " & hashTab2.LookupStr(key)) & "</pre>"
    i = i + 1
Loop

%>
</body>
</html>