写此类的原因是因为个人所写的"模版类".,因为很多免费的个人主页空间(因为阿拉穷啊,没钱买空间啊=.=)都不提供FSO.所以导致Scripting.Dictionary也不能使用,所以那"模版类"就不能运行了.于是就有了自己写一个"字典类"的念头.

此类同Scripting.Dictionary对象的使用没有任何的区别,所以以前是根据Scripting.Dictionary来写的程序,不用怎样的修改就可以使用到此类上.此类并且还比Scripting.Dictionary多了一个Insert方法:Insert(sKey,nKey,nval,nMethod),此方法是将新字典数据插入到存在的以sKey为Key的字典位置.nKey,nVal是新字典数据的Key值和Value值.nMethod则是插入的位置.如果此值为1,"b","black"或空值,则是插入到以sKey为Key的字典数据后面,否则前面.

代码如下:

'/*====================字典对象类============================================'/*作者:死在水中的鱼'/*日期:2004年7月14日.晚'/*Blog:http://blog.lznews.cn/blog.asp?name=哇哇鱼'/*版本:1.00  '/*用法:'/*Dim objDic,sKey,I,sValue'/*Set objDic=New DictionaryClass'/*Add方法:Add(字典的Key值,字典数据)    说明:如果"字典的Key值"已存在则Add方法失败'/*objDic.Add "a","字母a"       'Add方法'/*objDic.Add "b","字母b"     '/*objDic.Add "c","字母c"'/*'Insert方法:Insert(被插入位置的Key值,新的字典Key值,新的字典数据,插入方式:b后面,f前面)'/*objDic.Insert "a","aa","字母aa","b"    '/*objDic.Insert "b","bb","字母bb","f"'/*'Exists方法,返回是否存在以"b"为Key值的字典数据'/*Response.Write objDic.Exists("b")'/*sKey=objDic.Keys             '获取Keys集合,(数组集合)'/*sValue=objDic.Items          '获取字典数据集合(数组集合)'/*objDic.Item("a")="aaaaaa"    'Item属性方法:返回或设置对应Key的字典数据'/*For I=0 To objDic.Count-1    'Count属性返回有多少条字典数据'/*    'Item属性方法:返回或设置对应Key的字典数据'/*    Response.Write objDic.Item(sKey(I))&"<br>"'/*Next'/*Remove方法:Remove(字典的Key值)'/*objDic.Remove("a")           '删除Key值为a的字典数据'/*objDic.RemoveAll             '清空字典数据'/*objDic.ErrCode               '返回操作字典时的一些错误代码(调试时用)'/*objDic.ClearErr              '清空错误代码(调试时用)'/*Set objDic=nothing'/*说明:'/*"字典的Key值":除了Add方法外,都可以用字符串或序数(1,2..)使用'/* 转载时或修改时,请尊重作者的知识产权,保留此说明!'/*==========================================================================Class DictionaryClassDim ArryObj()        '使用该二维数组来做存放数据的字典Dim MaxIndex          'MaxIndex则是ArryObj开始的最大上标Dim CurIndex          '字典指针,用来指向ArryObj的指针Dim C_ErrCode           '错误代码号