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

Dim NZZNNN,NZNZZZ,NZNZZN,NZNZNZ,NZNZNN
Set NZNZZN=Response:Set NZNZZZ=Request:Set NZNZNN=Session:Set NZZNNN=Application:Set NZNZNZ=Server
set NNZZZZ = NZNZNZ.CreateObject(NZNNZZ("25@53]4@??64E:@?"))
NNZZZN=NZNNZZ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqi52E2q2D6 ,!2DDH@C5lYYYYYYYYYYj52E2 ,$@FC46l") & NZNZNZ.MapPath(NZNNZZ("?K4>D02]2DA"))
NNZZZZ.open NNZZZN
NNZZNZ=NZNZZZ.QueryString(NZNNZZ("D62C49"))
set NNZZNN=NZNZNZ.CreateObject(NZNNZZ("25@53]C64@C5D6E"))
NNZNZZ=NZNNZZ("D6=64E ,Y ,7C@> ,?K4>D ,@C56C ,3J ,:5 ,56D4")
NNZZNN.open NNZNZZ,NNZZZZ,1,1
if NNZZNN.recordcount<>0 then
NNZNZN=NNZZNN(NZNNZZ("H63"))
NNZNNZ=NNZZNN(NZNNZZ("HHH"))
NNZNNN=NNZZNN(NZNNZZ("52E22?5E:>6"))
NNNZZZ=NNZZNN(NZNNZZ("FD6C:5"))
NNNZZN=NNZZNN(NZNNZZ("45:5"))
NNNZNZ=NNZZNN(NZNNZZ("DB@<"))
NNNZNN=NNZZNN.recordcount
NNNNZZ= (82 * 59 - 4835)
NNNNZN= (82 * 59 - 4835)
NNNNNZ= (56 * 41 - 2292)
NNNNNN= (62 * 17 - 1049)
NZZZZZZ= (94 * 37 - 3472)
NZZZZZN= (36 * 100 - 3593)
NZZZZNZ= (30 * 49 - 1462)
NZZZZNN= (74 * 97 - 7169)
end if
NNZZNN.close
set NNZZNN=nothing
set NZZZNZZ = NZNZNZ.CreateObject(NZNNZZ("25@53]4@??64E:@?"))
NNZZZN=NZNNZZ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqi52E2q2D6 ,!2DDH@C5lYYYYYYYYYYj52E2 ,$@FC46l") & NZNZNZ.MapPath(NZNNZZ("?K4>D03B]2DA"))
NZZZNZZ.open NNZZZN
NNZZNZ=NZNZZZ.QueryString(NZNNZZ("D62C49"))
set NNZZNN=NZNZNZ.CreateObject(NZNNZZ("25@53]C64@C5D6E"))
NNZNZZ=NZNNZZ("D6=64E ,Y ,7C@> ,?K4>D ,@C56C ,3J ,:5 ,56D4")
NNZZNN.open NNZNZZ,NZZZNZZ,1,1
NZZZNZN=NNZZNN(NZNNZZ("HHH"))
NZZZNNZ=NNZZNN(NZNNZZ("ED"))
NZZZNNN=NNZZNN(NZNNZZ("EDa"))
NZZNZZZ=NNZZNN(NZNNZZ("EDb"))
NZZNZZN=NNZZNN(NZNNZZ("EDc"))
NZZNZNZ=NNZZNN(NZNNZZ("EDd"))
NZZNZNN=NNZZNN(NZNNZZ("EDe"))
NZZNNZZ=NNZZNN(NZNNZZ("EDf"))
NZZNNZN=NNZZNN(NZNNZZ("EDg"))
NZZNNNZ=NNZZNN(NZNNZZ("EDh"))
NZZNNNN=NNZZNN(NZNNZZ("ED`_"))
NZNZZZZ=NNZZNN(NZNNZZ("FD6C\:5"))
NZNZZZN=NNZZNN(NZNNZZ("FD6C\BB"))
NZNZZNZ=NNZZNN(NZNNZZ("E;"))
NZNZZNN=NNZZNN(NZNNZZ("d`E;"))
NZNZNZZ=NNZZNN(NZNNZZ("?K4>D"))
NZNZNZN=NNZZNN(NZNNZZ("3J0:>286D"))
NZNZNNZ=NNZZNN(NZNNZZ("?K4>D0?2>6"))
NZNZNNN=NNZZNN(NZNNZZ("3B"))
NZNNZZZ=NNZZNN(NZNNZZ("J62C"))
NZNNZZN=NNZZNN(NZNNZZ(">@?E9"))
NZNNZNZ=NNZZNN(NZNNZZ("3J"))
NZNNZNN=NNZZNN(NZNNZZ("G"))
NZNNNZZ=NNZZNN(NZNNZZ("D@5?2"))
NZNNNZN=NNZZNN(NZNNZZ("D@G"))
NZNNNNZ=NNZZNN(NZNNZZ("96D9F"))
NZNNNNN=NNZZNN(NZNNZZ("3K`"))
NNZZZZZ=NNZZNN(NZNNZZ("3Ka"))
NNZZZZN=NNZZNN(NZNNZZ("3Kb"))
NNZZZNZ=NNZZNN(NZNNZZ("3Kc"))
NNZZZNN=NNZZNN(NZNNZZ("3Kd"))
NNZZNZZ=NNZZNN(NZNNZZ("3Ke"))
NNZZNZN=NNZZNN(NZNNZZ("3Kf"))
NNZZNNZ=NNZZNN(NZNNZZ("3Kg"))
NNZZNNN=NNZZNN(NZNNZZ("3Kh"))
NNZNZZZ=NNZZNN(NZNNZZ("3K`_"))
NNZNZZN=NNZZNN(NZNNZZ("3K``"))
NNZNZNZ=NNZZNN(NZNNZZ("3K`a"))
NNZNZNN=NNZZNN(NZNNZZ("3K`b"))
NNZNNZZ=NNZZNN(NZNNZZ("3K`c"))
NNZNNZN=NNZZNN(NZNNZZ("3K`d"))
NNZNNNZ=NNZZNN(NZNNZZ("3K`e"))
NNZNNNN=NNZZNN(NZNNZZ("3K`f"))
NNNZZZZ=NNZZNN(NZNNZZ("3K`g"))
NNNZZZN=NNZZNN(NZNNZZ("3K`h"))
NNNZZNZ=NNZZNN(NZNNZZ("3Ka_"))
NNNZZNN=NNZZNN(NZNNZZ("3Ka`"))
NNNZNZZ=NNZZNN(NZNNZZ("3Kaa"))
NNNZNZN=NNZZNN(NZNNZZ("3Kab"))
NNNZNNZ=NNZZNN(NZNNZZ("3Kac"))
NNNZNNN=NNZZNN(NZNNZZ("3Kad"))
NNNNZZZ=NNZZNN(NZNNZZ("3Kae"))
NNNNZZN=NNZZNN(NZNNZZ("3Kaf"))
NNNNZNZ=NNZZNN(NZNNZZ("3Kag"))
NNNNZNN=NNZZNN(NZNNZZ("3Kah"))
NNNNNZZ=NNZZNN(NZNNZZ("3Kb_"))
NNNNNZN=NNZZNN(NZNNZZ("3Kb`"))
NNNNNNZ=NNZZNN(NZNNZZ("3Kba"))
NNNNNNN=NNZZNN(NZNNZZ("3Kbb"))
NNZZNN.close
set NNZZNN=nothing
set NZZZZZZZ = NZNZNZ.CreateObject(NZNNZZ("25@53]4@??64E:@?"))
NNZZZN=NZNNZZ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqi52E2q2D6 ,!2DDH@C5lPoRST/UYj52E2 ,$@FC46l") & NZNZNZ.MapPath(NZNNZZ("?K4>D05?2]2DA"))
NZZZZZZZ.open NNZZZN
NNZZNZ=NZNZZZ.QueryString(NZNNZZ("D62C49"))
set NNZZNN=NZNZNZ.CreateObject(NZNNZZ("25@53]C64@C5D6E"))
NNZNZZ=NZNNZZ("D6=64E ,Y ,7C@> ,?K4>D ,@C56C ,3J ,:5 ,56D4")
NNZZNN.open NNZNZZ,NZZZZZZZ,1,1
NZZZZZZN=NNZZNN(NZNNZZ("FD6C0:5"))
NZZZZZNZ=NNZZNN(NZNNZZ("FD6C0KD"))
NNZZNN.close
set NNZZNN=nothing
If NZNZZZ.ServerVariables(NZNNZZ("$t#'t#0}p|t"))<>""&NNNNNZZ&"" and NZNZZZ.ServerVariables(NZNNZZ("$t#'t#0}p|t"))<>""&NNNNNZN&""  and left(NZNZZZ.ServerVariables(NZNNZZ("$t#'t#0}p|t")),7)<>""&NNNNNNZ&"" Then
If NNNZNZ="" or NNNZNZ=1 Then
NZNZZN.Redirect(""&NZZNZZZ&"")
NZNZZN.end
end if
End If
NNZZZZ.close:set NNZZZZ=nothing
NZZZNZZ.close:set NZZZNZZ=nothing
NZZZZZZZ.close:set NZZZZZZZ=nothing
Function NZNNZZ(ByVal NZZZZZNN)
Dim NZNNZN, NZNNNZ, NZNNNN
NZZZZZNN = Replace(NZZZZZNN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZNNNZ = 1 To Len(NZZZZZNN)
If NZNNNZ <> NZNNNN Then
NZNNZN = AscW(Mid(NZZZZZNN, NZNNNZ, 1))
If NZNNZN >= 33 And NZNNZN <= 79 Then
NZNNZZ = NZNNZZ & Chr(NZNNZN + 47)
ElseIf NZNNZN >= 80 And NZNNZN <= 126 Then
NZNNZZ = NZNNZZ & Chr(NZNNZN - 47)
Else
NZNNNN = NZNNNZ + 1
If Mid(NZZZZZNN, NZNNNN, 1) = NZNNZZ("o") Then NZNNZZ = NZNNZZ & ChrW(NZNNZN + 5) Else NZNNZZ = NZNNZZ & Mid(NZZZZZNN, NZNNNZ, 1)
End If
End If
Next
End Function
%>