<%
'开发商：金华市宁志网络科技有限公司
'官方网址： http://www.ningzhi.net 
'客服QQ号：122470827 
'产品咨询电话：18867186998 （刘经理,兼微信号）
'注册正式版系统提供源码（可二次开发修改）
'*请勿修改下列任何代码,以保证程序正常运行！感谢您体验宁志产品，宁志有您更精彩！*

Dim NNZNZN,NNZNNZ,NNZNNN,NNNZZZ,NNNZZN
Set NNZNNN=Response:Set NNZNNZ=Request:Set NNNZZN=Session:Set NNZNZN=Application:Set NNNZZZ=Server
Set NNNNNZ=NNNZZZ.CreateObject(NNNZNZ(ChrW(112) & ChrW(115) & ChrW(126) & ChrW(115) & ChrW(113) & ChrW(93) & ChrW(114) & ChrW(64) & ChrW(63) & ChrW(63) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(58) & ChrW(64) & ChrW(63)))
NNNNNZ.open NNNZNZ(ChrW(65) & ChrW(67) & ChrW(64) & ChrW(71) & ChrW(58) & ChrW(53) & ChrW(54) & ChrW(67) & ChrW(108) & ChrW(68) & ChrW(66) & ChrW(61) & ChrW(64) & ChrW(61) & ChrW(54) & ChrW(53) & ChrW(51) & ChrW(106) & ChrW(53) & ChrW(50) & ChrW(69) & ChrW(50) & ChrW(32) & ChrW(44) & ChrW(68) & ChrW(64) & ChrW(70) & ChrW(67) & ChrW(52) & ChrW(54) & ChrW(108) & ChrW(96) & ChrW(97) & ChrW(102) & ChrW(93) & ChrW(95) & ChrW(93) & ChrW(95) & ChrW(93) & ChrW(96) & ChrW(106) & ChrW(38) & ChrW(68) & ChrW(54) & ChrW(67) & ChrW(32) & ChrW(44) & ChrW(120) & ChrW(115) & ChrW(108) & ChrW(68) & ChrW(50) & ChrW(106) & ChrW(65) & ChrW(72) & ChrW(53) & ChrW(108) & ChrW(68) & ChrW(50) & ChrW(106) & ChrW(120) & ChrW(63) & ChrW(58) & ChrW(69) & ChrW(58) & ChrW(50) & ChrW(61) & ChrW(32) & ChrW(44) & ChrW(114) & ChrW(50) & ChrW(69) & ChrW(50) & ChrW(61) & ChrW(64) & ChrW(56) & ChrW(108) & ChrW(66) & ChrW(74))
Function NNNZNZ(ByVal NNNNNN)
Dim NNNZNN, NNNNZZ, NNNNZN
NNNNNN = Replace(NNNNNN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNNNZZ = 1 To Len(NNNNNN)
If NNNNZZ <> NNNNZN Then
NNNZNN = AscW(Mid(NNNNNN, NNNNZZ, 1))
If NNNZNN >= 33 And NNNZNN <= 79 Then
NNNZNZ = NNNZNZ & Chr(NNNZNN + 47)
ElseIf NNNZNN >= 80 And NNNZNN <= 126 Then
NNNZNZ = NNNZNZ & Chr(NNNZNN - 47)
Else
NNNNZN = NNNNZZ + 1
If Mid(NNNNNN, NNNNZN, 1) = Chr(64) Then NNNZNZ = NNNZNZ & ChrW(NNNZNN + 5) Else NNNZNZ = NNNZNZ & Mid(NNNNNN, NNNNZZ, 1)
End If
End If
Next
End Function
%>