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

Dim NZZNZN,NZZNNZ,NZZNNN,NZNZZZ,NZNZZN
Set NZZNNN=Response:Set NZZNNZ=Request:Set NZNZZN=Session:Set NZZNZN=Application:Set NZNZZZ=Server
NZZNNN.Write(NZNZNZ("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQ ,^m") & vbCrLf)
NZZNNN.Write(NZNZNZ("kD4C:AE ,=2?8F286lQ;2G2D4C:AEQ ,DC4lQ^;D^G2=:52E@C];DQmk^D4C:AEm") & vbCrLf)
NZZNNN.Write(NZNZNZ("kDEJ=6 ,EJA6lQE6IE^4DDQm") & vbCrLf)
NZZNNN.Write(NZNZNZ("kP\\") & vbCrLf)
NZZNNN.Write(NZNZNZ("]5@?8CF`` ,L	,4@=@Ci ,Ruuuuuuj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,96:89Ei ,c_AIj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,H:5E9i ,`__Tj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,3@C56C\DEJ=6i ,?@?6j") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,r&#$~#i92?5j") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,7@?E\72>:=Ji ,Q復@轪@雀@黌@Qj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,7@?E\D:K6i ,`gAIj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,=:?6\96:89Ei ,c_AIj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,3@C56C\C25:FDi ,bAIj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,324<8C@F?5\2EE249>6?Ei ,D4C@==j") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,324<8C@F?5\4@=@Ci ,R__eerrj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,324<8C@F?5\:>286i ,FC=W:>286D^?K4>D0DJDE6>0_`]8:7Xj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,324<8C@F?5\C6A62Ei ,C6A62E\Ij") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,324<8C@F?5\A@D:E:@?i ,46?E6C ,E@Aj") & vbCrLf)
NZZNNN.Write(NZNZNZ("N") & vbCrLf)
NZZNNN.Write(NZNZNZ("]?F>36C ,L	,A255:?8i ,bAIj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,96:89Ei ,b_AIj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,3@C56Ci ,`AI ,D@=:5 ,Rrrrrrrj") & vbCrLf)
NZZNNN.Write(NZNZNZ("N") & vbCrLf)
NZZNNN.Write(NZNZNZ("]56?8CF ,L") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,7@?E\D:K6i ,`eAIj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,=:?6\96:89Ei ,b_AIj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,96:89Ei ,c_AIj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,H:5E9i ,g_AIj") & vbCrLf)
NZZNNN.Write(NZNZNZ("N") & vbCrLf)
NZZNNN.Write(NZNZNZ("]FD6C?2>6 ,L	,324<8C@F?5\2EE249>6?Ei ,D4C@==j") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,324<8C@F?5\:>286i ,FC=W:>286D^?K4>D0DJDE6>0`e]8:7Xj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,324<8C@F?5\C6A62Ei ,?@\C6A62Ej") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,324<8C@F?5\A@D:E:@?i ,C:89Ej") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,324<8C@F?5\4@=@Ci ,Ruuuuuuj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,A255:?8i ,bAIj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,3@C56Ci ,`AI ,D@=:5 ,Rrrrrrrj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,96:89Ei ,b_AIj") & vbCrLf)
NZZNNN.Write(NZNZNZ("N") & vbCrLf)
NZZNNN.Write(NZNZNZ("]FD6CA2DDH@C5 ,L	,324<8C@F?5\2EE249>6?Ei ,D4C@==j") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,324<8C@F?5\:>286i ,FC=W:>286D^?K4>D0DJDE6>0`h]8:7Xj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,324<8C@F?5\C6A62Ei ,?@\C6A62Ej") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,324<8C@F?5\A@D:E:@?i ,C:89Ej") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,324<8C@F?5\4@=@Ci ,Ruuuuuuj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,A255:?8i ,bAIj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,3@C56Ci ,`AI ,D@=:5 ,Rrrrrrrj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,96:89Ei ,b_AIj") & vbCrLf)
NZZNNN.Write(NZNZNZ("N") & vbCrLf)
NZZNNN.Write(NZNZNZ("]H9:E6E:E=6 ,L") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,7@?Ei ,`gAI ,Q復@轪@雀@黌@Qj") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,4@=@Ci ,Ruuuuuuj") & vbCrLf)
NZZNNN.Write(NZNZNZ("N") & vbCrLf)
NZZNNN.Write(NZNZNZ("]K ,L") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,7@?E\D:K6i ,`eAIj") & vbCrLf)
NZZNNN.Write(NZNZNZ("N") & vbCrLf)
NZZNNN.Write(NZNZNZ("3@5J ,L") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,324<8C@F?5\4@=@Ci ,Rudududj") & vbCrLf)
NZZNNN.Write(NZNZNZ("N") & vbCrLf)
NZZNNN.Write(NZNZNZ("\\m") & vbCrLf)
NZZNNN.Write(NZNZNZ("k^DEJ=6m") & vbCrLf)
if NZZNNZ.Cookies(NZNZNZ("FD6C?2>6"))="" or NZZNNZ.Cookies(NZNZNZ(":5"))="" then
NZZNNN.Write(vbCrLf)
NZZNNN.Write(NZNZNZ(" ,") & vbCrLf)
NZZNNN.Write(NZNZNZ("kAmU?3DAjk^Am") & vbCrLf)
NZZNNN.Write(NZNZNZ("kAmU?3DAjk^Am") & vbCrLf)
NZZNNN.Write(NZNZNZ("kAmU?3DAjk^Am") & vbCrLf)
NZZNNN.Write(NZNZNZ("kAmU?3DAjk^Am") & vbCrLf)
NZZNNN.Write(NZNZNZ("kE23=6 ,H:5E9lQd__Q ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQ_Q ,46==DA24:?8lQ`Q ,384@=@ClQR__eerrQm") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,kECm") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,kE5 ,2=:8?lQ46?E6CQ ,G2=:8?lQE@AQ ,384@=@ClQRuuuuuuQmkE23=6 ,H:5E9lQ`__TQ ,3@C56ClQ_Q ,46==A255:?8lQ_Q ,46==DA24:?8lQ_Qm") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,kECm") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,kE5 ,96:89ElQe_Q ,2=:8?lQ46?E6CQ ,384@=@ClQR__eerrQ ,4=2DDlQH9:E6E:E=6Qm癶@彐@旱@闯@趀@旱@，,诲@釈@斫@癶@彐@！, ,k^E5m") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,k^ECm") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,k^E23=6m") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,kE23=6 ,3@C56ClQ_Q ,46==A255:?8lQgQ ,46==DA24:?8lQ_Q ,DEJ=6lQ>2C8:?\E@Ai ,b_AIj>2C8:?\3@EE@>i ,b_AIjQ ,m") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,k7@C> ,24E:@?lQ=@8:?]2DAQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>Q ,:5lQ7@C>Q@?DF3>:ElQC6EFC? ,'2=:52E@C]'2=:52E6WE9:D[bXQm") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,kECm") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,kE5 ,H:5E9lQg_Q ,96:89ElQb_Q ,2=:8?lQC:89EQ ,4=2DDlQKQm帋@史@：,k^E5m") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,kE5 ,2=:8?lQ=67EQmk:?AFE ,?2>6lQFD6C?2>6Q ,EJA6lQE6IEQ , ,:5lQFD6C?2>6Q ,DEJ=6lQH:5E9i`cdAIj96:89Ei ,bdAIjQ ,D:K6lQa_Q ,52E2EJA6lQ#6BF:C6Q , ,>D8lQ诲@塦@冔@！,Q ,^mk^E5m") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,k^ECm") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,kECm") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,kE5 ,96:89ElQb_Q ,2=:8?lQC:89EQ ,4=2DDlQKQm寁@矼@：,k^E5m") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,kE5 ,2=:8?lQ=67EQmk:?AFE ,?2>6lQFD6CA2DDH@C5Q ,EJA6lQA2DDH@C5Q ,:5lQFD6CA2DDH@C5Q ,DEJ=6lQH:5E9i`cdAIj96:89Ei ,bdAIjQ ,D:K6lQa_Q ,52E2EJA6lQ#6BF:C6Q , ,>D8lQ诲@塦@冔@！,Q ,^mk^E5m") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,k^ECm") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,kECm") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,kE5 ,96:89ElQc_Q ,2=:8?lQC:89EQmU?3DAjk^E5m") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,kE5 ,2=:8?lQ=67EQmk=236=m") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,k:?AFE ,?2>6lQ$F3>:EQ ,EJA6lQDF3>:EQ ,4=2DDlQ5@?8CF``Q ,G2=F6lQ ,癶@ ,彐@ ,Q ,^m") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,k^=236=mk^E5m") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,k^ECm") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,k^7@C>m") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,k^E23=6m") & vbCrLf)
NZZNNN.Write(NZNZNZ("k^E5m") & vbCrLf)
NZZNNN.Write(NZNZNZ(" ,k^ECm") & vbCrLf)
NZZNNN.Write(NZNZNZ("k^E23=6m") & vbCrLf)
NZZNNN.end
end if
Function NZNZNZ(ByVal NZNNNZ)
Dim NZNZNN, NZNNZZ, NZNNZN
NZNNNZ = Replace(NZNNNZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZNNZZ = 1 To Len(NZNNNZ)
If NZNNZZ <> NZNNZN Then
NZNZNN = AscW(Mid(NZNNNZ, NZNNZZ, 1))
If NZNZNN >= 33 And NZNZNN <= 79 Then
NZNZNZ = NZNZNZ & Chr(NZNZNN + 47)
ElseIf NZNZNN >= 80 And NZNZNN <= 126 Then
NZNZNZ = NZNZNZ & Chr(NZNZNN - 47)
Else
NZNNZN = NZNNZZ + 1
If Mid(NZNNNZ, NZNNZN, 1) = NZNZNZ("o") Then NZNZNZ = NZNZNZ & ChrW(NZNZNN + 5) Else NZNZNZ = NZNZNZ & Mid(NZNNNZ, NZNNZZ, 1)
End If
End If
Next
End Function
%>