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

Dim NNNZZZ,NNNZZN,NNNZNZ,NNNZNN,NNNNZZ
Set NNNZNZ=Response:Set NNNZZN=Request:Set NNNNZZ=Session:Set NNNZZZ=Application:Set NNNZNN=Server
Private Const NZZZZNN =8
Private Const NZZZNZZ =4
Private Const NZZZNZN =32
Private NNNNNZ(30)
Private NNNNNN(30)
Function NNNNZN(ByVal NZZZNNZ)
Dim NZZZZZZ, NZZZZZN, NZZZZNZ
NZZZNNZ = Replace(NZZZNNZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZZZZN = 1 To Len(NZZZNNZ)
If NZZZZZN <> NZZZZNZ Then
NZZZZZZ = AscW(Mid(NZZZNNZ, NZZZZZN, 1))
If NZZZZZZ >= 33 And NZZZZZZ <= 79 Then
NNNNZN = NNNNZN & Chr(NZZZZZZ + 47)
ElseIf NZZZZZZ >= 80 And NZZZZZZ <= 126 Then
NNNNZN = NNNNZN & Chr(NZZZZZZ - 47)
Else
NZZZZNZ = NZZZZZN + 1
If Mid(NZZZNNZ, NZZZZNZ, 1) = NNNNZN("o") Then NNNNZN = NNNNZN & ChrW(NZZZZZZ + 5) Else NNNNZN = NNNNZN & Mid(NZZZNNZ, NZZZZZN, 1)
End If
End If
Next
End Function
%>