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

Dim NZZZZZ,NZZZZN,NZZZNZ,NZZZNN,NZZNZZ
Set NZZZNZ=Response:Set NZZZZN=Request:Set NZZNZZ=Session:Set NZZZZZ=Application:Set NZZZNN=Server
If NZZZZN.ServerVariables(NZZNZN(ChrW(36) & ChrW(116) & ChrW(35) & ChrW(39) & ChrW(116) & ChrW(35) & ChrW(48) & ChrW(125) & ChrW(112) & ChrW(124) & ChrW(116)))<>NZZNZN(ChrW(61) & ChrW(64) & ChrW(52) & ChrW(50) & ChrW(61) & ChrW(57) & ChrW(64) & ChrW(68) & ChrW(69)) Then
If NZZZZN.ServerVariables(NZZNZN(ChrW(36) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(48) & ChrW(125) & ChrW(50) & ChrW(62) & ChrW(54)))<>NZZNZN(ChrW(94) & ChrW(58) & ChrW(63) & ChrW(53) & ChrW(54) & ChrW(73) & ChrW(93) & ChrW(50) & ChrW(68) & ChrW(65)) Then
NZZZNZ.Write(NZZNZN(ChrW(107) & ChrW(68) & ChrW(69) & ChrW(74) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(74) & ChrW(65) & ChrW(54) & ChrW(108) & ChrW(81) & ChrW(69) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(94) & ChrW(52) & ChrW(68) & ChrW(68) & ChrW(81) & ChrW(109)) & vbCrLf)
NZZZNZ.Write(NZZNZN(ChrW(107) & ChrW(80) & ChrW(92) & ChrW(92)) & vbCrLf)
NZZZNZ.Write(NZZNZN(ChrW(93) & ChrW(69) & ChrW(68) & ChrW(60) & ChrW(60) & ChrW(32) & ChrW(44) & ChrW(76)) & vbCrLf)
NZZZNZ.Write(NZZNZN(ChrW(9) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(64) & ChrW(67) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(82) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(106)) & vbCrLf)
NZZZNZ.Write(NZZNZN(ChrW(9) & ChrW(44) & ChrW(51) & ChrW(50) & ChrW(52) & ChrW(60) & ChrW(56) & ChrW(67) & ChrW(64) & ChrW(70) & ChrW(63) & ChrW(53) & ChrW(92) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(64) & ChrW(67) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(82) & ChrW(98) & ChrW(98) & ChrW(98) & ChrW(98) & ChrW(98) & ChrW(98) & ChrW(106)) & vbCrLf)
NZZZNZ.Write(NZZNZN(ChrW(9) & ChrW(44) & ChrW(57) & ChrW(54) & ChrW(58) & ChrW(56) & ChrW(57) & ChrW(69) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(96) & ChrW(95) & ChrW(95) & ChrW(84) & ChrW(106)) & vbCrLf)
NZZZNZ.Write(NZZNZN(ChrW(9) & ChrW(44) & ChrW(72) & ChrW(58) & ChrW(53) & ChrW(69) & ChrW(57) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(96) & ChrW(95) & ChrW(95) & ChrW(84) & ChrW(106)) & vbCrLf)
NZZZNZ.Write(NZZNZN(ChrW(9) & ChrW(44) & ChrW(51) & ChrW(50) & ChrW(52) & ChrW(60) & ChrW(56) & ChrW(67) & ChrW(64) & ChrW(70) & ChrW(63) & ChrW(53) & ChrW(92) & ChrW(65) & ChrW(64) & ChrW(68) & ChrW(58) & ChrW(69) & ChrW(58) & ChrW(64) & ChrW(63) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(67) & ChrW(106)) & vbCrLf)
NZZZNZ.Write(NZZNZN(ChrW(9) & ChrW(44) & ChrW(69) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(92) & ChrW(50) & ChrW(61) & ChrW(58) & ChrW(56) & ChrW(63) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(61) & ChrW(54) & ChrW(55) & ChrW(69) & ChrW(106)) & vbCrLf)
NZZZNZ.Write(NZZNZN(ChrW(9) & ChrW(44) & ChrW(65) & ChrW(50) & ChrW(53) & ChrW(53) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(96) & ChrW(100) & ChrW(95) & ChrW(65) & ChrW(73) & ChrW(32) & ChrW(44) & ChrW(96) & ChrW(95) & ChrW(65) & ChrW(73) & ChrW(32) & ChrW(44) & ChrW(96) & ChrW(95) & ChrW(65) & ChrW(73) & ChrW(32) & ChrW(44) & ChrW(97) & ChrW(95) & ChrW(95) & ChrW(65) & ChrW(73) & ChrW(106)) & vbCrLf)
NZZZNZ.Write(NZZNZN(ChrW(9) & ChrW(44) & ChrW(55) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(96) & ChrW(103) & ChrW(65) & ChrW(73) & ChrW(94) & ChrW(100) & ChrW(95) & ChrW(65) & ChrW(73) & ChrW(32) & ChrW(44) & ChrW(81) & ChrW(24489) & ChrW(64) & ChrW(-28822) & ChrW(64) & ChrW(-26944) & ChrW(64) & ChrW(-24884) & ChrW(64) & ChrW(81) & ChrW(106)) & vbCrLf)
NZZZNZ.Write(NZZNZN(ChrW(78)) & vbCrLf)
NZZZNZ.Write(NZZNZN(ChrW(92) & ChrW(92) & ChrW(109)) & vbCrLf)
NZZZNZ.Write(NZZNZN(ChrW(107) & ChrW(94) & ChrW(68) & ChrW(69) & ChrW(74) & ChrW(61) & ChrW(54) & ChrW(109)) & vbCrLf)
NZZZNZ.Write(NZZNZN(ChrW(107) & ChrW(53) & ChrW(58) & ChrW(71) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(61) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(81) & ChrW(69) & ChrW(68) & ChrW(60) & ChrW(60) & ChrW(81) & ChrW(109)))
NZZZNZ.Write  nzcms_wenjian15
NZZZNZ.Write(vbCrLf)
NZZZNZ.Write(NZZNZN(ChrW(107) & ChrW(94) & ChrW(53) & ChrW(58) & ChrW(71) & ChrW(109)) & vbCrLf)
NZZZNZ.end
End If
End If
Function NZZNZN(ByVal NZNZZN)
Dim NZZNNZ, NZZNNN, NZNZZZ
NZNZZN = Replace(NZNZZN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZNNN = 1 To Len(NZNZZN)
If NZZNNN <> NZNZZZ Then
NZZNNZ = AscW(Mid(NZNZZN, NZZNNN, 1))
If NZZNNZ >= 33 And NZZNNZ <= 79 Then
NZZNZN = NZZNZN & Chr(NZZNNZ + 47)
ElseIf NZZNNZ >= 80 And NZZNNZ <= 126 Then
NZZNZN = NZZNZN & Chr(NZZNNZ - 47)
Else
NZNZZZ = NZZNNN + 1
If Mid(NZNZZN, NZNZZZ, 1) = Chr(64) Then NZZNZN = NZZNZN & ChrW(NZZNNZ + 5) Else NZZNZN = NZZNZN & Mid(NZNZZN, NZZNNN, 1)
End If
End If
Next
End Function
%>