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

Dim NNZZNZ,NNZZNN,NNZNZZ,NNZNZN,NNZNNZ
Set NNZNZZ=Response:Set NNZZNN=Request:Set NNZNNZ=Session:Set NNZZNZ=Application:Set NNZNZN=Server
NNZNZZ.Write(NNZNNN("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQ ,^m") & vbCrLf)
NNZNZZ.Write(NNZNNN("k=:?< ,9C67lQ]]^25>:?04DD^4DD]4DDQ ,C6=lQDEJ=6D966EQ ,EJA6lQE6IE^4DDQ ,^m") & vbCrLf)
NNZNZZ.Write(NNZNNN("kAm ,"))
if NNZZNN.Cookies(NNZNNN("FD6C?2>6"))="" or NNZZNN.Cookies(NNZNNN(":5"))="" then
NNZNZZ.Write(vbCrLf)
NNZNZZ.Write(NNZNNN(" ,") & vbCrLf)
NNZNZZ.Write(NNZNNN(" ,") & vbCrLf)
NNZNZZ.Write(NNZNNN("k^Am") & vbCrLf)
NNZNZZ.Write(NNZNNN("kAmU?3DAjk^Am") & vbCrLf)
NNZNZZ.Write(NNZNNN("kAmU?3DAjk^Am") & vbCrLf)
NNZNZZ.Write(NNZNNN("kAmU?3DAjk^Am") & vbCrLf)
NNZNZZ.Write(NNZNNN("kAmU?3DAjk^Am") & vbCrLf)
NNZNZZ.Write(NNZNNN("kE23=6 ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQa_Q ,46==DA24:?8lQdQ ,384@=@ClQRuurrbbQm") & vbCrLf)
NNZNZZ.Write(NNZNNN(" ,kECm") & vbCrLf)
NNZNZZ.Write(NNZNNN(" ,kE5 ,384@=@ClQRuuuurrQ ,4=2DDlQA`eQm患@论@闩@癿@顰@靝@電@癶@彐@吉@扈@胸@阀@觃@，,歞@圣@丵@患@轧@兠@癶@彐@顰@靝@诲@稈@吉@]]]]]]k^E5m") & vbCrLf)
NNZNZZ.Write(NNZNNN(" ,k^ECm") & vbCrLf)
NNZNZZ.Write(NNZNNN("k^E23=6mk>6E2 ,9EEA\6BF:GlQC67C6D9Q ,4@?E6?ElQ`jFC=l^Qm") & vbCrLf)
NNZNZZ.end
end if
Dim NNNNZZ
Class NNNZNZ
Dim NNNNZN, NNNNNZ, NNNNNN, Err
Private Sub Class_Initialize
Err = - (51 * 74 - 3773)
End Sub
Private Sub Class_Terminate
If Err < 0 Then
NNNNZN.RemoveAll
Set NNNNZN = Nothing
NNNNNZ.RemoveAll
Set NNNNNZ = Nothing
NNNNZZ.Close
Set NNNNZZ = Nothing
End If
End Sub
End Class
Class NNNZNN
Dim NZZZZZN, NZZZZNZ, NZZZZNN, NZZZNZZ, NZZZNZN, NZZZNNZ, NZZZNNN
End Class
Function NNZNNN(ByVal NZZNZNN)
Dim NZZNZZZ, NZZNZZN, NZZNZNZ
NZZNZNN = Replace(NZZNZNN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZNZZN = 1 To Len(NZZNZNN)
If NZZNZZN <> NZZNZNZ Then
NZZNZZZ = AscW(Mid(NZZNZNN, NZZNZZN, 1))
If NZZNZZZ >= 33 And NZZNZZZ <= 79 Then
NNZNNN = NNZNNN & Chr(NZZNZZZ + 47)
ElseIf NZZNZZZ >= 80 And NZZNZZZ <= 126 Then
NNZNNN = NNZNNN & Chr(NZZNZZZ - 47)
Else
NZZNZNZ = NZZNZZN + 1
If Mid(NZZNZNN, NZZNZNZ, 1) = NNZNNN("o") Then NNZNNN = NNZNNN & ChrW(NZZNZZZ + 5) Else NNZNNN = NNZNNN & Mid(NZZNZNN, NZZNZZN, 1)
End If
End If
Next
End Function
%>