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

Dim NZNNNN,NNZZZZ,NNZZZN,NNZZNZ,NNZZNN
Set NNZZZN=Response:Set NNZZZZ=Request:Set NNZZNN=Session:Set NZNNNN=Application:Set NNZZNZ=Server
set NNNZZZ = NNZZNZ.CreateObject(NNZNZZ("25@53]4@??64E:@?"))
NNNZZN=NNZNZZ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqi52E2q2D6 ,!2DDH@C5lYYYYYYYYYYj52E2 ,$@FC46l") & NNZZNZ.MapPath(NNZNZZ("]]^?K4>D0?KH63^2DA^?K4>D02]2DA"))
NNNZZZ.open NNNZZN
NNNZNZ=NNZZZZ.QueryString(NNZNZZ("D62C49"))
set NNNZNN=NNZZNZ.CreateObject(NNZNZZ("25@53]C64@C5D6E"))
NNNNZZ=NNZNZZ("D6=64E ,Y ,7C@> ,?K4>D ,@C56C ,3J ,:5 ,56D4")
NNNZNN.open NNNNZZ,NNNZZZ,1,1
if NNNZNN.recordcount<>0 then
NNNNZN=NNNZNN(NNZNZZ("H63"))
NNNNNZ=NNNZNN(NNZNZZ("HHH"))
NNNNNN=NNNZNN(NNZNZZ("52E22?5E:>6"))
NZZZZZZ=NNNZNN(NNZNZZ("FD6C:5"))
NZZZZZN=NNNZNN(NNZNZZ("45:5"))
NZZZZNZ=NNNZNN(NNZNZZ("DB@<"))
NZZZZNN=NNNZNN.recordcount
NZZZNZZ= (38 * 86 - 3265)
NZZZNZN= (38 * 86 - 3265)
NZZZNNZ= (102 * 23 - 2342)
NZZZNNN= (107 * 106 - 11337)
NZZNZZZ= (13 * 87 - 1125)
NZZNZZN= (20 * 56 - 1113)
NZZNZNZ= (40 * 44 - 1752)
NZZNZNN= (24 * 57 - 1359)
end if
NNNZNN.close
set NNNZNN=nothing
set NZZNNZZ = NNZZNZ.CreateObject(NNZNZZ("25@53]4@??64E:@?"))
NNNZZN=NNZNZZ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqi52E2q2D6 ,!2DDH@C5lYYYYYYYYYYj52E2 ,$@FC46l") & NNZZNZ.MapPath(NNZNZZ("]]^?K4>D0?KH63^2DA^?K4>D03B]2DA"))
NZZNNZZ.open NNNZZN
NNNZNZ=NNZZZZ.QueryString(NNZNZZ("D62C49"))
set NNNZNN=NNZZNZ.CreateObject(NNZNZZ("25@53]C64@C5D6E"))
NNNNZZ=NNZNZZ("D6=64E ,Y ,7C@> ,?K4>D ,@C56C ,3J ,:5 ,56D4")
NNNZNN.open NNNNZZ,NZZNNZZ,1,1
NZZNNZN=NNNZNN(NNZNZZ("HHH"))
NZZNNNZ=NNNZNN(NNZNZZ("ED"))
NZZNNNN=NNNZNN(NNZNZZ("EDa"))
NZNZZZZ=NNNZNN(NNZNZZ("EDb"))
NZNZZZN=NNNZNN(NNZNZZ("EDc"))
NZNZZNZ=NNNZNN(NNZNZZ("EDd"))
NZNZZNN=NNNZNN(NNZNZZ("EDe"))
NZNZNZZ=NNNZNN(NNZNZZ("EDf"))
NZNZNZN=NNNZNN(NNZNZZ("EDg"))
NZNZNNZ=NNNZNN(NNZNZZ("EDh"))
NZNZNNN=NNNZNN(NNZNZZ("ED`_"))
NZNNZZZ=NNNZNN(NNZNZZ("FD6C\:5"))
NZNNZZN=NNNZNN(NNZNZZ("FD6C\BB"))
NZNNZNZ=NNNZNN(NNZNZZ("E;"))
NZNNZNN=NNNZNN(NNZNZZ("d`E;"))
NZNNNZZ=NNNZNN(NNZNZZ("?K4>D"))
NZNNNZN=NNNZNN(NNZNZZ("3J0:>286D"))
NZNNNNZ=NNNZNN(NNZNZZ("?K4>D0?2>6"))
NZNNNNN=NNNZNN(NNZNZZ("3B"))
NNZZZZZ=NNNZNN(NNZNZZ("J62C"))
NNZZZZN=NNNZNN(NNZNZZ(">@?E9"))
NNZZZNZ=NNNZNN(NNZNZZ("3J"))
NNZZZNN=NNNZNN(NNZNZZ("G"))
NNZZNZZ=NNNZNN(NNZNZZ("D@5?2"))
NNZZNZN=NNNZNN(NNZNZZ("D@G"))
NNZZNNZ=NNNZNN(NNZNZZ("96D9F"))
NNZZNNN=NNNZNN(NNZNZZ("3K`"))
NNZNZZZ=NNNZNN(NNZNZZ("3Ka"))
NNZNZZN=NNNZNN(NNZNZZ("3Kb"))
NNZNZNZ=NNNZNN(NNZNZZ("3Kc"))
NNZNZNN=NNNZNN(NNZNZZ("3Kd"))
NNZNNZZ=NNNZNN(NNZNZZ("3Ke"))
NNZNNZN=NNNZNN(NNZNZZ("3Kf"))
NNZNNNZ=NNNZNN(NNZNZZ("3Kg"))
NNZNNNN=NNNZNN(NNZNZZ("3Kh"))
NNNZZZZ=NNNZNN(NNZNZZ("3K`_"))
NNNZZZN=NNNZNN(NNZNZZ("3K``"))
NNNZZNZ=NNNZNN(NNZNZZ("3K`a"))
NNNZZNN=NNNZNN(NNZNZZ("3K`b"))
NNNZNZZ=NNNZNN(NNZNZZ("3K`c"))
NNNZNZN=NNNZNN(NNZNZZ("3K`d"))
NNNZNNZ=NNNZNN(NNZNZZ("3K`e"))
NNNZNNN=NNNZNN(NNZNZZ("3K`f"))
NNNNZZZ=NNNZNN(NNZNZZ("3K`g"))
NNNNZZN=NNNZNN(NNZNZZ("3K`h"))
NNNNZNZ=NNNZNN(NNZNZZ("3Ka_"))
NNNNZNN=NNNZNN(NNZNZZ("3Ka`"))
NNNNNZZ=NNNZNN(NNZNZZ("3Kaa"))
NNNNNZN=NNNZNN(NNZNZZ("3Kab"))
NNNNNNZ=NNNZNN(NNZNZZ("3Kac"))
NNNNNNN=NNNZNN(NNZNZZ("3Kad"))
NZZZZZZZ=NNNZNN(NNZNZZ("3Kae"))
NZZZZZZN=NNNZNN(NNZNZZ("3Kaf"))
NZZZZZNZ=NNNZNN(NNZNZZ("3Kag"))
NZZZZZNN=NNNZNN(NNZNZZ("3Kah"))
NZZZZNZZ=NNNZNN(NNZNZZ("3Kb_"))
NZZZZNZN=NNNZNN(NNZNZZ("3Kb`"))
NZZZZNNZ=NNNZNN(NNZNZZ("3Kba"))
NZZZZNNN=NNNZNN(NNZNZZ("3Kbb"))
NNNZNN.close
set NNNZNN=nothing
set NZZZNZZZ = NNZZNZ.CreateObject(NNZNZZ("25@53]4@??64E:@?"))
NNNZZN=NNZNZZ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqi52E2q2D6 ,!2DDH@C5lPoRST/UYj52E2 ,$@FC46l") & NNZZNZ.MapPath(NNZNZZ("]]^?K4>D0?KH63^2DA^?K4>D05?2]2DA"))
NZZZNZZZ.open NNNZZN
NNNZNZ=NNZZZZ.QueryString(NNZNZZ("D62C49"))
set NNNZNN=NNZZNZ.CreateObject(NNZNZZ("25@53]C64@C5D6E"))
NNNNZZ=NNZNZZ("D6=64E ,Y ,7C@> ,?K4>D ,@C56C ,3J ,:5 ,56D4")
NNNZNN.open NNNNZZ,NZZZNZZZ,1,1
NZZZNZZN=NNNZNN(NNZNZZ("FD6C0:5"))
NZZZNZNZ=NNNZNN(NNZNZZ("FD6C0KD"))
NNNZNN.close
set NNNZNN=nothing
If isObject(NNNZZZ) Then Set NNNZZZ = Nothing
If isObject(NZZNNZZ) Then Set NZZNNZZ = Nothing
If isObject(NZZZNZZZ) Then Set NZZZNZZZ = Nothing
Function NNZNZZ(ByVal NZZZNZNN)
Dim NNZNZN, NNZNNZ, NNZNNN
NZZZNZNN = Replace(NZZZNZNN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNZNNZ = 1 To Len(NZZZNZNN)
If NNZNNZ <> NNZNNN Then
NNZNZN = AscW(Mid(NZZZNZNN, NNZNNZ, 1))
If NNZNZN >= 33 And NNZNZN <= 79 Then
NNZNZZ = NNZNZZ & Chr(NNZNZN + 47)
ElseIf NNZNZN >= 80 And NNZNZN <= 126 Then
NNZNZZ = NNZNZZ & Chr(NNZNZN - 47)
Else
NNZNNN = NNZNNZ + 1
If Mid(NZZZNZNN, NNZNNN, 1) = NNZNZZ("o") Then NNZNZZ = NNZNZZ & ChrW(NNZNZN + 5) Else NNZNZZ = NNZNZZ & Mid(NZZZNZNN, NNZNNZ, 1)
End If
End If
Next
End Function
%>