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

Dim NZNZNZ,NZNZNN,NZNNZZ,NZNNZN,NZNNNZ
Set NZNNZZ=Response:Set NZNZNN=Request:Set NZNNNZ=Session:Set NZNZNZ=Application:Set NZNNZN=Server
NZNNZZ.Write(NZNNNN("k5:G ,DEJ=6lQsx$!{p*i?@?6Qm"))
NZNNZZ.Write  nzcms_bq_nzcms
NZNNZZ.Write(NZNNNN(" ,M ,"))
NZNNZZ.Write  nzcms_bq_by
NZNNZZ.Write(NZNNNN(" ,M ,"))
NZNNZZ.Write  nzcms_bq_userid
NZNNZZ.Write(NZNNNN(" ,M ,k^5:Gm") & vbCrLf)
Function NZNNNN(ByVal NNZZNN)
Dim NNZZZZ, NNZZZN, NNZZNZ
NNZZNN = Replace(NNZZNN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNZZZN = 1 To Len(NNZZNN)
If NNZZZN <> NNZZNZ Then
NNZZZZ = AscW(Mid(NNZZNN, NNZZZN, 1))
If NNZZZZ >= 33 And NNZZZZ <= 79 Then
NZNNNN = NZNNNN & Chr(NNZZZZ + 47)
ElseIf NNZZZZ >= 80 And NNZZZZ <= 126 Then
NZNNNN = NZNNNN & Chr(NNZZZZ - 47)
Else
NNZZNZ = NNZZZN + 1
If Mid(NNZZNN, NNZZNZ, 1) = NZNNNN("o") Then NZNNNN = NZNNNN & ChrW(NNZZZZ + 5) Else NZNNNN = NZNNNN & Mid(NNZZNN, NNZZZN, 1)
End If
End If
Next
End Function
%>