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

Dim NNZNZZ,NNZNZN,NNZNNZ,NNZNNN,NNNZZZ
Set NNZNNZ=Response:Set NNZNZN=Request:Set NNNZZZ=Session:Set NNZNZZ=Application:Set NNZNNN=Server
NNZNNZ.Write(NNNZZN("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQ ,^m") & vbCrLf)
NNZNNZ.Write(NNNZZN("kP\\ ,顱@郣@\\m") & vbCrLf)
NNZNNZ.Write(NNNZZN("k=:?< ,C6=lQD9@CE4FE ,:4@?Q ,9C67lQ?K]:4@Q ,^m") & vbCrLf)
NNZNNZ.Write(NNNZZN("k=:?< ,9C67lQ4DD^4DD]4DDQ ,C6=lQDEJ=6D966EQ ,EJA6lQE6IE^4DDQm") & vbCrLf)
NNZNNZ.Write(vbCrLf)
NNZNNZ.Write(NNNZZN(" ,") & vbCrLf)
NNZNNZ.Write(NNNZZN("kD4C:AE ,=2?8F286lQ;2G2D4C:AEQ ,DC4lQ;D^G2=:52E@C];DQmk^D4C:AEm") & vbCrLf)
NNZNNZ.Write(NNNZZN("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^E@A03;];A8Q ,384@=@ClQRstbt_rQm") & vbCrLf)
NNZNNZ.Write(NNNZZN(" ,kECm") & vbCrLf)
NNZNNZ.Write(NNNZZN(" ,kE5 ,2=:8?lQ46?E6CQmk:>8 ,DC4lQ:>286D^?K4>D0E@A];A8Q ,^mk^E5m") & vbCrLf)
NNZNNZ.Write(NNNZZN(" ,k^ECm") & vbCrLf)
NNZNNZ.Write(NNNZZN("k^E23=6m") & vbCrLf)
NNZNNZ.Write(NNNZZN("kE23=6 ,H:5E9lQ`__TQ ,96:89ElQdfQ ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQ_Q ,46==DA24:?8lQ_Q ,324<8C@F?5lQ:>286D^?K4>D059a];A8Q ,384@=@ClQRra____Qm") & vbCrLf)
NNZNNZ.Write(NNNZZN(" ,kECm") & vbCrLf)
NNZNNZ.Write(NNNZZN(" ,kE5 ,2=:8?lQ46?E6CQ ,4=2DDlQH9:E6Qmk2 ,9C67lQ:?56I]2DAQ ,:5lQ=67EQm朧@竔@丶@顰@k^2m") & vbCrLf)
NNZNNZ.Write(NNNZZN(" ,"))
set NNNNZN=NNZNNN.CreateObject(NNNZZN("25@53]C64@C5D6E"))
NNNNNZ=NNNZZN("D6=64E ,E@A ,`_ ,Y ,7C@> ,?K4>D0E6IE0D@CE ,H96C6 ,3:80:5lddh ,@C56C ,3J ,DI ,2D4[:5 ,56D4")
NNNNZN.open NNNNNZ,conn,1,1
do while not NNNNZN.eof
NNZNNZ.Write(NNNZZN("Mk2 ,9C67lQ?K4>D0=:DE]2DAn:5l"))
NNZNNZ.Write  NNNNZN(NNNZZN(":5"))
NNZNNZ.Write(NNNZZN("Q ,:5lQ=67EQ ,m"))
NNZNNZ.Write  NNNNZN(NNNZZN("D@CE0?2>6"))
NNZNNZ.Write(NNNZZN("k^2m") & vbCrLf)
NNZNNZ.Write(NNNZZN(" ,"))
NNNNZN.movenext
loop
NNNNZN.close
set NNNNZN=nothing
NNZNNZ.Write(NNNZZN("Mk2 ,9C67lQ?K4>D0A9]2DAQ ,:5lQ=67EQm抐@祣@掍@衇@k^2m") & vbCrLf)
NNZNNZ.Write(NNNZZN(" ,k^ECm") & vbCrLf)
NNZNNZ.Write(NNNZZN("k^E23=6m") & vbCrLf)
Function NNNZZN(ByVal NNNNNN)
Dim NNNZNZ, NNNZNN, NNNNZZ
NNNNNN = Replace(NNNNNN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNNZNN = 1 To Len(NNNNNN)
If NNNZNN <> NNNNZZ Then
NNNZNZ = AscW(Mid(NNNNNN, NNNZNN, 1))
If NNNZNZ >= 33 And NNNZNZ <= 79 Then
NNNZZN = NNNZZN & Chr(NNNZNZ + 47)
ElseIf NNNZNZ >= 80 And NNNZNZ <= 126 Then
NNNZZN = NNNZZN & Chr(NNNZNZ - 47)
Else
NNNNZZ = NNNZNN + 1
If Mid(NNNNNN, NNNNZZ, 1) = NNNZZN("o") Then NNNZZN = NNNZZN & ChrW(NNNZNZ + 5) Else NNNZZN = NNNZZN & Mid(NNNNNN, NNNZNN, 1)
End If
End If
Next
End Function
%>