简单json对象for asp

正在做一个asp+jquery的网上答疑系统

今天放在学校的服务器上测试了一下

结果一直有问题，但是什么错都不报

整了半天原来是编码问题，文件是utf-8的编码

改成gb2312就好了

但是asp生成json的时候提示

Microsoft VBScript 运行时错误 错误 '800a01ad' 

ActiveX 部件不能创建对象: 'Scripting.Dictionary' 

服务器又没办法改，只能改代码

幸运的是网上的高手还是多

在一个博客http://feiyu.asgard.cn/article_73.html

我找个了简单json对象for asp

改了一下就可以用了

不过需要转换编码

下面是我找的一个简单json对象for asp

< Script language = " VBScript "  runat = " Server " >
' ===========================================================
' \ <Assembly>
' \    <Name>Json</Name>
' \     <Version>1.0.11.6</Version>
' \     <Classes>
' \         <Class value="simpleJson">
' \             <Description>操作简单json对象</Description>
' \         </Class>
' \     </Classes>
' \ </Assembly>
' ===========================================================
     ' json 的 string对象，内部类，用户不必自己操作
    CLASS jsonString
         PRIVATE  p_str
        
         PUBLIC   SUB  Class_Initialize()
            p_str = ""
         END SUB
    
         PUBLIC   SUB  Class_Terminate()
            p_str = NULL
         END SUB
        
         PUBLIC   PROPERTY   LET  v(value)
            p_str = value
         END PROPERTY
        
         PUBLIC   PROPERTY   GET  v
            v = p_str
         END PROPERTY
        
         PUBLIC   FUNCTION  parseString()
             IF   isNull (p_str)  THEN
                parseString = " null "
             ELSE
                parseString = " ' " + p_str + " ' "     
             END   IF
         END FUNCTION
        
     END  CLASS
    
     ' json 的 Number对象，内部类，用户不必自己操作
    CLASS jsonNumber
         PRIVATE  p_number
        
         PUBLIC   SUB  Class_Initialize()
            p_number = NULL
         END SUB
    
         PUBLIC   SUB  Class_Terminate()
            p_number = NULL
         END SUB
        
         PUBLIC   PROPERTY   LET  v(value)
            p_number = value
         END PROPERTY
        
         PUBLIC   PROPERTY   GET  v
            v = p_number
         END PROPERTY
        
         PUBLIC   FUNCTION  parseString()
             IF   isNull (p_number)  THEN
                parseString = " null "
             ELSE
                parseString = Cstr (p_number)
             END   IF
         END FUNCTION
     END  CLASS
    
     ' json 的 value对象，包括自动创建string对象，number对象，true，false，null
    CLASS jsonValue
         PRIVATE  p_val
        
         PUBLIC   SUB  Class_Initialize()
            p_val = NULL
         END SUB
    
         PUBLIC   SUB  Class_Terminate()
            p_val = NULL
         END SUB
        
         ' 给value对象赋值，参数可以是string类型，number类型，boolean类型和null，除外，将全部转化为string类型
         PUBLIC   PROPERTY   LET  v(value)
             DIM  jStr,jNum
             IF   varType (value) = vbBoolean  OR   varType (value) = vbNull  THEN
                p_val = value
             ELSEIF   varType (value) = vbString  THEN
                 SET  jStr = NEW  jsonString
                jStr.v = value
                 SET  p_val = jStr
                 SET  jStr = NOTHING
             ELSEIF   isNumeric (value)  THEN
                 SET  jNum = NEW  jsonNumber
                jNum.v = value
                 SET  p_val = jNum
                 SET  jNum = NOTHING
             ELSE
                 SET  jStr = NEW  jsonString
                jStr.v = Cstr (value)
                 SET  p_val = jStr
                 SET  jStr = NOTHING
             END   IF
         END PROPERTY
        
         PUBLIC   PROPERTY   GET  v
             IF   isObject (p_val)  THEN
                 SET  v = p_val
             ELSE
                v = p_val    
             END   IF
         END PROPERTY
        
         ' 对象以合适的形式转换成字符串表示
         PUBLIC   FUNCTION  parseString()
             IF   isNull (p_val)  THEN
                parseString = " null "
             ELSEIF   varType (p_val) = vbBoolean  THEN
                parseString = LCase ( Cstr (p_val))
             ELSE
                parseString = p_val.parseString()
             END   IF
         END FUNCTION
        
     END  CLASS
    
     ' json 的 array对象
    CLASS jsonArray
         PRIVATE  p_array,p_length
        
         PUBLIC   SUB  Class_Initialize()
            p_array = Array ()
            p_length = 0
         END SUB
    
         PUBLIC   SUB  Class_Terminate()
            p_array = NULL
            p_length = 0
         END SUB
        
         ' 动态设置数组长度
         PUBLIC   PROPERTY   LET  length(value)
             IF  value < 0   THEN  value = 0
            p_length = value
             REDIM  Preserve p_array(p_length)
         END PROPERTY
        
         ' 获得数组长度
         PUBLIC   PROPERTY   GET  length()
            length = p_length
         END PROPERTY
        
         ' 设置索引为index的元素
         PUBLIC   PROPERTY   LET  at(index,ByRef value)
             IF  index >= 0   OR  index < p_length  THEN
                 SET  p_array(index) = value
             END   IF
         END PROPERTY         
        
         ' 获得索引为index的元素，如果index超出范围，返回null
         PUBLIC   PROPERTY   GET  at(index)
             IF  index < 0   OR  index >= p_length  THEN
                at = NULL
             ELSE
                 SET  at = p_array(index)
             END   IF
         END PROPERTY
    
         ' 添加value到数组末尾
         PUBLIC   SUB  push(ByRef value)
            p_length = p_length + 1
             REDIM  Preserve p_array(p_length)
             SET  p_array(p_length - 1 ) = value
         END SUB
        
         ' 获得数组末尾元素，并从数组中删除该元素
         PUBLIC   FUNCTION  pop()
             SET  pop = p_array(p_length - 1 )
            p_length = p_length - 1
             REDIM  Preserve p_array(p_length)
         END FUNCTION
        
         ' 添加value到数组头部
         PUBLIC   SUB  unshift(ByRef value)
             DIM  i,jVal
            p_length = p_length + 1
             REDIM  Preserve p_array(p_length)
             FOR  i = p_length - 1   TO   1  STEP  - 1
                 SET  p_array(i) = p_array(i - 1 )
             NEXT
             SET  p_array( 0 ) = value
         END SUB
        
         ' 获得数组头部元素，并从数组中删除该元素
         PUBLIC   FUNCTION  shift()
             DIM  i
             SET  shift = p_array( 0 )
             FOR  i = 0   TO  p_length - 2
                 SET  p_array(i) = p_array(i + 1 )
             NEXT
            p_length = p_length - 1
             REDIM  Preserve p_array(p_length)
         END FUNCTION
        
         ' 翻转数组
         PUBLIC   SUB  reverse()
             DIM  i,temp
             FOR  i = 0   TO   Cint ((p_length - 1 ) / 2 )
                 SET  temp = p_array(i)
                 SET  p_array(i) = p_array(p_length - 1 - i)
                 SET  p_array(p_length - 1 - i) = temp
                 SET  temp = NOTHING
             NEXT
         END SUB
        
         ' 对象以合适的形式转换成字符串表示
         PUBLIC   FUNCTION  parseString()
             DIM  i,str,val
            str = " [_VALUES] "
             FOR  i = 0   TO  p_length - 1
                val = p_array(i).parseString()
                str = Replace (str, " _VALUES " ,val + " ,_VALUES " )
             NEXT
            str = Replace (str, " ,_VALUES " , "" )
            parseString = str
         END FUNCTION
     END  CLASS
    
     ' json 的 object对象
    CLASS jsonObject
         PRIVATE  p_member,p_value,p_length
    
         PUBLIC   SUB  Class_Initialize()
            p_member = Array ()
            p_value = Array ()
            p_length = 0
         END SUB
    
         PUBLIC   SUB  Class_Terminate()
            p_member = NULL
            p_value = NULL
            p_length = 0
         END SUB
        
         ' 检查是否包含指定member，返回该member的顺序索引号，没有返回-1
         PRIVATE   FUNCTION  include(member)
             DIM  i
             FOR  i = p_length - 1   TO   0  STEP  - 1
                 IF  p_member(i) = member  THEN   EXIT   FOR
             NEXT
            include = i
         END FUNCTION
        
         ' 设置member的value对象
         PUBLIC   PROPERTY   SET  member(mem,ByRef value)
             DIM  index,length
            index = include(mem)
             IF  index =- 1   THEN
                p_length = p_length + 1
                 REDIM  Preserve p_member(p_length)
                 REDIM  Preserve p_value(p_length)
                p_member(p_length - 1 ) = mem
                 SET  p_value(p_length - 1 ) = value
             ELSE
                 SET  p_value(index) = value
             END   IF
         END PROPERTY
        
         ' 获得member的value对象
         PUBLIC   PROPERTY   GET  member(mem)
             DIM  index
            index = include(mem)
             IF  index =- 1   THEN
                member = NULL
             ELSE
                 SET  member = p_value(index)
             END   IF
         END PROPERTY
        
         ' 对象以合适的形式转换成字符串表示
         PUBLIC   FUNCTION  parseString()
             DIM  str,i,mem,val
            str = " {_MEMBERS} "
             FOR  i = 0   TO  p_length - 1
                mem = p_member(i)
                val = p_value(i).parseString()
                str = Replace (str, " _MEMBERS " ,mem + " : " + val + " ,_MEMBERS " )
             NEXT
            str = Replace (str, " ,_MEMBERS " , "" )
            parseString = str
         END FUNCTION
    
     END  CLASS
    
     ' 操作简单json for asp的类
    CLASS simpleJson
         PUBLIC   SUB  Class_Initialize()
         END SUB
    
         PUBLIC   SUB  Class_Terminate()
         END SUB
        
         ' 获得 json的object对象新实例
         PUBLIC   FUNCTION  nO()
             SET  nO = NEW  jsonObject
         END FUNCTION
        
         ' 获得 json的array对象新实例
         PUBLIC   FUNCTION  nA()
             SET  nA = NEW  jsonArray
         END FUNCTION
        
         ' 获得 json的value对象新实例
         PUBLIC   FUNCTION  nV(value)
             DIM  jVal
             SET  jVal = NEW  jsonValue
            jVal.v = value
             SET  nV = jVal
         END FUNCTION
        
         ' 绑定数据数据，转换成简单json对象，第一个参