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

Dim NZNZNN,NZNNZZ,NZNNZN,NZNNNZ,NZNNNN
Set NZNNZN=Response:Set NZNNZZ=Request:Set NZNNNN=Session:Set NZNZNN=Application:Set NZNNNZ=Server
NZNNZN.Write(NNZZZZ(ChrW(107) & ChrW(62) & ChrW(54) & ChrW(69) & ChrW(50) & ChrW(32) & ChrW(44) & ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(92) & ChrW(54) & ChrW(66) & ChrW(70) & ChrW(58) & ChrW(71) & ChrW(108) & ChrW(81) & ChrW(114) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(92) & ChrW(37) & ChrW(74) & ChrW(65) & ChrW(54) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(108) & ChrW(81) & ChrW(69) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(94) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61) & ChrW(106) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(57) & ChrW(50) & ChrW(67) & ChrW(68) & ChrW(54) & ChrW(69) & ChrW(108) & ChrW(56) & ChrW(51) & ChrW(97) & ChrW(98) & ChrW(96) & ChrW(97) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(94) & ChrW(109)) & vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(32) & ChrW(44)) & vbCrLf)
if NZNNZZ.Cookies(NNZZZZ(ChrW(70) & ChrW(68) & ChrW(54) & ChrW(67) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54)))="" or NZNNZZ.Cookies(NNZZZZ(ChrW(58) & ChrW(53)))="" then
NZNNZN.Write(vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(32) & ChrW(44)) & vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44)) & vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(107) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(51) & ChrW(64) & ChrW(67) & ChrW(53) & ChrW(54) & ChrW(67) & ChrW(108) & ChrW(81) & ChrW(95) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(61) & ChrW(58) & ChrW(56) & ChrW(63) & ChrW(108) & ChrW(81) & ChrW(52) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(67) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(54) & ChrW(61) & ChrW(61) & ChrW(65) & ChrW(50) & ChrW(53) & ChrW(53) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(108) & ChrW(81) & ChrW(98) & ChrW(95) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(54) & ChrW(61) & ChrW(61) & ChrW(68) & ChrW(65) & ChrW(50) & ChrW(52) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(108) & ChrW(81) & ChrW(96) & ChrW(95) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(51) & ChrW(56) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(64) & ChrW(67) & ChrW(108) & ChrW(81) & ChrW(82) & ChrW(117) & ChrW(117) & ChrW(104) & ChrW(104) & ChrW(95) & ChrW(95) & ChrW(81) & ChrW(109)) & vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(69) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(51) & ChrW(56) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(64) & ChrW(67) & ChrW(108) & ChrW(81) & ChrW(82) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(114) & ChrW(114) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(61) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(81) & ChrW(65) & ChrW(96) & ChrW(101) & ChrW(81) & ChrW(109) & ChrW(24739) & ChrW(64) & ChrW(-29766) & ChrW(64) & ChrW(-27159) & ChrW(64) & ChrW(30335) & ChrW(64) & ChrW(-26512) & ChrW(64) & ChrW(-26787) & ChrW(64) & ChrW(-26885) & ChrW(64) & ChrW(30326) & ChrW(64) & ChrW(24400) & ChrW(64) & ChrW(21513) & ChrW(64) & ChrW(25160) & ChrW(64) & ChrW(-32520) & ChrW(64) & ChrW(-27136) & ChrW(64) & ChrW(-30269) & ChrW(64) & ChrW(-244) & ChrW(44) & ChrW(27486) & ChrW(64) & ChrW(22307) & ChrW(64) & ChrW(20021) & ChrW(64) & ChrW(24739) & ChrW(64) & ChrW(-28825) & ChrW(64) & ChrW(20832) & ChrW(64) & ChrW(30326) & ChrW(64) & ChrW(24400) & ChrW(64) & ChrW(-26512) & ChrW(64) & ChrW(-26787) & ChrW(64) & ChrW(-29710) & ChrW(64) & ChrW(31240) & ChrW(64) & ChrW(21513) & ChrW(64) & ChrW(93) & ChrW(93) & ChrW(93) & ChrW(93) & ChrW(93) & ChrW(93) & ChrW(107) & ChrW(94) & ChrW(69) & ChrW(53) & ChrW(109)) & vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(94) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(107) & ChrW(94) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(109)) & vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(107) & ChrW(62) & ChrW(54) & ChrW(69) & ChrW(50) & ChrW(32) & ChrW(44) & ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(92) & ChrW(54) & ChrW(66) & ChrW(70) & ChrW(58) & ChrW(71) & ChrW(108) & ChrW(81) & ChrW(67) & ChrW(54) & ChrW(55) & ChrW(67) & ChrW(54) & ChrW(68) & ChrW(57) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(108) & ChrW(81) & ChrW(96) & ChrW(106) & ChrW(70) & ChrW(67) & ChrW(61) & ChrW(108) & ChrW(94) & ChrW(81) & ChrW(109)) & vbCrLf)
NZNNZN.end
end if
Function NNZZZZ(ByVal NNZNZZ)
Dim NNZZZN, NNZZNZ, NNZZNN
NNZNZZ = Replace(NNZNZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNZZNZ = 1 To Len(NNZNZZ)
If NNZZNZ <> NNZZNN Then
NNZZZN = AscW(Mid(NNZNZZ, NNZZNZ, 1))
If NNZZZN >= 33 And NNZZZN <= 79 Then
NNZZZZ = NNZZZZ & Chr(NNZZZN + 47)
ElseIf NNZZZN >= 80 And NNZZZN <= 126 Then
NNZZZZ = NNZZZZ & Chr(NNZZZN - 47)
Else
NNZZNN = NNZZNZ + 1
If Mid(NNZNZZ, NNZZNN, 1) = Chr(64) Then NNZZZZ = NNZZZZ & ChrW(NNZZZN + 5) Else NNZZZZ = NNZZZZ & Mid(NNZNZZ, NNZZNZ, 1)
End If
End If
Next
End Function
%>