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

Dim NNNZN,NNNNZ,NNNNN,NZZZZZ,NZZZZN
Set NNNNN=Response:Set NNNNZ=Request:Set NZZZZN=Session:Set NNNZN=Application:Set NZZZZZ=Server
if instr(NNNNZ.servervariables(NZZZNZ("9EEA0FD6C0286?E")),NZZZNZ("|@3:=6"))>0 then
NNNNN.Redirect(NZZZNZ("H2A^:?56I]2DA"))
else
NNNNN.Redirect(NZZZNZ(":?56I]2DA"))
end if
Function NZZZNZ(ByVal NZZNNZ)
Dim NZZZNN, NZZNZZ, NZZNZN
NZZNNZ = Replace(NZZNNZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZNZZ = 1 To Len(NZZNNZ)
If NZZNZZ <> NZZNZN Then
NZZZNN = AscW(Mid(NZZNNZ, NZZNZZ, 1))
If NZZZNN >= 33 And NZZZNN <= 79 Then
NZZZNZ = NZZZNZ & Chr(NZZZNN + 47)
ElseIf NZZZNN >= 80 And NZZZNN <= 126 Then
NZZZNZ = NZZZNZ & Chr(NZZZNN - 47)
Else
NZZNZN = NZZNZZ + 1
If Mid(NZZNNZ, NZZNZN, 1) = NZZZNZ("o") Then NZZZNZ = NZZZNZ & ChrW(NZZZNN + 5) Else NZZZNZ = NZZZNZ & Mid(NZZNNZ, NZZNZZ, 1)
End If
End If
Next
End Function
%>