01.
<%
Option
Explicit %>
02.
<html>
03.
<head>
04.
<title>ThaiCreate.Com ASP Dictionary
Object
</title>
05.
</head>
06.
<body>
07.
<%
08.
Dim
strObjDic,List
09.
Set
strObjDic = Server.CreateObject(
"Scripting.Dictionary"
)
10.
11.
strObjDic.Add
"re"
,
"Red"
12.
strObjDic.Add
"gr"
,
"Green"
13.
strObjDic.Add
"bl"
,
"Blue"
14.
strObjDic.Add
"pi"
,
"Pink"
15.
16.
Set
Session(
"strObjectDic"
) = strObjDic
17.
18.
Response.write(
"Dictionary Created<br>"
)
19.
Response.write(
"Click <a href=ASPDictionarySession.asp>here</a> to view data<br>"
)
20.
21.
Set
strObjDic =
Nothing
22.
%>
23.
</body>
24.
</html>