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

Dim NNZNN,NNNZZ,NNNZN,NNNNZ,NNNNN
Set NNNZN=Response:Set NNNZZ=Request:Set NNNNN=Session:Set NNZNN=Application:Set NNNNZ=Server
set NZZNZZ = NNNNZ.CreateObject(NZZZZZ("25@53]4@??64E:@?"))
NZZNZN=NZZZZZ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqi52E2q2D6 ,!2DDH@C5lYYYYYYYYYYj52E2 ,$@FC46l") & NNNNZ.MapPath(NZZZZZ("?K4>D02]2DA"))
NZZNZZ.open NZZNZN
NZZNNZ=NNNZZ.QueryString(NZZZZZ("D62C49"))
set NZZNNN=NNNNZ.CreateObject(NZZZZZ("25@53]C64@C5D6E"))
NZNZZZ=NZZZZZ("D6=64E ,Y ,7C@> ,?K4>D ,@C56C ,3J ,:5 ,56D4")
NZZNNN.open NZNZZZ,NZZNZZ,1,1
if NZZNNN.recordcount<>0 then
NZNZZN=NZZNNN(NZZZZZ("H63"))
NZNZNZ=NZZNNN(NZZZZZ("HHH"))
NZNZNN=NZZNNN(NZZZZZ("52E22?5E:>6"))
NZNNZZ=NZZNNN(NZZZZZ("FD6C:5"))
NZNNZN=NZZNNN(NZZZZZ("45:5"))
NZNNNZ=NZZNNN(NZZZZZ("DB@<"))
NZNNNN=NZZNNN.recordcount
NNZZZZ= (74 * 51 - 3771)
NNZZZN= (74 * 51 - 3771)
NNZZNZ= (44 * 60 - 2636)
NNZZNN= (96 * 106 - 10171)
NNZNZZ= (57 * 103 - 5865)
NNZNZN= (102 * 96 - 9785)
NNZNNZ= (108 * 21 - 2260)
NNZNNN= (99 * 40 - 3951)
end if
NZZNNN.close
set NZZNNN=nothing
set NNNZZZ = NNNNZ.CreateObject(NZZZZZ("25@53]4@??64E:@?"))
NZZNZN=NZZZZZ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqi52E2q2D6 ,!2DDH@C5lYYYYYYYYYYj52E2 ,$@FC46l") & NNNNZ.MapPath(NZZZZZ("?K4>D03B]2DA"))
NNNZZZ.open NZZNZN
NZZNNZ=NNNZZ.QueryString(NZZZZZ("D62C49"))
set NZZNNN=NNNNZ.CreateObject(NZZZZZ("25@53]C64@C5D6E"))
NZNZZZ=NZZZZZ("D6=64E ,Y ,7C@> ,?K4>D ,@C56C ,3J ,:5 ,56D4")
NZZNNN.open NZNZZZ,NNNZZZ,1,1
NNNZZN=NZZNNN(NZZZZZ("HHH"))
NNNZNZ=NZZNNN(NZZZZZ("ED"))
NNNZNN=NZZNNN(NZZZZZ("EDa"))
NNNNZZ=NZZNNN(NZZZZZ("EDb"))
NNNNZN=NZZNNN(NZZZZZ("EDc"))
NNNNNZ=NZZNNN(NZZZZZ("EDd"))
NNNNNN=NZZNNN(NZZZZZ("EDe"))
NZZZZZZ=NZZNNN(NZZZZZ("EDf"))
NZZZZZN=NZZNNN(NZZZZZ("EDg"))
NZZZZNZ=NZZNNN(NZZZZZ("EDh"))
NZZZZNN=NZZNNN(NZZZZZ("ED`_"))
NZZZNZZ=NZZNNN(NZZZZZ("FD6C\:5"))
NZZZNZN=NZZNNN(NZZZZZ("FD6C\BB"))
NZZZNNZ=NZZNNN(NZZZZZ("E;"))
NZZZNNN=NZZNNN(NZZZZZ("d`E;"))
NZZNZZZ=NZZNNN(NZZZZZ("?K4>D"))
NZZNZZN=NZZNNN(NZZZZZ("3J0:>286D"))
NZZNZNZ=NZZNNN(NZZZZZ("?K4>D0?2>6"))
NZZNZNN=NZZNNN(NZZZZZ("3B"))
NZZNNZZ=NZZNNN(NZZZZZ("J62C"))
NZZNNZN=NZZNNN(NZZZZZ(">@?E9"))
NZZNNNZ=NZZNNN(NZZZZZ("3J"))
NZZNNNN=NZZNNN(NZZZZZ("G"))
NZNZZZZ=NZZNNN(NZZZZZ("D@5?2"))
NZNZZZN=NZZNNN(NZZZZZ("D@G"))
NZNZZNZ=NZZNNN(NZZZZZ("96D9F"))
NZNZZNN=NZZNNN(NZZZZZ("3K`"))
NZNZNZZ=NZZNNN(NZZZZZ("3Ka"))
NZNZNZN=NZZNNN(NZZZZZ("3Kb"))
NZNZNNZ=NZZNNN(NZZZZZ("3Kc"))
NZNZNNN=NZZNNN(NZZZZZ("3Kd"))
NZNNZZZ=NZZNNN(NZZZZZ("3Ke"))
NZNNZZN=NZZNNN(NZZZZZ("3Kf"))
NZNNZNZ=NZZNNN(NZZZZZ("3Kg"))
NZNNZNN=NZZNNN(NZZZZZ("3Kh"))
NZNNNZZ=NZZNNN(NZZZZZ("3K`_"))
NZNNNZN=NZZNNN(NZZZZZ("3K``"))
NZNNNNZ=NZZNNN(NZZZZZ("3K`a"))
NZNNNNN=NZZNNN(NZZZZZ("3K`b"))
NNZZZZZ=NZZNNN(NZZZZZ("3K`c"))
NNZZZZN=NZZNNN(NZZZZZ("3K`d"))
NNZZZNZ=NZZNNN(NZZZZZ("3K`e"))
NNZZZNN=NZZNNN(NZZZZZ("3K`f"))
NNZZNZZ=NZZNNN(NZZZZZ("3K`g"))
NNZZNZN=NZZNNN(NZZZZZ("3K`h"))
NNZZNNZ=NZZNNN(NZZZZZ("3Ka_"))
NNZZNNN=NZZNNN(NZZZZZ("3Ka`"))
NNZNZZZ=NZZNNN(NZZZZZ("3Kaa"))
NNZNZZN=NZZNNN(NZZZZZ("3Kab"))
NNZNZNZ=NZZNNN(NZZZZZ("3Kac"))
NNZNZNN=NZZNNN(NZZZZZ("3Kad"))
NNZNNZZ=NZZNNN(NZZZZZ("3Kae"))
NNZNNZN=NZZNNN(NZZZZZ("3Kaf"))
NNZNNNZ=NZZNNN(NZZZZZ("3Kag"))
NNZNNNN=NZZNNN(NZZZZZ("3Kah"))
NNNZZZZ=NZZNNN(NZZZZZ("3Kb_"))
NNNZZZN=NZZNNN(NZZZZZ("3Kb`"))
NNNZZNZ=NZZNNN(NZZZZZ("3Kba"))
NNNZZNN=NZZNNN(NZZZZZ("3Kbb"))
NZZNNN.close
set NZZNNN=nothing
set NNNZNZZ = NNNNZ.CreateObject(NZZZZZ("25@53]4@??64E:@?"))
NZZNZN=NZZZZZ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqi52E2q2D6 ,!2DDH@C5lPoRST/UYj52E2 ,$@FC46l") & NNNNZ.MapPath(NZZZZZ("?K4>D05?2]2DA"))
NNNZNZZ.open NZZNZN
NZZNNZ=NNNZZ.QueryString(NZZZZZ("D62C49"))
set NZZNNN=NNNNZ.CreateObject(NZZZZZ("25@53]C64@C5D6E"))
NZNZZZ=NZZZZZ("D6=64E ,Y ,7C@> ,?K4>D ,@C56C ,3J ,:5 ,56D4")
NZZNNN.open NZNZZZ,NNNZNZZ,1,1
NNNZNZN=NZZNNN(NZZZZZ("FD6C0:5"))
NNNZNNZ=NZZNNN(NZZZZZ("FD6C0KD"))
NZZNNN.close
set NZZNNN=nothing
If isObject(NZZNZZ) Then Set NZZNZZ = Nothing
If isObject(NNNZZZ) Then Set NNNZZZ = Nothing
If isObject(NNNZNZZ) Then Set NNNZNZZ = Nothing
Function NZZZZZ(ByVal NNNZNNN)
Dim NZZZZN, NZZZNZ, NZZZNN
NNNZNNN = Replace(NNNZNNN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZZNZ = 1 To Len(NNNZNNN)
If NZZZNZ <> NZZZNN Then
NZZZZN = AscW(Mid(NNNZNNN, NZZZNZ, 1))
If NZZZZN >= 33 And NZZZZN <= 79 Then
NZZZZZ = NZZZZZ & Chr(NZZZZN + 47)
ElseIf NZZZZN >= 80 And NZZZZN <= 126 Then
NZZZZZ = NZZZZZ & Chr(NZZZZN - 47)
Else
NZZZNN = NZZZNZ + 1
If Mid(NNNZNNN, NZZZNN, 1) = NZZZZZ("o") Then NZZZZZ = NZZZZZ & ChrW(NZZZZN + 5) Else NZZZZZ = NZZZZZ & Mid(NNNZNNN, NZZZNZ, 1)
End If
End If
Next
End Function
%>