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

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