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

Dim NZNNNN,NNZZZZ,NNZZZN,NNZZNZ,NNZZNN
Set NNZZZN=Response:Set NNZZZZ=Request:Set NNZZNN=Session:Set NZNNNN=Application:Set NNZZNZ=Server
Private Const NNNZNZ =8
Private Const NNNZNN =4
Private Const NNNNZZ =32
Private NNZNZN(30)
Private NNZNNZ(30)
Function NNZNZZ(ByVal NNNNZN)
Dim NNZNNN, NNNZZZ, NNNZZN
NNNNZN = Replace(NNNNZN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNNZZZ = 1 To Len(NNNNZN)
If NNNZZZ <> NNNZZN Then
NNZNNN = AscW(Mid(NNNNZN, NNNZZZ, 1))
If NNZNNN >= 33 And NNZNNN <= 79 Then
NNZNZZ = NNZNZZ & Chr(NNZNNN + 47)
ElseIf NNZNNN >= 80 And NNZNNN <= 126 Then
NNZNZZ = NNZNZZ & Chr(NNZNNN - 47)
Else
NNNZZN = NNNZZZ + 1
If Mid(NNNNZN, NNNZZN, 1) = NNZNZZ("o") Then NNZNZZ = NNZNZZ & ChrW(NNZNNN + 5) Else NNZNZZ = NNZNZZ & Mid(NNNNZN, NNNZZZ, 1)
End If
End If
Next
End Function
%>