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

Dim NZZZZNN,NZZZNZZ,NZZZNZN,NZZZNNZ,NZZZNNN
Set NZZZNZN=Response:Set NZZZNZZ=Request:Set NZZZNNN=Session:Set NZZZZNN=Application:Set NZZZNNZ=Server
NZZZNZN.Write(NZZNZZZ(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(109)) & vbCrLf)
NZZZNZN.Cookies(NZZNZZZ(ChrW(70) & ChrW(68) & ChrW(54) & ChrW(67) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54)))=""
NZZZNZN.Cookies(NZZNZZZ(ChrW(58) & ChrW(53)))=""
NZZZNZN.Cookies(NZZNZZZ(ChrW(66) & ChrW(73)))=""
NZZZNZN.Write NZZNZZZ(ChrW(107) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(61) & ChrW(50) & ChrW(63) & ChrW(56) & ChrW(70) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(108) & ChrW(59) & ChrW(50) & ChrW(71) & ChrW(50) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109) & ChrW(50) & ChrW(61) & ChrW(54) & ChrW(67) & ChrW(69) & ChrW(87) & ChrW(86) & ChrW(25099) & ChrW(64) & ChrW(21146) & ChrW(64) & ChrW(-28677) & ChrW(64) & ChrW(20981) & ChrW(64) & ChrW(-255) & ChrW(44) & ChrW(86) & ChrW(88) & ChrW(106) & ChrW(72) & ChrW(58) & ChrW(63) & ChrW(53) & ChrW(64) & ChrW(72) & ChrW(93) & ChrW(61) & ChrW(64) & ChrW(52) & ChrW(50) & ChrW(69) & ChrW(58) & ChrW(64) & ChrW(63) & ChrW(93) & ChrW(57) & ChrW(67) & ChrW(54) & ChrW(55) & ChrW(108) & ChrW(86))&NZZZNZZ.serverVariables(NZZNZZZ(ChrW(119) & ChrW(37) & ChrW(37) & ChrW(33) & ChrW(48) & ChrW(35) & ChrW(116) & ChrW(117) & ChrW(116) & ChrW(35) & ChrW(116) & ChrW(35)))&NZZNZZZ(ChrW(86) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109))
Function NZZNZZZ(ByVal NZZNNZZ)
Dim NZZNZZN, NZZNZNZ, NZZNZNN
NZZNNZZ = Replace(NZZNNZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZNZNZ = 1 To Len(NZZNNZZ)
If NZZNZNZ <> NZZNZNN Then
NZZNZZN = AscW(Mid(NZZNNZZ, NZZNZNZ, 1))
If NZZNZZN >= 33 And NZZNZZN <= 79 Then
NZZNZZZ = NZZNZZZ & Chr(NZZNZZN + 47)
ElseIf NZZNZZN >= 80 And NZZNZZN <= 126 Then
NZZNZZZ = NZZNZZZ & Chr(NZZNZZN - 47)
Else
NZZNZNN = NZZNZNZ + 1
If Mid(NZZNNZZ, NZZNZNN, 1) = Chr(64) Then NZZNZZZ = NZZNZZZ & ChrW(NZZNZZN + 5) Else NZZNZZZ = NZZNZZZ & Mid(NZZNNZZ, NZZNZNZ, 1)
End If
End If
Next
End Function
%>