<%
'本代码由 常州红金羚软件技术有限公司 创建
'创建时间:2016-10-15 15:27:17
'联系信息:手机：400-6655-868 QQ：15916190
'请勿修改下列任何代码,以保证程序正常运行

Dim YSYSSS,YSYSSY,YSYSYS,YSYSYY,YSYYSS
Set YSYSYS=Response:Set YSYSSY=Request:Set YSYYSS=Session:Set YSYSSS=Application:Set YSYSYY=Server
Const JSON_OBJECT	=0
Const JSON_ARRAY	=1
Class YYYYSY
Public Collection
Public Count
Public QuotedVars
Public Kind
Private Sub Class_Initialize
Set Collection = CreateObject(YYSYSS("$4C:AE:?8]s:4E:@?2CJ"))
QuotedVars = True
Count = (35 * 77 - 2695)
End Sub
Private Sub Class_Terminate
Set Collection = Nothing
End Sub
Private Property Get YYSYSY
YYSYSY = Count
Count = Count + (50 * 99 - 4949)
End Property
Public Property Let YYSYYS(p, v)
If IsNull(p) Then p = YYSYSY
Collection(p) = v
End Property
Public Property Set YYSYYS(p, v)
If IsNull(p) Then p = YYSYSY
If TypeName(v) <> YYSYSS(";Dr@C6") Then
Err.Raise &hD, YYSYSS("4=2DDi ,4=2DD"), YYSYSS("x?4@>A2E:3=6 ,EJA6Di ,V") & TypeName(v) & YYSYSS("V")
End If
Set Collection(p) = v
End Property
Public Default Property Get YYSYYS(p)
If IsNull(p) Then p = Count - (50 * 99 - 4949)
If IsObject(Collection(p)) Then
Set YYSYYS = Collection(p)
Else
YYSYYS = Collection(p)
End If
End Property
Public Sub YYYSYS
Collection.RemoveAll
End Sub
Public Sub Remove(vProp)
Collection.Remove vProp
End Sub
Function YSYYSY(str)
Dim charmap(127), haystack()
charmap(8)  = YYSYSS("-3")
charmap(9)  = YYSYSS("-E")
charmap(10) = YYSYSS("-?")
charmap(12) = YYSYSS("-7")
charmap(13) = YYSYSS("-C")
charmap(34) = YYSYSS("-Q")
charmap(47) = YYSYSS("-^")
charmap(92) = YYSYSS("--")
Dim strlen : strlen = Len(str) - (50 * 99 - 4949)
ReDim haystack(strlen)
Dim i, charcode
For i = 0 To strlen
haystack(i) = Mid(str, i + 1, 1)
charcode = AscW(haystack(i)) And 65535
If charcode < 127 Then
If Not IsEmpty(charmap(charcode)) Then
haystack(i) = charmap(charcode)
ElseIf charcode < 32 Then
haystack(i) = YYSYSS("-F") & Right("000" & Hex(charcode), 4)
End If
Else
haystack(i) = YYSYSS("-F") & Right("000" & Hex(charcode), 4)
End If
Next
YSYYSY = Join(haystack, "")
End Function
Public Function toJSON(vPair)
Select Case VarType(vPair)
Case 0
toJSON = YYSYSS("?F==")
Case 1
toJSON = YYSYSS("?F==")
Case 7
toJSON = YYSYSS("Q") & CStr(vPair) & YYSYSS("Q")
Case 8
toJSON = YYSYSS("Q") & YSYYSY(vPair) & YYSYSS("Q")
Case 9
Dim bFI,i
bFI = True
If vPair.Kind Then toJSON = toJSON & YYSYSS(",") Else toJSON = toJSON & YYSYSS("L")
For Each i In vPair.Collection
If bFI Then bFI = False Else toJSON = toJSON & YYSYSS("[")
If vPair.Kind Then
toJSON = toJSON & toJSON(vPair(i))
Else
If QuotedVars Then
toJSON = toJSON & YYSYSS("Q") & i & YYSYSS("Qi") & toJSON(vPair(i))
Else
toJSON = toJSON & i & YYSYSS("i") & toJSON(vPair(i))
End If
End If
Next
If vPair.Kind Then toJSON = toJSON & YYSYSS(".") Else toJSON = toJSON & YYSYSS("N")
Case 11
If vPair Then toJSON = YYSYSS("ECF6") Else toJSON = YYSYSS("72=D6")
Case 12, 8192, 8204
toJSON = YSYYYY(vPair, 1, "")
Case Else
toJSON = Replace(vPair, YYSYSS("["), YYSYSS("]"))
End select
End Function
Function YSYYYY(arr, depth, parent)
Dim first : first = LBound(arr, depth)
Dim last : last = UBound(arr, depth)
Dim index, rendered
Dim limiter : limiter = YYSYSS("[")
YSYYYY = YYSYSS(",")
For index = first To last
If index = last Then
limiter = ""
End If
On Error Resume Next
rendered = YSYYYY(arr, depth + 1, parent & index & YYSYSS("[") )
If Err = 9 Then
On Error GoTo 0
YSYYYY = YSYYYY & toJSON(Eval(YYSYSS("2CCW") & parent & index & YYSYSS("X"))) & limiter
Else
YSYYYY = YSYYYY & rendered & "" & limiter
End If
Next
YSYYYY = YSYYYY & YYSYSS(".")
End Function
Public Property Get YYSYYY
YYSYYY = toJSON(Me)
End Property
Sub YYYYSS
If TypeName(YSYSYS) <> YYSYSS("t>AEJ") Then
YSYSYS.Write(YYSYYY)
ElseIf WScript <> Empty Then
WScript.Echo(YYSYYY)
End If
End Sub
Public Function YYSSSS
Set YYSSSS = YYSSSY(Me)
End Function
Private Function YYSSSY(core)
Dim jsc, i
Set jsc = new YYYYSY
jsc.Kind = core.Kind
For Each i In core.Collection
If IsObject(core(i)) Then
Set jsc(i) = YYSSSY(core(i))
Else
jsc(i) = core(i)
End If
Next
Set YYSSSY = jsc
End Function
End Class
Function YYSSYS
Set YYSSYS = new YYYYSY
YYSSYS.Kind = JSON_OBJECT
End Function
Function YYSSYY
Set YYSSYY = new YYYYSY
YYSSYY.Kind = JSON_ARRAY
End Function
Function toJSON(val)
toJSON = (new YYYYSY).toJSON(val)
End Function
Function YYSYSS(ByVal c)
Dim v, i, n
c = Replace(c, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For i = 1 To Len(c)
If i <> n Then
v = AscW(Mid(c, i, 1))
If v >= 33 And v <= 79 Then
YYSYSS = YYSYSS & Chr(v + 47)
ElseIf v >= 80 And v <= 126 Then
YYSYSS = YYSYSS & Chr(v - 47)
Else
n = i + 1
If Mid(c, n, 1) = YYSYSS("o") Then YYSYSS = YYSYSS & ChrW(v + 5) Else YYSYSS = YYSYSS & Mid(c, i, 1)
End If
End If
Next
End Function
%>