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

Dim NNZNNN,NNNZZZ,NNNZZN,NNNZNZ,NNNZNN
Set NNNZZN=Response:Set NNNZZZ=Request:Set NNNZNN=Session:Set NNZNNN=Application:Set NNNZNZ=Server
Dim NNZNZNN
Class NNZNZZN
Private NNZNNZZ, NNZNNZN
Private NNZNNNZ, NNZNNNN, NNNZZZZ, NNNZZZN, NNNZZNZ, NNNZZNN, NNNZNZZ, NNNZNZN, NNNZNNZ, NNNZNNN,NNNNZZZ, NNNNZZN, NNNNZNZ, NNNNZNN
Public Property Let Mode(ByVal value)
NNNNZNZ = value
End Property
Public Property Let NZZNZNN(ByVal value)
NNZNNNN = value
End Property
Public Property Let NZZNNZZ(ByVal value)
NNNZZZZ = value
End Property
Public Property Let NZZNNZN(ByVal value)
NNNZNZZ = LCase(value)
End Property
Public Property Let CharSet(ByVal value)
NNZNNNZ = value
End Property
Public Property Get NZZNNNN()
NZZNNNN = NNNZZZN
End Property
Public Property Get NZNZZZZ()
NZNZZZZ = NNZNNZN.count
End Property
Public Property Get Description()
Description = NNNNNN(NNNZZZN)
End Property
Public Property Get NZNZZNZ()
NZNZZNZ = NNNZZNZ
End Property
Public Property Get NZNZZNN()
NZNZZNN = NNNZZNN
End Property
Public Property Get NZNZNZZ()
NZNZNZZ = NNNZNZN
End Property
Public Property Let NZNZNZN(ByVal value)
NNNZNNZ = value
End Property
Public Property Get NZNZNNZ()
NZNZNNZ = NNNNZZN
End Property
Private Sub Class_Initialize()
set NNZNNZZ = NNNZNZ.createobject(NZZNZZN(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 NNZNNZN = NNNZNZ.createobject(NZZNZZN(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 NNZNZNN = NNNZNZ.CreateObject(NZZNZZN(ChrW(112) & ChrW(53) & ChrW(64) & ChrW(53) & ChrW(51) & ChrW(93) & ChrW(68) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NNNZZNZ = NZZNZZN(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))
NNZNNNN = - (16 * 26 - 415)
NNNZZZZ = - (16 * 26 - 415)
NNNZZZN = - (16 * 26 - 415)
NNNZNZZ = ""
NNNZZNN = (34 * 106 - 3604)
NNZNNNZ = NZZNZZN(ChrW(70) & ChrW(69) & ChrW(55) & ChrW(92) & ChrW(103))
NNNZNNZ=false
NNNZNZN=NZZNZZN(ChrW(112) & ChrW(63) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53))
NNZNZZZ "",0,0,""
NNNNZNZ = (34 * 106 - 3604)
End Sub
Private Sub Class_Terminate()
Dim NNNNNZZ
NNZNNZZ.RemoveAll()
For each NNNNNZZ in NNZNNZN
NNZNNZN(NNNNNZZ).value=empty
Set NNZNNZN(NNNNNZZ) = Nothing
Next
NNZNNZN.RemoveAll()
Set NNZNNZZ = Nothing
Set NNZNNZN = Nothing
NNZNZNN.Close()
Set NNZNZNN = Nothing
End Sub
Public Sub NNZZNNN()
Dim NNNNNZN
NNNNNZN = timer()
if NNNZNNZ And trim(NNNZZZ.querystring(NZZNZZN(ChrW(65) & ChrW(67) & ChrW(64) & ChrW(52) & ChrW(54) & ChrW(68) & ChrW(68) & ChrW(58) & ChrW(53))))<>"" then NNNZNZN=NNNZZZ.querystring(NZZNZZN(ChrW(65) & ChrW(67) & ChrW(64) & ChrW(52) & ChrW(54) & ChrW(68) & ChrW(68) & ChrW(58) & ChrW(53)))
Dim value, str, NNNNNNN, NZZZZZZZ, NZZZZZZN, NZZZZZNZ, NZZZZZNN,NZZZZNZZ
Dim TotalBytes,NZZZZNNZ,NZZZZNNN,NZZZNZZZ,NZZZNZZN,NZZZNZNZ,NZZZNZNN, NZZZNNZZ, NZZZNNZN, NZZZNNNZ, formname, FileName, NZZZNNNN, NZZNZZZZ, NewName,localname,NZZNZZZN,contentType
TotalBytes = NNNZZZ.TotalBytes
NZZZZNZZ = false
If NZZZZZN = false Then NZZZZNZZ = true : NNNZZZN = (52 * 19 - 986)
If NZZZZNZZ Then Exit Sub
If NNNNZNZ = 0 Then
NNNZZNN = (34 * 106 - 3604)
NNZNZNN.Type = (16 * 26 - 415)
NNZNZNN.Mode = (19 * 106 - 2011)
NNZNZNN.Open
NZZZZNNN = (34 * 106 - 3604)
NZZZNZZZ = (93 * 85 - 6881) * (22 * 76 - 1656)
Do While NZZZZNNN < TotalBytes
NZZZNZZN = NZZZNZZZ
If NZZZNZZN + NZZZZNNN > TotalBytes Then NZZZNZZN = TotalBytes - NZZZZNNN
NZZZNZNZ = NNNZZZ.BinaryRead(NZZZNZZN)
NNZNZNN.Write NZZZNZNZ
NZZZZNNN = NZZZZNNN + NZZZNZZN
NNZNZZZ NZZNZZN(ChrW(70) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(58) & ChrW(63) & ChrW(56)),TotalBytes,NZZZZNNN,""
Loop
NNZNZZZ NZZNZZN(ChrW(70) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(54) & ChrW(53)),TotalBytes,NZZZZNNN,""
NNZNZNN.Position = (34 * 106 - 3604)
NZZZZNNZ = NNZNZNN.Read
Else
NZZZZNNZ = NNNZZZ.BinaryRead(TotalBytes)
End If
NNNNNNN = ChrB(13) & ChrB(10)
NZZZZZZZ = InStrB(1, NZZZZNNZ, NNNNNNN)
NZZZZZZN = MidB(NZZZZNNZ, 1, NZZZZZZZ - 1)
NZZZZZNZ = LenB(NZZZZZZN)
NZZZZZNN = NZZZZZNZ + (52 * 19 - 986)
Do
NZZZNZNN = InStrB(NZZZZZNN, NZZZZNNZ, NNNNNNN & NNNNNNN)
NZZZNNZZ = MidB(NZZZZNNZ, NZZZZZNN, NZZZNZNN - NZZZZZNN)
str = NNNNNZ(NZZZNNZZ)
NZZZNNZN = InStr(str, NZZNZZN(ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81))) + (101 * 87 - 8781)
NZZZNNNZ = InStr(NZZZNNZN, str, NZZNZZN(ChrW(81)))
formname = LCase(Mid(str, NZZZNNZN, NZZZNNNZ - NZZZNNZN))
NZZNZZZZ = InStrB(NZZZNZNN + 3, NZZZZNNZ, NZZZZZZN)
If InStr(str, NZZNZZN(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81))) > 0 Then
NZZZNNZN = InStr(str, NZZNZZN(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81))) + (95 * 83 - 7875)
NZZZNNNZ = InStr(NZZZNNZN, str, NZZNZZN(ChrW(81)))
NZZNZZZN=instr(NZZZNNNZ,lcase(str),NZZNZZN(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,NZZNZZZN+13))
FileName = Mid(str, NZZZNNZN, NZZZNNNZ - NZZZNNZN)
If Trim(FileName) <> "" Then
LocalName = FileName
FileName = Replace(FileName, NZZNZZN(ChrW(94)), NZZNZZN(ChrW(45)))
FileName = Mid(FileName, InStrRev(FileName, NZZNZZN(ChrW(45))) + 1)
If instr(FileName,NZZNZZN(ChrW(93)))>0 Then
NZZZNNNN = Split(FileName, NZZNZZN(ChrW(93)))(UBound(Split(FileName, NZZNZZN(ChrW(93)))))
else
NZZZNNNN = ""
End If
If NNNZNZZ <> "" Then
If NNNNZZ(NZZZNNNN) = True Then
NNNZZZN = (19 * 106 - 2011)
NNNZNNN = NZZZNNNN
NZZZZNNZ = empty
Exit Sub
End If
End If
NewName = NZZZZZZ()
NewName = NewName & NZZNZZN(ChrW(93)) & NZZZNNNN
NNNZZNN = NNNZZNN + NZZNZZZZ - NZZZNZNN - (101 * 87 - 8781)
If NNNZZZZ > 0 And (NZZNZZZZ - NZZZNZNN - 6) > NNNZZZZ Then
NNNZZZN = (70 * 26 - 1815)
NZZZZNNZ = empty
Exit Sub
End If
If NNZNNNN > 0 And NNNZZNN > NNZNNNN Then
NNNZZZN = (16 * 26 - 415)
NZZZZNNZ = empty
Exit Sub
End If
If NNZNNZN.Exists(formname) Then
NNNZZZN = (68 * 61 - 4144)
NZZZZNNZ = empty
Exit Sub
Else
Dim NZZNZZNZ:set NZZNZZNZ= new NNZNZNZ
NZZNZZNZ.ContentType=contentType
NZZNZZNZ.Size = (NZZNZZZZ - NZZZNZNN - 6)
NZZNZZNZ.Position = (NZZZNZNN + 3)
NZZNZZNZ.FormName = formname
NZZNZZNZ.NewName = NewName
NZZNZZNZ.FileName = FileName
NZZNZZNZ.LocalName = FileName
NZZNZZNZ.extend=split(NewName,NZZNZZN(ChrW(93)))(ubound(split(NewName,NZZNZZN(ChrW(93)))))
NNZNNZN.Add formname, NZZNZZNZ
Set NZZNZZNZ = Nothing
End If
End If
Else
value = MidB(NZZZZNNZ, NZZZNZNN + 4, NZZNZZZZ - NZZZNZNN - 6)
If NNZNNZZ.Exists(formname) Then
NNZNNZZ(formname) = NNZNNZZ(formname) & NZZNZZN(ChrW(91)) & NNNNNZ(value)
Else
NNZNNZZ.Add formname, NNNNNZ(value)
End If
End If
NZZZZZNN = NZZNZZZZ + (52 * 19 - 986) + NZZZZZNZ
Loop Until (NZZZZZNN + 2) >= LenB(NZZZZNNZ)
NNNZZZN = (34 * 106 - 3604)
NZZZZNNZ = empty
NNNNZZN = FormatNumber((timer-NNNNNZN)*1000,2)
End Sub
Public sub NNZNZZZ(NZNNNZZN,NZNNNZNZ,NZNNNZNN,NZNNNNZZ)
NNZNNN.lock()
NNZNNN(NNNZNZN)=NZZNZZN(ChrW(76) & ChrW(120) & ChrW(115) & ChrW(105) & ChrW(81)) & NNNZNZN & NZZNZZN(ChrW(81) & ChrW(91) & ChrW(68) & ChrW(69) & ChrW(54) & ChrW(65) & ChrW(105) & ChrW(81)) & NZNNNZZN & NZZNZZN(ChrW(81) & ChrW(91) & ChrW(69) & ChrW(64) & ChrW(69) & ChrW(50) & ChrW(61) & ChrW(105)) & NZNNNZNZ & NZZNZZN(ChrW(91) & ChrW(63) & ChrW(64) & ChrW(72) & ChrW(105)) & NZNNNZNN & NZZNZZN(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)) & NZNNNNZZ & NZZNZZN(ChrW(81) & ChrW(91) & ChrW(53) & ChrW(69) & ChrW(105) & ChrW(81)) & now() & NZZNZZN(ChrW(81) & ChrW(78))
NNZNNN.unlock()
end sub
Private Function NNNNZZ(ByVal NZNNNNZN)
Dim NZZNZZNN: NZZNZZNN = True
If NNNZNZZ=NZZNZZN(ChrW(89)) then
NZZNZZNN=false
elseIf InStr(1, NNNZNZZ, NZZNZZN(ChrW(77))) > 0 Then
Dim NZZNZNZZ: NZZNZNZZ = Split(NNNZNZZ, NZZNZZN(ChrW(77)))
Dim NZZNZNZN: NZZNZNZN = (34 * 106 - 3604)
For NZZNZNZN = 0 To UBound(NZZNZNZZ)
If LCase(NZNNNNZN) = NZZNZNZZ(NZZNZNZN) Then
NZZNZZNN = False
Exit For
End If
Next
Else
If NNNZNZZ = LCase(NZNNNNZN) Then
NZZNZZNN = False
End If
End If
NNNNZZ = NZZNZZNN
End Function
Public Function NNNNZN(ByVal Size)
If Size < 1024 Then
NNNNZN = FormatNumber(Size, 2) & NZZNZZN(ChrW(113))
ElseIf Size >= 1024 And Size < 1048576 Then
NNNNZN = FormatNumber(Size / 1024, 2) & NZZNZZN(ChrW(122) & ChrW(113))
ElseIf Size >= 1048576 Then
NNNNZN = FormatNumber((Size / 1024) / 1024, 2) & NZZNZZN(ChrW(124) & ChrW(113))
End If
End Function
Private Function NNNNNZ(ByVal NZNNNNNZ)
If LenB(NZNNNNNZ) = 0 Then
NNNNNZ = ""
Exit Function
End If
Dim NZZNZNNZ, NZZNZNNN
Set NZZNZNNZ =NNNZNZ.createobject(NZZNZZN(ChrW(112) & ChrW(115) & ChrW(126) & ChrW(115) & ChrW(113) & ChrW(93) & ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NZZNZNNZ.Type = (52 * 19 - 986)
NZZNZNNZ.Mode = (19 * 106 - 2011)
NZZNZNNZ.Open
NZZNZNNZ.WriteText NZNNNNNZ
NZZNZNNZ.Position = (34 * 106 - 3604)
NZZNZNNZ.CharSet = NNZNNNZ
NZZNZNNZ.Position = (52 * 19 - 986)
NZZNZNNN = NZZNZNNZ.ReadText()
NZZNZNNZ.Close
Set NZZNZNNZ = Nothing
NNNNNZ = NZZNZNNN
End Function
Private Function NNNNNN(ByVal Num)
Select Case Num
Case 0
NNNNNN = NZZNZZN(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
NNNNNN = NZZNZZN(ChrW(19973) & ChrW(64) & ChrW(20251) & ChrW(64) & ChrW(25963) & ChrW(64) & ChrW(25449) & ChrW(64) & ChrW(-29312) & ChrW(64) & ChrW(-28734) & ChrW(64)) & NNNNZN(NNZNNNN) & NZZNZZN(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
NNNNNN = NZZNZZN(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
NNNNNN = NZZNZZN(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)) & NNNZNNN & NZZNZZN(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(NNNZNZZ, NZZNZZN(ChrW(77)), NZZNZZN(ChrW(91))) & NZZNZZN(ChrW(30335) & ChrW(64) & ChrW(25986) & ChrW(64) & ChrW(20209) & ChrW(64))
Case 4
NNNNNN = NZZNZZN(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
NNNNNN = NZZNZZN(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)) & NNNNZN(NNNZZZZ) & NZZNZZN(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 NZZZZZZ()
Dim NZZNNZZZ, NZZNNZZN, NZZNNZNZ, NZZNNZNN, NZZNNNZZ, NZZNNNZN, NZZNNNNZ
Randomize
NZZNNZZZ = Year(Now)
NZZNNZZN = right("0" & Month(Now),2)
NZZNNZNZ = right("0" & Day(Now),2)
NZZNNZNN = right("0" & Hour(Now),2)
NZZNNNZZ =right("0" & Minute(Now),2)
NZZNNNZN = right("0" & Second(Now),2)
NZZNNNNZ = (34 * 106 - 3604)
NZZNNNNZ = CInt(Rnd() * 10000)
NZZNNNZN = right("0000" & NZZNNNNZ,4)
NZZZZZZ = NZZNNZZZ & NZZNNZZN & NZZNNZNZ & NZZNNZNN & NZZNNNZZ & NZZNNNZN & NZZNNNNZ
End Function
Private Function NZZZZZN()
Dim ContentType, NZZNNNNN, NZNZZZZZ,NZNZZZZN
NZNZZZZN=trim(LCase(NNNZZZ.ServerVariables(NZZNZZN(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 NZNZZZZN="" or NZNZZZZN<>NZZNZZN(ChrW(65) & ChrW(64) & ChrW(68) & ChrW(69)) then
NZZZZZN = False
exit function
end if
ContentType = LCase(NNNZZZ.ServerVariables(NZZNZZN(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))))
NZZNNNNN = Split(ContentType, NZZNZZN(ChrW(106)))
if ubound(NZZNNNNN)>=0 then
If Trim(NZZNNNNN(0)) = NZZNZZN(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
NZZZZZN = True
NNNNZZZ = Split(ContentType,NZZNZZN(ChrW(51) & ChrW(64) & ChrW(70) & ChrW(63) & ChrW(53) & ChrW(50) & ChrW(67) & ChrW(74) & ChrW(108)))(1)
Else
NZZZZZN = False
End If
else
NZZZZZN = False
end if
End Function
Public Function NZZZZNZ(ByVal formname)
If trim(formname) = "-1" Then
Set NZZZZNZ = NNZNNZZ
Else
If NNZNNZZ.Exists(LCase(formname)) Then
NZZZZNZ = NNZNNZZ(LCase(formname))
Else
NZZZZNZ = ""
End If
End If
End Function
Public Function NZZZZNN(ByVal formname)
If trim(formname) = "-1" Then
Set NZZZZNN = NNZNNZN
Else
If NNZNNZN.Exists(LCase(formname)) Then
Set NZZZZNN = NNZNNZN(LCase(formname))
Else
Set NZZZZNN = Nothing
End If
End If
End Function
End Class
Class NNZNZNZ
Private NZNZZZNZ , NZNZZZNN , NZNZZNZZ , NZNZZNZN , NZNZZNNZ , NZNZZNNN ,NZNZNZZZ,NZNZNZZN
Private NZNZNZNZ , NZNZNZNN , NZNZNNZZ , NZNZNNZN ,NZNZNNNZ, NZNZNNNN
Public Property Let Extend(ByVal vData )
NZNZNNZN = vData
End Property
Public Property Get Extend()
Extend = NZNZNNZN
End Property
Public Property Get NZNNZZZ()
NZNNZZZ = NZNZNNNZ
End Property
Public Property Get NZNNZZN()
NZNNZZN = NZNZNNNN
End Property
Public Property Let NZNNZNZ(ByVal vData )
NZNZNNZZ = vData
End Property
Public Property Get NZNNZNZ()
NZNNZNZ = NZNZNNZZ
End Property
Public Property Get NZNNZNN()
NZNNZNN = NZNZNZZZ
End Property
Public Property Let Value(ByVal vData )
NZNZNZNN = vData
End Property
Public Property Get Value()
Value = NZNZNZNN
End Property
Public Property Let Size(ByVal vData )
NZNZNZNZ = vData
End Property
Public Property Get Size()
Size = NZNZNZNZ
End Property
Public Property Let Position(ByVal vData )
NZNZNZZN = vData
End Property
Public Property Get Position()
Size = NZNZNZZN
End Property
Public Property Let ContentType(ByVal vData )
NZNZZNNN = vData
End Property
Public Property Get ContentType()
ContentType = NZNZZNNN
End Property
Public Property Let NNZZZZZ(ByVal vData )
NZNZZNNZ = vData
End Property
Public Property Get NNZZZZZ()
NNZZZZZ = NZNZZNNZ
End Property
Public Property Let FileName(ByVal vData )
NZNZZNZN = vData
End Property
Public Property Get FileName()
FileName = NZNZZNZN
End Property
Public Property Let LocalName(ByVal vData )
NZNZZNZZ = vData
End Property
Public Property Get LocalName()
LocalName = NZNZZNZZ
End Property
Public Property Let NewName(ByVal vData )
NZNZZZNN = vData
End Property
Public Property Get NewName()
NewName = NZNZZZNN
End Property
Public Property Let FormName(ByVal vData )
NZNZZZNZ = vData
End Property
Public Property Get FormName()
FormName = NZNZZZNZ
End Property
Private Sub Class_Initialize()
NZNZNZNZ = (34 * 106 - 3604)
NZNZNNNZ = (34 * 106 - 3604)
NZNZNNNN = (34 * 106 - 3604)
End Sub
Public Function SaveToFile(ByVal NZNNZNZ , byval tOption, byval OverWrite)
On Error Resume Next
Dim NZNNZZZZ
NZNNZZZZ = (InStr(NZNNZNZ, NZZNZZN(ChrW(105))) = 2)
If Not NZNNZZZZ Then NZNNZNZ = NNNZNZ.MapPath(NZNNZNZ)
NZNNZNZ = Replace(NZNNZNZ, NZZNZZN(ChrW(94)), NZZNZZN(ChrW(45)))
If Mid(NZNNZNZ, Len(NZNNZNZ) - 1) <> NZZNZZN(ChrW(45)) Then NZNNZNZ = NZNNZNZ + NZZNZZN(ChrW(45))
CreateFolder NZNNZNZ
NZNZNNZZ = NZNNZNZ
If tOption = 1 Then
NZNNZNZ = NZNNZNZ & NZNZZNZZ: NZNZZNZN = NZNZZNZZ
Else
If tOption = -1 And NZNZZNNZ <> "" Then
NZNNZNZ = NZNNZNZ & NZNZZNNZ & NZZNZZN(ChrW(93)) & NZNZNNZN: NZNZZNZN = NZNZZNNZ & NZZNZZN(ChrW(93)) & NZNZNNZN
Else
NZNNZNZ = NZNNZNZ & NZNZZZNN: NZNZZNZN = NZNZZZNN
End If
End If
If Not OverWrite Then
NZNNZNZ = NZZZNNN()
End If
Dim NZNNZZZN
Set NZNNZZZN =NNNZNZ.CreateObject(NZZNZZN(ChrW(112) & ChrW(115) & ChrW(126) & ChrW(115) & ChrW(113) & ChrW(93) & ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NZNNZZZN.Mode = (19 * 106 - 2011)
NZNNZZZN.Type = (16 * 26 - 415)
NZNNZZZN.Open
NNZNZNN.Position = NZNZNZZN
NNZNZNN.copyto NZNNZZZN,NZNZNZNZ
NZNNZZZN.SaveToFile NZNNZNZ, 2
NZNNZZZN.Close
Set NZNNZZZN = Nothing
If Not Err Then
SaveToFile = false
Else
SaveToFile = true
NZNZNZZZ=Err.Description
End If
End Function
Public Function NZZZNZN()
NNZNZNN.Position = NZNZNZZN
NZZZNZN = NNZNZNN.read(NZNZNZNZ)
End Function
Private Function CreateFolder(ByVal NNZZZZZZ )
Dim NZNNZZNZ
Set NZNNZZNZ = NNNZNZ.CreateObject(NZZNZZN(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 NZNNZZNN
NZNNZZNN = NZNNZZNZ.GetParentFolderName(NNZZZZZZ)
If NZNNZZNN = "" Then Exit Function
If Not NZNNZZNZ.FolderExists(NZNNZZNN) Then CreateFolder (NZNNZZNN)
If Not NZNNZZNZ.FolderExists(NNZZZZZZ) Then NZNNZZNZ.CreateFolder (NNZZZZZZ)
Set NZNNZZNZ = Nothing
End Function
Private Function NZZZNNN()
Dim NZNNZZNZ, NZNNZNZZ , NZNNZNZN , NZZNZNZN
NZZNZNZN = (34 * 106 - 3604)
Set NZNNZZNZ = NNNZNZ.CreateObject(NZZNZZN(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)))
NZNNZNZZ = NZNZNNZZ & NZNZZNZN
NZNNZNZN = Mid(NZNZZNZN, 1, InStr(NZNZZNZN, NZZNZZN(ChrW(93))) - 1)
Do While NZNNZZNZ.FileExists(NZNNZNZZ)
NZNNZNZZ = NZNZNNZZ & NZNNZNZN & NZZNZZN(ChrW(87)) & NZZNZNZN & NZZNZZN(ChrW(88) & ChrW(93)) & NZNZNNZN
NZNZZNZN = NZNNZNZN & NZZNZZN(ChrW(87)) & NZZNZNZN & NZZNZZN(ChrW(88) & ChrW(93)) & NZNZNNZN
NZZNZNZN = NZZNZNZN + (16 * 26 - 415)
Loop
Set NZNNZZNZ = Nothing
NZZZNNN = NZNNZNZZ
End Function
End Class
%>
<script language="jscript" runat="server">
	function NZZNZZZ(str){
		eval("var _temp=(" + str + ");");
		return _temp;
	}
</script>
<%
Function NZZNZZN(ByVal NZNNNZZZ)
Dim NZNNZNNZ, NZZNZNZN, NZNNZNNN
NZNNNZZZ = Replace(NZNNNZZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZNZNZN = 1 To Len(NZNNNZZZ)
If NZZNZNZN <> NZNNZNNN Then
NZNNZNNZ = AscW(Mid(NZNNNZZZ, NZZNZNZN, 1))
If NZNNZNNZ >= 33 And NZNNZNNZ <= 79 Then
NZZNZZN = NZZNZZN & Chr(NZNNZNNZ + 47)
ElseIf NZNNZNNZ >= 80 And NZNNZNNZ <= 126 Then
NZZNZZN = NZZNZZN & Chr(NZNNZNNZ - 47)
Else
NZNNZNNN = NZZNZNZN + 1
If Mid(NZNNNZZZ, NZNNZNNN, 1) = Chr(64) Then NZZNZZN = NZZNZZN & ChrW(NZNNZNNZ + 5) Else NZZNZZN = NZZNZZN & Mid(NZNNNZZZ, NZZNZNZN, 1)
End If
End If
Next
End Function
%>