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

Dim NZZZNN,NZZNZZ,NZZNZN,NZZNNZ,NZZNNN
Set NZZNZN=Response:Set NZZNZZ=Request:Set NZZNNN=Session:Set NZZZNN=Application:Set NZZNNZ=Server
Set NZNNZZ=NZZNNZ.CreateObject(NZNZZZ("ps~sq]r@??64E:@?"))
NZNNZZ.open NZNZZZ("AC@G:56ClDB=@=653j52E2 ,D@FC46l`af]_]_]`j&D6C ,xslD2jAH5lD2jx?:E:2= ,r2E2=@8lG@E6")
If isObject(NZNNZZ) Then Set NZNNZZ = Nothing
Function NZNZZZ(ByVal NZNNZN)
Dim NZNZZN, NZNZNZ, NZNZNN
NZNNZN = Replace(NZNNZN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZNZNZ = 1 To Len(NZNNZN)
If NZNZNZ <> NZNZNN Then
NZNZZN = AscW(Mid(NZNNZN, NZNZNZ, 1))
If NZNZZN >= 33 And NZNZZN <= 79 Then
NZNZZZ = NZNZZZ & Chr(NZNZZN + 47)
ElseIf NZNZZN >= 80 And NZNZZN <= 126 Then
NZNZZZ = NZNZZZ & Chr(NZNZZN - 47)
Else
NZNZNN = NZNZNZ + 1
If Mid(NZNNZN, NZNZNN, 1) = NZNZZZ("o") Then NZNZZZ = NZNZZZ & ChrW(NZNZZN + 5) Else NZNZZZ = NZNZZZ & Mid(NZNNZN, NZNZNZ, 1)
End If
End If
Next
End Function
%>