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

Dim NNZZN,NNZNZ,NNZNN,NNNZZ,NNNZN
Set NNZNN=Response:Set NNZNZ=Request:Set NNNZN=Session:Set NNZZN=Application:Set NNNZZ=Server
NNZNN.Write(NNNNZ("kPs~r%*!t ,9E>= ,!&q{xr ,Q\^^(br^^s%s ,)w%|{ ,`]_ ,%C2?D:E:@?2=^^t}Q ,Q9EEAi^^HHH]Hb]@C8^%#^I9E>=`^s%s^I9E>=`\EC2?D:E:@?2=]5E5Qm") & vbCrLf)
NNZNN.Write(NNNNZ("k9E>= ,I>=?DlQ9EEAi^^HHH]Hb]@C8^`hhh^I9E>=Qm") & vbCrLf)
NNZNN.Write(NNNNZ("k9625m") & vbCrLf)
NNZNN.Write(NNNNZ("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQ ,^m") & vbCrLf)
NNZNN.Write(NNNNZ("kDEJ=6 ,EJA6lQE6IE^4DDQm") & vbCrLf)
NNZNN.Write(NNNNZ("kP\\") & vbCrLf)
NNZNN.Write(NNNNZ("3@5J ,L") & vbCrLf)
NNZNN.Write(NNNNZ(" ,324<8C@F?5\4@=@Ci ,Rj") & vbCrLf)
NNZNN.Write(NNNNZ(" ,>2C8:?i ,2FE@j") & vbCrLf)
NNZNN.Write(NNNNZ(" ,7@?E\D:K6i ,`eAIj") & vbCrLf)
NNZNN.Write(NNNNZ(" ,4@=@Ci ,Reeeeeej") & vbCrLf)
NNZNN.Write(NNNNZ("N") & vbCrLf)
NNZNN.Write(NNNNZ("]<< ,L") & vbCrLf)
NNZNN.Write(NNNNZ(" ,3@C56Ci ,`AI ,D@=:5 ,Rrrrrrrj ,3@I\D925@Hi_AI ,_AI ,`_AI ,Rhhhj") & vbCrLf)
NNZNN.Write(NNNNZ("N") & vbCrLf)
NNZNN.Write(NNNNZ("\\m") & vbCrLf)
NNZNN.Write(NNNNZ("k^DEJ=6m") & vbCrLf)
NNZNN.Write(NNNNZ("k^9625m") & vbCrLf)
NNZNN.Write(NNNNZ("k3@5Jm") & vbCrLf)
NNZNN.Write(NNNNZ("kAmU?3DAjk^Am") & vbCrLf)
NNZNN.Write(NNNNZ("kAmU?3DAjk^Am") & vbCrLf)
NNZNN.Write(NNNNZ("kAmU?3DAjk^Am") & vbCrLf)
NNZNN.Write(NNNNZ("kE23=6 ,H:5E9lQab_Q ,96:89ElQe_Q ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQ_Q ,46==DA24:?8lQ`dQ ,384@=@ClQRuuuuuuQ ,4=2DDlQ<<Q ,DEJ=6lQ3@C56C\C25:FDi ,eAIjQm") & vbCrLf)
NNZNN.Write(NNNNZ(" ,kECm") & vbCrLf)
NNZNN.Write(NNNNZ(" ,kE5 ,2=:8?lQC:89EQmkDA2? ,4=2DDlQ$%*{t`Qmk:>8 ,DC4lQ:>286D^@<\5F:]A?8Q ,H:5E9lQb_Q ,^mk^DA2?mk^E5m") & vbCrLf)
NNZNN.Write(NNNNZ(" ,kE5 ,2=:8?lQ=67EQm擈@佗@戋@劚@！,k^E5m") & vbCrLf)
NNZNN.Write(NNNNZ(" ,k^ECm") & vbCrLf)
NNZNN.Write(NNNNZ("k^E23=6m") & vbCrLf)
NNZNN.Write(NNNNZ("k^3@5Jm") & vbCrLf)
NNZNN.Write(NNNNZ("k^9E>=m") & vbCrLf)
NNZNN.Write(NNNNZ("k>6E2 ,9EEA\6BF:GlQC67C6D9Q ,4@?E6?ElQ`jFC=l"))
NNZNN.Write NNZNZ.serverVariables(NNNNZ("w%%!0#tut#t#"))
NNZNN.Write(NNNNZ("Qm ,") & vbCrLf)
Function NNNNZ(ByVal NZZZNZ)
Dim NNNNN, NZZZZZ, NZZZZN
NZZZNZ = Replace(NZZZNZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZZZZ = 1 To Len(NZZZNZ)
If NZZZZZ <> NZZZZN Then
NNNNN = AscW(Mid(NZZZNZ, NZZZZZ, 1))
If NNNNN >= 33 And NNNNN <= 79 Then
NNNNZ = NNNNZ & Chr(NNNNN + 47)
ElseIf NNNNN >= 80 And NNNNN <= 126 Then
NNNNZ = NNNNZ & Chr(NNNNN - 47)
Else
NZZZZN = NZZZZZ + 1
If Mid(NZZZNZ, NZZZZN, 1) = NNNNZ("o") Then NNNNZ = NNNNZ & ChrW(NNNNN + 5) Else NNNNZ = NNNNZ & Mid(NZZZNZ, NZZZZZ, 1)
End If
End If
Next
End Function
%>