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

Dim NZZZZN,NZZZNZ,NZZZNN,NZZNZZ,NZZNZN
Set NZZZNN=Response:Set NZZZNZ=Request:Set NZZNZN=Session:Set NZZZZN=Application:Set NZZNZZ=Server
NZZZNN.Write(NZZNNZ("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQ ,^m") & vbCrLf)
NZZZNN.Write(NZZNNZ("k=:?< ,9C67lQ]]^25>:?04DD^4DD]4DDQ ,C6=lQDEJ=6D966EQ ,EJA6lQE6IE^4DDQ ,^m") & vbCrLf)
NZZZNN.Write(NZZNNZ("kE23=6 ,H:5E9lQ`__TQ ,96:89ElQb_Q ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQdQ ,46==DA24:?8lQ_Q ,3@C56C4@=@ClQRuuuuuuQ ,4=2DDlQ?K4>D06?5Qm") & vbCrLf)
NZZZNN.Write(NZZNNZ(" ,kECm") & vbCrLf)
NZZZNN.Write(NZZNNZ(" ,kE5 ,2=:8?lQ=67EQ ,4=2DDlQ3JQm(6=4@>6 ,{@8:? ,p5>:? ,A=2E7@C>k^E5m") & vbCrLf)
NZZZNN.Write(NZZNNZ(" ,kE5 ,2=:8?lQC:89EQ ,mU?3DAjk^E5m") & vbCrLf)
NZZZNN.Write(NZZNNZ(" ,k^ECm") & vbCrLf)
NZZZNN.Write(NZZNNZ("k^E23=6m") & vbCrLf)
Function NZZNNZ(ByVal NZNZNZ)
Dim NZZNNN, NZNZZZ, NZNZZN
NZNZNZ = Replace(NZNZNZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZNZZZ = 1 To Len(NZNZNZ)
If NZNZZZ <> NZNZZN Then
NZZNNN = AscW(Mid(NZNZNZ, NZNZZZ, 1))
If NZZNNN >= 33 And NZZNNN <= 79 Then
NZZNNZ = NZZNNZ & Chr(NZZNNN + 47)
ElseIf NZZNNN >= 80 And NZZNNN <= 126 Then
NZZNNZ = NZZNNZ & Chr(NZZNNN - 47)
Else
NZNZZN = NZNZZZ + 1
If Mid(NZNZNZ, NZNZZN, 1) = NZZNNZ("o") Then NZZNNZ = NZZNNZ & ChrW(NZZNNN + 5) Else NZZNNZ = NZZNNZ & Mid(NZNZNZ, NZNZZZ, 1)
End If
End If
Next
End Function
%>