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

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