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

Dim NZNZN,NZNNZ,NZNNN,NNZZZ,NNZZN
Set NZNNN=Response:Set NZNNZ=Request:Set NNZZN=Session:Set NZNZN=Application:Set NNZZZ=Server
NZNNN.Write(NNZNZ("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQm") & vbCrLf)
NZNNN.Write(NNZNZ("k=:?< ,9C67lQ4DD^4DD]4DDQ ,C6=lQDEJ=6D966EQ ,EJA6lQE6IE^4DDQm") & vbCrLf)
NZNNN.Write(NNZNZ("k=:?< ,9C67lQ4DD^4DD0a]4DDQ ,C6=lQDEJ=6D966EQ ,EJA6lQE6IE^4DDQm") & vbCrLf)
NZNNN.Write(NNZNZ("kE23=6 ,H:5E9lQ`__TQ ,96:89ElQb_Q , ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQ_Q ,46==DA24:?8lQ_Q ,324<8C@F?5lQ:>286D^?K4>D059a];A8Q ,384@=@ClQRufb`__Qm") & vbCrLf)
NZNNN.Write(NNZNZ(" ,kECm") & vbCrLf)
NZNNN.Write(NNZNZ(" ,kE5 ,H:5E9lQb_Q ,2=:8?lQ46?E6CQmU?3DAjk^E5m") & vbCrLf)
NZNNN.Write(NNZNZ(" ,kE5 ,2=:8?lQ=67EQmU?3DAjk^E5m") & vbCrLf)
NZNNN.Write(NNZNZ(" ,kE5 ,H:5E9lQg_Q ,2=:8?lQ46?E6CQmk2 ,9C67lQRQmk7@?E ,4=2DDlQH9:E6Qm迏@囙@顱@郣@↑,k^7@?Emk^2mk^E5m") & vbCrLf)
NZNNN.Write(NNZNZ(" ,k^ECm") & vbCrLf)
NZNNN.Write(NNZNZ("k^E23=6m") & vbCrLf)
NZNNN.Write(NNZNZ("kE23=6 ,H:5E9lQ`__TQ ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQ`dQ ,46==DA24:?8lQ_Q ,384@=@ClQRuuuuuuQm") & vbCrLf)
NZNNN.Write(NNZNZ(" ,kECm") & vbCrLf)
NZNNN.Write(NNZNZ(" ,kE5 ,2=:8?lQ46?E6CQ ,G2=:8?lQE@AQ ,4=2DDlQ6?5Qm"))
NZNNN.Write  nz_ms
NZNNN.Write(vbCrLf)
NZNNN.Write(NNZNZ(" ,") & vbCrLf)
NZNNN.Write(NNZNZ("k3Cm") & vbCrLf)
NZNNN.Write(NNZNZ("丵@亁@莲@徒@曻@佮@浊@觃@敃@林@：,廵@让@患@封@田@脌@课@臮@`_ac×,feg刁@辣@玂@，,幱@佺@産@xtg叅@仠@丅@牃@朧@、,r9C@>6、,u:C67@I咇@be_筄@丶@洼@浊@觃@噣@浊@觃@朧@罌@竔@U?3DAjU?3DAj") & vbCrLf)
NZNNN.Write(NNZNZ("k3CmkD4C:AE ,=2?8F286lQy2G2$4C:AEQ ,DC4lQ4@F?E]2DAQ ,EJA6lQE6IE^;2G2D4C:AEQmk^D4C:AEm") & vbCrLf)
NZNNN.Write(NNZNZ("k3Cm") & vbCrLf)
NZNNN.Write(NNZNZ("kP\\绚@讜@斂@仱@ ,\\m") & vbCrLf)
NZNNN.Write(NNZNZ("k^E5m") & vbCrLf)
NZNNN.Write(NNZNZ(" ,k^ECm") & vbCrLf)
NZNNN.Write(NNZNZ("k^E23=6m") & vbCrLf)
NZNNN.Write(NNZNZ("kP\\庐@郣@斂@仱@ ,\\m") & vbCrLf)
NNNNZ.close:set NNNNZ=nothing
Function NNZNZ(ByVal NNNNN)
Dim NNZNN, NNNZZ, NNNZN
NNNNN = Replace(NNNNN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNNZZ = 1 To Len(NNNNN)
If NNNZZ <> NNNZN Then
NNZNN = AscW(Mid(NNNNN, NNNZZ, 1))
If NNZNN >= 33 And NNZNN <= 79 Then
NNZNZ = NNZNZ & Chr(NNZNN + 47)
ElseIf NNZNN >= 80 And NNZNN <= 126 Then
NNZNZ = NNZNZ & Chr(NNZNN - 47)
Else
NNNZN = NNNZZ + 1
If Mid(NNNNN, NNNZN, 1) = NNZNZ("o") Then NNZNZ = NNZNZ & ChrW(NNZNN + 5) Else NNZNZ = NNZNZ & Mid(NNNNN, NNNZZ, 1)
End If
End If
Next
End Function
%>