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

Dim NNZZN,NNZNZ,NNZNN,NNNZZ,NNNZN
Set NNZNN=Response:Set NNZNZ=Request:Set NNNZN=Session:Set NNZZN=Application:Set NNNZZ=Server
Dim NNZZZZ
Class NZNNNZ
Private NNZZZN, NNZZNZ
Private NNZZNN, NNZNZZ, NNZNZN, NNZNNZ, NNZNNN, NNNZZZ, NNNZZN, NNNZNZ, NNNZNN, NNNNZZ,NNNNZN, NNNNNZ, NNNNNN, NZZZZZZ
Private Sub Class_Initialize()
set NNZZZN = NNNZZ.createobject(NNNNN("$4C:AE:?8]s:4E:@?2CJ"))
set NNZZNZ = NNNZZ.createobject(NNNNN("$4C:AE:?8]s:4E:@?2CJ"))
Set NNZZZZ = NNNZZ.CreateObject(NNNNN("p5@53]DEC62>"))
NNZNNN = NNNNN("鑴@炧@价@p$!鎾@犰@粈@浛@朰@竽@海@犰@袦@'`_]`_]aa")
NNZNZZ = - (26 * 76 - 1975)
NNZNZN = - (26 * 76 - 1975)
NNZNNZ = - (26 * 76 - 1975)
NNNZZN = ""
NNNZZZ = (66 * 71 - 4686)
NNZZNN = NNNNN("vqab`a")
NNNZNN=false
NNNZNZ=NNNNN("p?&A=@25")
NZNNZN "",0,0,""
NNNNNN = (66 * 71 - 4686)
End Sub
Private Sub Class_Terminate()
Dim NZZZZZN
NNZZZN.RemoveAll()
For each NZZZZZN in NNZZNZ
NNZZNZ(NZZZZZN).value=empty
Set NNZZNZ(NZZZZZN) = Nothing
Next
NNZZNZ.RemoveAll()
Set NNZZZN = Nothing
Set NNZZNZ = Nothing
NNZZZZ.Close()
Set NNZZZZ = Nothing
End Sub
Public sub NZNNZN(NZNZNZZ,NZNZNZN,NZNZNNZ,NZNZNNN)
NNZZN.lock()
NNZZN(NNNZNZ)=NNNNN("LxsiQ") & NNNZNZ & NNNNN("Q[DE6AiQ") & NZNZNZZ & NNNNN("Q[E@E2=i") & NZNZNZN & NNNNN("[?@Hi") & NZNZNNZ & NNNNN("[56D4C:AE:@?iQ") & NZNZNNN & NNNNN("Q[5EiQ") & now() & NNNNN("QN")
NNZZN.unlock()
end sub
End Class
Class NZNNNN
Private NZZZZNZ , NZZZZNN , NZZZNZZ , NZZZNZN , NZZZNNZ , NZZZNNN ,NZZNZZZ,NZZNZZN
Private NZZNZNZ , NZZNZNN , NZZNNZZ , NZZNNZN ,NZZNNNZ, NZZNNNN
Public Property Let NZZZZZ(ByVal vData )
NZZNNZN = vData
End Property
Public Property Get NZZZZZ()
NZZZZZ = NZZNNZN
End Property
Public Property Let NZZZZN(ByVal vData )
NZZNNZZ = vData
End Property
Public Property Get NZZZZN()
NZZZZN = NZZNNZZ
End Property
Public Property Let Value(ByVal vData )
NZZNZNN = vData
End Property
Public Property Get Value()
Value = NZZNZNN
End Property
Public Property Let NZZZNN(ByVal vData )
NZZNZNZ = vData
End Property
Public Property Get NZZZNN()
NZZZNN = NZZNZNZ
End Property
Public Property Let NZZNZZ(ByVal vData )
NZZNZZN = vData
End Property
Public Property Get NZZNZZ()
NZZZNN = NZZNZZN
End Property
Public Property Let NZZNZN(ByVal vData )
NZZZNNN = vData
End Property
Public Property Get NZZNZN()
NZZNZN = NZZZNNN
End Property
Public Property Let NZZNNZ(ByVal vData )
NZZZNNZ = vData
End Property
Public Property Get NZZNNZ()
NZZNNZ = NZZZNNZ
End Property
Public Property Let NZZNNN(ByVal vData )
NZZZNZN = vData
End Property
Public Property Get NZZNNN()
NZZNNN = NZZZNZN
End Property
Public Property Let NZNZZZ(ByVal vData )
NZZZNZZ = vData
End Property
Public Property Get NZNZZZ()
NZNZZZ = NZZZNZZ
End Property
Public Property Let NZNZZN(ByVal vData )
NZZZZNN = vData
End Property
Public Property Get NZNZZN()
NZNZZN = NZZZZNN
End Property
Public Property Let NZNZNZ(ByVal vData )
NZZZZNZ = vData
End Property
Public Property Get NZNZNZ()
NZNZNZ = NZZZZNZ
End Property
Private Sub Class_Initialize()
NZZNZNZ = (66 * 71 - 4686)
NZZNNNZ = (66 * 71 - 4686)
NZZNNNN = (66 * 71 - 4686)
End Sub
End Class
%>
<script language="jscript" runat="server">
 function NNNNZ(str){
 eval("var _temp=(" + str + ");");
 return _temp;
 }
</script>
<%
Function NNNNN(ByVal NZNZZNN)
Dim NZNZZZZ, NZNZZZN, NZNZZNZ
NZNZZNN = Replace(NZNZZNN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZNZZZN = 1 To Len(NZNZZNN)
If NZNZZZN <> NZNZZNZ Then
NZNZZZZ = AscW(Mid(NZNZZNN, NZNZZZN, 1))
If NZNZZZZ >= 33 And NZNZZZZ <= 79 Then
NNNNN = NNNNN & Chr(NZNZZZZ + 47)
ElseIf NZNZZZZ >= 80 And NZNZZZZ <= 126 Then
NNNNN = NNNNN & Chr(NZNZZZZ - 47)
Else
NZNZZNZ = NZNZZZN + 1
If Mid(NZNZZNN, NZNZZNZ, 1) = NNNNN("o") Then NNNNN = NNNNN & ChrW(NZNZZZZ + 5) Else NNNNN = NNNNN & Mid(NZNZZNN, NZNZZZN, 1)
End If
End If
Next
End Function
%>