json对象for asp

< Scriptlanguage = " VBScript " runat = " Server " >
' ===========================================================
' /<Assembly>
' /<Name>Json</Name>
' /<Version>1.0.11.6</Version>
' /<Classes>
' /<Classvalue="simpleJson">
' /<Description>操作简单json对象</Description>
' /</Class>
' /</Classes>
' /</Assembly>
' ===========================================================
' json的string对象，内部类，用户不必自己操作
CLASSjsonString
PRIVATE p_str

PUBLIC SUB Class_Initialize()
p_str = ""
ENDSUB

PUBLIC SUB Class_Terminate()
p_str = NULL
ENDSUB

PUBLIC PROPERTY LET v(value)
p_str = value
ENDPROPERTY

PUBLIC PROPERTY GET v
v = p_str
ENDPROPERTY

PUBLIC FUNCTION parseString()
IF isNull (p_str) THEN
parseString = " null "
ELSE
parseString = " ' " + p_str + " ' "
END IF
ENDFUNCTION

END CLASS

' json的Number对象，内部类，用户不必自己操作
CLASSjsonNumber
PRIVATE p_number

PUBLIC SUB Class_Initialize()
p_number = NULL
ENDSUB

PUBLIC SUB Class_Terminate()
p_number = NULL
ENDSUB

PUBLIC PROPERTY LET v(value)
p_number = value
ENDPROPERTY

PUBLIC PROPERTY GET v
v = p_number
ENDPROPERTY

PUBLIC FUNCTION parseString()
IF isNull (p_number) THEN
parseString = " null "
ELSE
parseString = Cstr (p_number)
END IF
ENDFUNCTION
END CLASS

' json的value对象，包括自动创建string对象，number对象，true，false，null
CLASSjsonValue
PRIVATE p_val

PUBLIC SUB Class_Initialize()
p_val = NULL
ENDSUB

PUBLIC SUB Class_Terminate()
p_val = NULL
ENDSUB

' 给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
ENDPROPERTY

PUBLIC PROPERTY GET v
IF isObject (p_val) THEN
SET v = p_val
ELSE
v = p_val
END IF
ENDPROPERTY

' 对象以合适的形式转换成字符串表示
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
ENDFUNCTION

END CLASS

' json的array对象
CLASSjsonArray
PRIVATE p_array,p_length

PUBLIC SUB Class_Initialize()
p_array = Array ()
p_length = 0
ENDSUB

PUBLIC SUB Class_Terminate()
p_array = NULL
p_length = 0
ENDSUB

' 动态设置数组长度
PUBLIC PROPERTY LET length(value)
IF value < 0 THEN value = 0
p_length = value
REDIM Preservep_array(p_length)
ENDPROPERTY

' 获得数组长度
PUBLIC PROPERTY GET length()
length = p_length
ENDPROPERTY

' 设置索引为index的元素
PUBLIC PROPERTY LET at(index,ByRefvalue)
IF index >= 0 OR index < p_length THEN
SET p_array(index) = value
END IF
ENDPROPERTY

' 获得索引为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
ENDPROPERTY

' 添加value到数组末尾
PUBLIC SUB push(ByRefvalue)
p_length = p_length + 1
REDIM Preservep_array(p_length)
SET p_array(p_length - 1 ) = value
ENDSUB

' 获得数组末尾元素，并从数组中删除该元素
PUBLIC FUNCTION pop()
SET pop = p_array(p_length - 1 )
p_length = p_length - 1
REDIM Preservep_array(p_length)
ENDFUNCTION

' 添加value到数组头部
PUBLIC SUB unshift(ByRefvalue)
DIM i,jVal
p_length = p_length + 1
REDIM Preservep_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
ENDSUB

' 获得数组头部元素，并从数组中删除该元素
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 Preservep_array(p_length)
ENDFUNCTION

' 翻转数组
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
ENDSUB

' 对象以合适的形式转换成字符串表示
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
ENDFUNCTION
END CLASS

' json的object对象
CLASSjsonObject
PRIVATE p_member,p_value,p_length

PUBLIC SUB Class_Initialize()
p_member = Array ()
p_value = Array ()
p_length = 0
ENDSUB

PUBLIC SUB Class_Terminate()
p_member = NULL
p_value = NULL
p_length = 0
ENDSUB

' 检查是否包含指定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
ENDFUNCTION

' 设置member的value对象
PUBLIC PROPERTY SET member(mem,ByRefvalue)
DIM index,length
index = include(mem)
IF index =- 1 THEN
p_length = p_length + 1
REDIM Preservep_member(p_length)
REDIM Preservep_value(p_length)
p_member(p_length - 1 ) = mem
SET p_value(p_length - 1 ) = value
ELSE
SET p_value(index) = value
END IF
ENDPROPERTY

' 获得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
ENDPROPERTY

' 对象以合适的形式转换成字符串表示
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
ENDFUNCTION

END CLASS

' 操作简单jsonforasp的类
CLASSsimpleJson
PUBLIC SUB Class_Initialize()
ENDSUB

PUBLIC SUB Class_Terminate()
ENDSUB

' 获得json的object对象新实例
PUBLIC FUNCTION nO()
SET nO = NEW jsonObject
ENDFUNCTION

' 获得json的array对象新实例
PUBLIC FUNCTION nA()
SET nA = NEW jsonArray
ENDFUNCTION

' 获得json的value对象新实例
PUBLIC FUNCTION nV(value)
DIM jVal
SET jVal = NEW jsonValue
jVal.v = value
SET nV = jVal
ENDFUNCTION

' 绑定数据数据，转换成简单json对象，第一个参数为recordSet对象实例，第二参数为分页大小，不分页设置为null，第三个参数为页号，不分页设置为null
PUBLIC FUNCTION DataBind(rs,pageSize,pageNo)
DIM pageCount,recordCount,field
DIM jObj,jObj_infos,jArr_rows,jObj_row

IF isNull (pageSize) THEN pageSize = 0
IF isNull (pageNo) THEN pageNo = 1

IF NOT isNull (rs) AND NOT isEmpty (rs) THEN
IF pageSize <> 0 THEN
rs.pageSize = pageSize
rs.absolutePage = pageNo
pageCount = rs.pageCount
END IF
recordCount = rs.recordCount
SET jObj = nO()
SET jObj_infos = nO()
SET jObj_infos.member( " recordCount " ) = nV(recordCount)
SET jObj_infos.member( " pageSize " ) = nV(pageSize)
SET jObj_infos.member( " pageNo " ) = nV(pageNo)
SET jObj.member( " infos " ) = jObj_infos
SET jObj_infos = NOTHING
SET jArr_rows = nA()
DO UNTILrs.eof
SET jObj_row = nO()
FOR EACH fieldINrs.fields
SET jObj_row.member(field.name) = nV(field.value)
NEXT
jArr_rows.push(jObj_row)
rs.moveNext()
LOOP
SET jObj.member( " rows " ) = jArr_rows
SET jArr_rows = NOTHING
SET DataBind = jObj
ELSE
DataBind = NULL
END IF
ENDFUNCTION
END CLASS

</ Script >
< ! -- 例子 -->
< %
DIM sJson,jObj,jObj_name,jArr_interest
SET sJson = NEW simpleJson
SET jObj = sJson.nO()
SET jObj_name = sJson.nO()
SET jObj_name.member( " first " ) = sJson.nV( " Terry " )
SET jObj_name.member( " last " ) = sJson.nV( " King " )
SET jObj.member( " name " ) = jObj_name
SET jObj.member( " age " ) = sJson.nV( 22 )
SET jObj.member( " marrieged " ) = sJson.nV( true )
SET jArr_interest = sJson.nA()
jArr_interest.push(sJson.nV( " basketball " ))
jArr_interest.push(sJson.nV( " tvgame " ))
jArr_interest.push(sJson.nV( " girl " ))
SET jObj.member( " interest " ) = jArr_interest
Response.WritejObj.parseString()
% >
< %
DIM r,rs
' 获得记录集rs的操作.....
SET jObj = NEW simpleJson
SET r = jObj.DataBind(rs, NULL , NULL )
Response.Writer.parseString()
% >