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

Dim NNNNN,NZZZZZ,NZZZZN,NZZZNZ,NZZZNN
Set NZZZZN=Response:Set NZZZZZ=Request:Set NZZZNN=Session:Set NNNNN=Application:Set NZZZNZ=Server
NZZZZN.Write(NZZNZZ("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQm") & vbCrLf)
NZZZZN.Cookies(NZZNZZ("FD6C?2>6"))=""
NZZZZN.Cookies(NZZNZZ(":5"))=""
NZZZZN.Cookies(NZZNZZ("BI"))=""
NZZZNN(NZZNZZ("FD6C?2>6"))=""
NZZZNN(NZZNZZ(":5"))=""
NZZZNN(NZZNZZ("BI"))=""
NZZZZN.Write NZZNZZ("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV戋@劚@迻@凵@！,VXjH:?5@H]=@42E:@?]9C67lV")&NZZZZZ.serverVariables(NZZNZZ("w%%!0#tut#t#"))&NZZNZZ("Vjk^D4C:AEm")
Function NZZNZZ(ByVal NZNZZZ)
Dim NZZNZN, NZZNNZ, NZZNNN
NZNZZZ = Replace(NZNZZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZNNZ = 1 To Len(NZNZZZ)
If NZZNNZ <> NZZNNN Then
NZZNZN = AscW(Mid(NZNZZZ, NZZNNZ, 1))
If NZZNZN >= 33 And NZZNZN <= 79 Then
NZZNZZ = NZZNZZ & Chr(NZZNZN + 47)
ElseIf NZZNZN >= 80 And NZZNZN <= 126 Then
NZZNZZ = NZZNZZ & Chr(NZZNZN - 47)
Else
NZZNNN = NZZNNZ + 1
If Mid(NZNZZZ, NZZNNN, 1) = NZZNZZ("o") Then NZZNZZ = NZZNZZ & ChrW(NZZNZN + 5) Else NZZNZZ = NZZNZZ & Mid(NZNZZZ, NZZNNZ, 1)
End If
End If
Next
End Function
%>