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

Dim NNZNNN,NNNZZZ,NNNZZN,NNNZNZ,NNNZNN
Set NNNZZN=Response:Set NNNZZZ=Request:Set NNNZNN=Session:Set NNZNNN=Application:Set NNNZNZ=Server
set NZZZZZZ = NNNZNZ.CreateObject(NNNNZZ("25@53]4@??64E:@?"))
NZZZZZN=NNNNZZ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqi52E2q2D6 ,!2DDH@C5lYYYYYYYYYYj52E2 ,$@FC46l") & NNNZNZ.MapPath(NNNNZZ("?K4>D02]2DA"))
NZZZZZZ.open NZZZZZN
NZZZZNZ=NNNZZZ.QueryString(NNNNZZ("D62C49"))
set NZZZZNN=NNNZNZ.CreateObject(NNNNZZ("25@53]C64@C5D6E"))
NZZZNZZ=NNNNZZ("D6=64E ,Y ,7C@> ,?K4>D ,@C56C ,3J ,:5 ,56D4")
NZZZZNN.open NZZZNZZ,NZZZZZZ,1,1
if NZZZZNN.recordcount<>0 then
NZZZNZN=NZZZZNN(NNNNZZ("H63"))
NZZZNNZ=NZZZZNN(NNNNZZ("HHH"))
NZZZNNN=NZZZZNN(NNNNZZ("52E22?5E:>6"))
NZZNZZZ=NZZZZNN(NNNNZZ("FD6C:5"))
NZZNZZN=NZZZZNN(NNNNZZ("45:5"))
NZZNZNZ=NZZZZNN(NNNNZZ("DB@<"))
NZZNZNN=NZZZZNN.recordcount
NZZNNZZ= (69 * 58 - 3999)
NZZNNZN= (69 * 58 - 3999)
NZZNNNZ= (46 * 23 - 1054)
NZZNNNN= (14 * 76 - 1059)
NZNZZZZ= (15 * 31 - 459)
NZNZZZN= (67 * 78 - 5219)
NZNZZNZ= (29 * 75 - 2167)
NZNZZNN= (47 * 27 - 1260)
end if
NZZZZNN.close
set NZZZZNN=nothing
set NZNZNZZ = NNNZNZ.CreateObject(NNNNZZ("25@53]4@??64E:@?"))
NZZZZZN=NNNNZZ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqi52E2q2D6 ,!2DDH@C5lYYYYYYYYYYj52E2 ,$@FC46l") & NNNZNZ.MapPath(NNNNZZ("?K4>D03B]2DA"))
NZNZNZZ.open NZZZZZN
NZZZZNZ=NNNZZZ.QueryString(NNNNZZ("D62C49"))
set NZZZZNN=NNNZNZ.CreateObject(NNNNZZ("25@53]C64@C5D6E"))
NZZZNZZ=NNNNZZ("D6=64E ,Y ,7C@> ,?K4>D ,@C56C ,3J ,:5 ,56D4")
NZZZZNN.open NZZZNZZ,NZNZNZZ,1,1
NZNZNZN=NZZZZNN(NNNNZZ("HHH"))
NZNZNNZ=NZZZZNN(NNNNZZ("ED"))
NZNZNNN=NZZZZNN(NNNNZZ("EDa"))
NZNNZZZ=NZZZZNN(NNNNZZ("EDb"))
NZNNZZN=NZZZZNN(NNNNZZ("EDc"))
NZNNZNZ=NZZZZNN(NNNNZZ("EDd"))
NZNNZNN=NZZZZNN(NNNNZZ("EDe"))
NZNNNZZ=NZZZZNN(NNNNZZ("EDf"))
NZNNNZN=NZZZZNN(NNNNZZ("EDg"))
NZNNNNZ=NZZZZNN(NNNNZZ("EDh"))
NZNNNNN=NZZZZNN(NNNNZZ("ED`_"))
NNZZZZZ=NZZZZNN(NNNNZZ("FD6C\:5"))
NNZZZZN=NZZZZNN(NNNNZZ("FD6C\BB"))
NNZZZNZ=NZZZZNN(NNNNZZ("E;"))
NNZZZNN=NZZZZNN(NNNNZZ("d`E;"))
NNZZNZZ=NZZZZNN(NNNNZZ("?K4>D"))
NNZZNZN=NZZZZNN(NNNNZZ("3J0:>286D"))
NNZZNNZ=NZZZZNN(NNNNZZ("?K4>D0?2>6"))
NNZZNNN=NZZZZNN(NNNNZZ("3B"))
NNZNZZZ=NZZZZNN(NNNNZZ("J62C"))
NNZNZZN=NZZZZNN(NNNNZZ(">@?E9"))
NNZNZNZ=NZZZZNN(NNNNZZ("3J"))
NNZNZNN=NZZZZNN(NNNNZZ("G"))
NNZNNZZ=NZZZZNN(NNNNZZ("D@5?2"))
NNZNNZN=NZZZZNN(NNNNZZ("D@G"))
NNZNNNZ=NZZZZNN(NNNNZZ("96D9F"))
NNZNNNN=NZZZZNN(NNNNZZ("3K`"))
NNNZZZZ=NZZZZNN(NNNNZZ("3Ka"))
NNNZZZN=NZZZZNN(NNNNZZ("3Kb"))
NNNZZNZ=NZZZZNN(NNNNZZ("3Kc"))
NNNZZNN=NZZZZNN(NNNNZZ("3Kd"))
NNNZNZZ=NZZZZNN(NNNNZZ("3Ke"))
NNNZNZN=NZZZZNN(NNNNZZ("3Kf"))
NNNZNNZ=NZZZZNN(NNNNZZ("3Kg"))
NNNZNNN=NZZZZNN(NNNNZZ("3Kh"))
NNNNZZZ=NZZZZNN(NNNNZZ("3K`_"))
NNNNZZN=NZZZZNN(NNNNZZ("3K``"))
NNNNZNZ=NZZZZNN(NNNNZZ("3K`a"))
NNNNZNN=NZZZZNN(NNNNZZ("3K`b"))
NNNNNZZ=NZZZZNN(NNNNZZ("3K`c"))
NNNNNZN=NZZZZNN(NNNNZZ("3K`d"))
NNNNNNZ=NZZZZNN(NNNNZZ("3K`e"))
NNNNNNN=NZZZZNN(NNNNZZ("3K`f"))
NZZZZZZZ=NZZZZNN(NNNNZZ("3K`g"))
NZZZZZZN=NZZZZNN(NNNNZZ("3K`h"))
NZZZZZNZ=NZZZZNN(NNNNZZ("3Ka_"))
NZZZZZNN=NZZZZNN(NNNNZZ("3Ka`"))
NZZZZNZZ=NZZZZNN(NNNNZZ("3Kaa"))
NZZZZNZN=NZZZZNN(NNNNZZ("3Kab"))
NZZZZNNZ=NZZZZNN(NNNNZZ("3Kac"))
NZZZZNNN=NZZZZNN(NNNNZZ("3Kad"))
NZZZNZZZ=NZZZZNN(NNNNZZ("3Kae"))
NZZZNZZN=NZZZZNN(NNNNZZ("3Kaf"))
NZZZNZNZ=NZZZZNN(NNNNZZ("3Kag"))
NZZZNZNN=NZZZZNN(NNNNZZ("3Kah"))
NZZZNNZZ=NZZZZNN(NNNNZZ("3Kb_"))
NZZZNNZN=NZZZZNN(NNNNZZ("3Kb`"))
NZZZNNNZ=NZZZZNN(NNNNZZ("3Kba"))
NZZZNNNN=NZZZZNN(NNNNZZ("3Kbb"))
NZZZZNN.close
set NZZZZNN=nothing
set NZZNZZZZ = NNNZNZ.CreateObject(NNNNZZ("25@53]4@??64E:@?"))
NZZZZZN=NNNNZZ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqi52E2q2D6 ,!2DDH@C5lPoRST/UYj52E2 ,$@FC46l") & NNNZNZ.MapPath(NNNNZZ("?K4>D05?2]2DA"))
NZZNZZZZ.open NZZZZZN
NZZZZNZ=NNNZZZ.QueryString(NNNNZZ("D62C49"))
set NZZZZNN=NNNZNZ.CreateObject(NNNNZZ("25@53]C64@C5D6E"))
NZZZNZZ=NNNNZZ("D6=64E ,Y ,7C@> ,?K4>D ,@C56C ,3J ,:5 ,56D4")
NZZZZNN.open NZZZNZZ,NZZNZZZZ,1,1
NZZNZZZN=NZZZZNN(NNNNZZ("FD6C0:5"))
NZZNZZNZ=NZZZZNN(NNNNZZ("FD6C0KD"))
NZZZZNN.close
set NZZZZNN=nothing
if NNNZZZ.querystring(NNNNZZ("@<"))="1" then
set NZZNZZNN=NNNZNZ.createobject(NNNNZZ("25@53]C64@C5D6E"))
NZZZNZZ=NNNNZZ("D6=64E ,Y ,7C@> ,?K4>D ,@C56C ,3J ,:5 ,56D4")
NZZNZZNN.open NZZZNZZ,NZNZNZZ,1,3
NZZNZZNN(NNNNZZ("96D9F"))=NZZNZZNN(NNNNZZ("96D9F"))+ (80 * 91 - 7279)
NZZNZZNN.update
NNNZZN.Write NNNNZZ("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV@<！,VXjH:?5@H]=@42E:@?]9C67lV;2G2D4C:AEiH:?5@H]4=@D6WXjVjk^D4C:AEm")
end if
NZZNZZNN.close:set NZZNZZNN=nothing
NZZZZZZ.close:set NZZZZZZ=nothing
NZNZNZZ.close:set NZNZNZZ=nothing
NZZNZZZZ.close:set NZZNZZZZ=nothing
Function NNNNZZ(ByVal NZZNZNZZ)
Dim NNNNZN, NNNNNZ, NNNNNN
NZZNZNZZ = Replace(NZZNZNZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNNNNZ = 1 To Len(NZZNZNZZ)
If NNNNNZ <> NNNNNN Then
NNNNZN = AscW(Mid(NZZNZNZZ, NNNNNZ, 1))
If NNNNZN >= 33 And NNNNZN <= 79 Then
NNNNZZ = NNNNZZ & Chr(NNNNZN + 47)
ElseIf NNNNZN >= 80 And NNNNZN <= 126 Then
NNNNZZ = NNNNZZ & Chr(NNNNZN - 47)
Else
NNNNNN = NNNNNZ + 1
If Mid(NZZNZNZZ, NNNNNN, 1) = NNNNZZ("o") Then NNNNZZ = NNNNZZ & ChrW(NNNNZN + 5) Else NNNNZZ = NNNNZZ & Mid(NZZNZNZZ, NNNNNZ, 1)
End If
End If
Next
End Function
%>