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

Dim NNZNNN,NNNZZZ,NNNZZN,NNNZNZ,NNNZNN
Set NNNZZN=Response:Set NNNZZZ=Request:Set NNNZNN=Session:Set NNZNNN=Application:Set NNNZNZ=Server
NNNZZN.Write(NNNNNN("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQ ,^m"))
if instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("P"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("o"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("\"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("2?5"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("r#"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("=7"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("D4C:AE"))>0  or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("5@4F>6?E"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("6G2="))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("R"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("S"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("T"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("/"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("U"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("Y"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("W"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("X"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("0"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("^"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("k"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("m"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("^"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("Y"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("M"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("Z"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("]"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("l"))>0 or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("["))>0  or instr(NNNZZZ.form(NNNNNN("<6JH@C5")),NNNNNN("V"))>0 then
NNNZZN.Write NNNNNN("kD4C:AE ,{p}v&pvtlV;2G2D4C:AEVm2=6CEWV诲@丈@襼@辎@兠@静@泐@孒@笡@！,VXj9:DE@CJ]8@W\`Xjk^D4C:AEm")
NNNZZN.end
end if
Function NNNNZZ()
Dim NZZZZZN,NZZZZNZ,NZZZZNN,NZZZNZZ,NZZZNZN,NZZZNNZ,NZZZNNN,NZZNZZZ,NZZNZZN
NZZZZNN = NNNNNN("VMoMRMjMUMYMTMSMnM/MWMXM4CM=7MZMkmM[M]MD4C:AEM5@4F>6?EM6G2=M6I64M:?D6CEMD6=64EM56=6E6MFA52E6M4@F?EM49CM>:5M>2DE6CMECF?42E6M492CM2?5M564=2C6MVMjM2?5MWMXM6I64M:?D6CEMD6=64EM56=6E6MFA52E6M4@F?EMYM49CM>:5M>2DE6CMECF?42E6M492CM564=2C6Mw2?5:4C27EMdh-aeE:E=6lw2?5:4C27E")
NZZZNZZ = split(NZZZZNN,NNNNNN("M"))
If NNNZZZ.Form <> "" Then
For Each NZZZZZN In NNNZZZ.Form
For NZZZNZN = 0 To Ubound(NZZZNZZ)
If Instr(LCase(NNNZZZ.Form(NZZZZZN)),NZZZNZZ(NZZZNZN)) <> 0 Then
Echo NNNNNN("k$4C:AE ,{2?8F286ly2G2$4C:AEm2=6CEWV诲@丈@襼@圣@厽@敫@丨@匀@否@静@泐@孒@笡@！,VXj9:DE@CJ]8@W\`Xjk^$4C:AEm")
NNNZZN.End
End If
Next
Next
End If
If NNNZZZ.QueryString <> "" Then
For Each NZZZZNZ In NNNZZZ.QueryString
For NZZZNZN = 0 To Ubound(NZZZNZZ)
If Instr(LCase(NNNZZZ.QueryString(NZZZZNZ)),NZZZNZZ(NZZZNZN)) <> 0 Then
Echo NNNNNN("k$4C:AE ,{2?8F286ly2G2$4C:AEm2=6CEWV诲@丈@襼@圣@厽@敫@丨@匀@否@静@泐@孒@笡@！,VXj9:DE@CJ]8@W\`Xjk^$4C:AEm")
NNNZZN.End
End If
Next
Next
End If
End Function
Function NNNNZZ()
Dim NZZZZZN,NZZZZNZ,NZZZZNN,NZZZNZZ,NZZZNZN,NZZZNNZ,NZZZNNN,NZZNZZZ,NZZNZZN
NZZZZNN = NNNNNN("VMoMRMjMUMYMTMSMnM/MWMXM4CM=7MZMkmM[M]MD4C:AEM5@4F>6?EM6G2=M6I64M:?D6CEMD6=64EM56=6E6MFA52E6M4@F?EM49CM>:5M>2DE6CMECF?42E6M492CM2?5M564=2C6MVMjM2?5MWMXM6I64M:?D6CEMD6=64EM56=6E6MFA52E6M4@F?EMYM49CM>:5M>2DE6CMECF?42E6M492CM564=2C6Mw2?5:4C27EMdh-aeE:E=6lw2?5:4C27E")
NZZZNZZ = split(NZZZZNN,NNNNNN("M"))
If NNNZZZ.Form <> "" Then
For Each NZZZZZN In NNNZZZ.Form
For NZZZNZN = 0 To Ubound(NZZZNZZ)
If Instr(LCase(NNNZZZ.Form(NZZZZZN)),NZZZNZZ(NZZZNZN)) <> 0 Then
Echo NNNNNN("k$4C:AE ,{2?8F286ly2G2$4C:AEm2=6CEWV诲@丈@襼@圣@厽@敫@丨@匀@否@静@泐@孒@笡@！,VXj9:DE@CJ]8@W\`Xjk^$4C:AEm")
NNNZZN.End
End If
Next
Next
End If
If NNNZZZ.QueryString <> "" Then
For Each NZZZZNZ In NNNZZZ.QueryString
For NZZZNZN = 0 To Ubound(NZZZNZZ)
If Instr(LCase(NNNZZZ.QueryString(NZZZZNZ)),NZZZNZZ(NZZZNZN)) <> 0 Then
Echo NNNNNN("k$4C:AE ,{2?8F286ly2G2$4C:AEm2=6CEWV诲@丈@襼@圣@厽@敫@丨@匀@否@静@泐@孒@笡@！,VXj9:DE@CJ]8@W\`Xjk^$4C:AEm")
NNNZZN.End
End If
Next
Next
End If
End Function
On Error Resume Next
If NNNZZZ.QueryString <> "" Then Call NNNNNZ(NNNZZZ.QueryString, NNNNNN("VMk,/m.ZnDEJ=6l,-H.Zni6IAC6DD:@?-WMk,/m.Ynl,/m.YnUR,/m.YnmM-3W2=6CEM4@?7:C>MAC@>AEX-3M/-Z^GWgMhXM-3@?>@FD6W@G6CM>@G6Xl-3M-3W2?5M@CX-3]ZnWmMkMlM-3:?-3M-3=:<6-3XM^-Y]Zn-Y^Mk-DYD4C:AE-3M-3t)tr-3M&}x~}]Zn$t{tr%M&!sp%t]Zn$t%Mx}$t#%-DZx}%~]Zn'p{&t$MW$t{tr%Mst{t%tX]Znu#~|MWr#tp%tMp{%t#Ms#~!M%#&}rp%tX-DZW%pq{tMsp%pqp$tX"))
If NNNZZZ.ServerVariables(NNNNNN("w%%!0#tut#t#")) <> "" Then Call Test(NNNZZZ.ServerVariables(NNNNNN("w%%!0#tut#t#")), NNNNNN("VM-3W2?5M@CX-3]ZnWmMkMlM-3:?-3M-3=:<6-3XM^-Y]Zn-Y^Mk-DYD4C:AE-3M-3t)tr-3M&}x~}]Zn$t{tr%M&!sp%t]Zn$t%Mx}$t#%-DZx}%~]Zn'p{&t$MW$t{tr%Mst{t%tX]Znu#~|MWr#tp%tMp{%t#Ms#~!M%#&}rp%tX-DZW%pq{tMsp%pqp$tX"))
If NNNZZZ.Cookies <> "" Then Call NNNNNZ(NNNZZZ.Cookies, NNNNNN("-3W2?5M@CX-3]L`[eNnWlMmMkM-3:?-3M-3=:<6-3XM^-Y]Zn-Y^Mk-DYD4C:AE-3M-3t)tr-3M&}x~}]Zn$t{tr%M&!sp%t]Zn$t%Mx}$t#%-DZx}%~]Zn'p{&t$MW$t{tr%Mst{t%tX]Znu#~|MWr#tp%tMp{%t#Ms#~!M%#&}rp%tX-DZW%pq{tMsp%pqp$tX"))
Call NNNNNZ(NNNZZZ.Form, NNNNNN("k,/m.ZnDEJ=6l,-H.Zni6IAC6DD:@?-WM-3@?>@FD6W@G6CM>@G6Xl-3M-3W2=6CEM4@?7:C>MAC@>AEX-3M/-Z^GWgMhXMk,/m.Ynl,/m.YnUR,/m.YnmM-3W2?5M@CX-3]L`[eNnWlMmMkM-3:?-3M-3=:<6-3XM^-Y]Zn-Y^Mk-DYD4C:AE-3Mk-DY:>8-3M-3t)tr-3M&}x~}]Zn$t{tr%M&!sp%t]Zn$t%Mx}$t#%-DZx}%~]Zn'p{&t$MW$t{tr%Mst{t%tX]Znu#~|MWr#tp%tMp{%t#Ms#~!M%#&}rp%tX-DZW%pq{tMsp%pqp$tX"))
Function Test(NZNZNNZ, NZNZNNN)
Dim NZZNZNZ
Set NZZNZNZ = New regexp
NZZNZNZ.IgnoreCase = True
NZZNZNZ.Global = True
NZZNZNZ.Pattern = NZNZNNN
If NZZNZNZ.Test(NZNZNNZ) Then
NZZNNNZ = NNNZZZ.ServerVariables(NNNNNN("w%%!0)0u~#(p#sts0u~#"))
If NZZNNNZ = "" Then
NZZNNNZ = NNNZZZ.ServerVariables(NNNNNN("#t|~%t0pss#"))
End If
NZZZZZZ(NNNNNN("擈@佗@x!：,") & NZZNNNZ & NNNNNN("k3C ,^m擈@佗@旱@闯@：,") & Now() & NNNNNN("k3C ,^m擈@佗@顰@靝@：,") & NNNZZZ.ServerVariables(NNNNNN("&#{")) & NNNNNN("k3C ,^m揋@亟@斴@弊@：,") & NNNZZZ.ServerVariables(NNNNNN("#6BF6DE0|6E9@5")) & NNNNNN("k3C ,^m揋@亟@厽@敫@：,") & NZZNZNN & NNNNNN("k3C ,^m揋@亟@敫@捩@：,") & NZZNNZZ & NNNNNN("k9Cm"))
NNNZZN.End
End If
Set NZZNZNZ = Nothing
End Function
Function NNNNNZ(NZNZNNZ, NZNZNNN)
Dim NZZNZNN, NZZNNZZ, NZZNNZN, NZZNZNZ, NZZNNNZ
For Each NZZNNZN in NZNZNNZ
For Each NZZNZNN in NZNZNNZ
NZZNNZZ = NZNZNNZ(NZZNZNN)
Set NZZNZNZ = New regexp
NZZNZNZ.IgnoreCase = True
NZZNZNZ.Global = True
NZZNZNZ.Pattern = NZNZNNN
If NZZNZNZ.Test(NZZNNZZ) Then
NZZNNNZ = NNNZZZ.ServerVariables(NNNNNN("w%%!0)0u~#(p#sts0u~#"))
If NZZNNNZ = "" Then
NZZNNNZ = NNNZZZ.ServerVariables(NNNNNN("#t|~%t0pss#"))
End If
NZZZZZZ(NNNNNN("擈@佗@x!：,") & NZZNNNZ & NNNNNN("k3C ,^m擈@佗@旱@闯@：,") & Now() & NNNNNN("k3C ,^m擈@佗@顰@靝@：,") & NNNZZZ.ServerVariables(NNNNNN("&#{")) & NNNNNN("k3C ,^m揋@亟@斴@弊@：,") & NNNZZZ.ServerVariables(NNNNNN("#6BF6DE0|6E9@5")) & NNNNNN("k3C ,^m揋@亟@厽@敫@：,") & NZZNZNN & NNNNNN("k3C ,^m揋@亟@敫@捩@：,") & NZZNNZZ & NNNNNN("k9Cm"))
NNNZZN.End
End If
Set NZZNZNZ = Nothing
Next
Next
End Function
Sub NZZZZZZ(NZNNZZZ)
Dim NZZNNNN, NZNZZZZ, NZNZZZN
NZZNNNN = NNNZNZ.Mappath(NNNNNN("^:?56I]2DA"))
Set NZNZZZZ = CreateObject(NNNNNN("$4C:AE:?8]u:=6$JDE6>~3;64E"))
If Not NZNZZZZ.FileExists(NZZNNNN) Then
Set NZNZZZN = NZNZZZZ.CreateTextFile(NZZNNNN, True)
NZNZZZN.Close
End If
Set NZNZZZN = NZNZZZZ.OpenTextFile(NZZNNNN, 8)
NZNZZZN.WriteLine (NZNNZZZ)
NZNZZZN.Close
Set NZNZZZN = Nothing
Set NZNZZZZ = Nothing
End Sub
Function NNNNNN(ByVal NZNZNZN)
Dim NZNZZNZ, NZNZZNN, NZNZNZZ
NZNZNZN = Replace(NZNZNZN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZNZZNN = 1 To Len(NZNZNZN)
If NZNZZNN <> NZNZNZZ Then
NZNZZNZ = AscW(Mid(NZNZNZN, NZNZZNN, 1))
If NZNZZNZ >= 33 And NZNZZNZ <= 79 Then
NNNNNN = NNNNNN & Chr(NZNZZNZ + 47)
ElseIf NZNZZNZ >= 80 And NZNZZNZ <= 126 Then
NNNNNN = NNNNNN & Chr(NZNZZNZ - 47)
Else
NZNZNZZ = NZNZZNN + 1
If Mid(NZNZNZN, NZNZNZZ, 1) = NNNNNN("o") Then NNNNNN = NNNNNN & ChrW(NZNZZNZ + 5) Else NNNNNN = NNNNNN & Mid(NZNZNZN, NZNZZNN, 1)
End If
End If
Next
End Function
%>