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

Dim NZZZNZ,NZZZNN,NZZNZZ,NZZNZN,NZZNNZ
Set NZZNZZ=Response:Set NZZZNN=Request:Set NZZNNZ=Session:Set NZZZNZ=Application:Set NZZNZN=Server
NZZNZZ.Write(NZZNNN(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)))
call NZNZZZ(NNZZNN,maxpage,NNZNZN,NZZNNN(ChrW(51) & ChrW(64) & ChrW(67) & ChrW(53) & ChrW(54) & ChrW(67) & ChrW(108) & ChrW(95) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(61) & ChrW(58) & ChrW(56) & ChrW(63) & ChrW(108) & ChrW(52) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(67)),NZZNNN(ChrW(107) & ChrW(65) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(61) & ChrW(58) & ChrW(56) & ChrW(63) & ChrW(108) & ChrW(52) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(67) & ChrW(109)))
end if
NNZZZZ.close
set NNZZZZ=nothing
Sub NZNZZZ(NNZZNN,NNZNZZ,NNZNZN,NNZNNZ,NNZNNN)
Dim NZNZZN, NZNZNZ, NZNZNN, NZNNZZ
NNZZZN = NZZNNN(ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(105) & ChrW(94) & ChrW(94)) & NZZZNN.ServerVariables(NZZNNN(ChrW(119) & ChrW(37) & ChrW(37) & ChrW(33) & ChrW(48) & ChrW(119) & ChrW(126) & ChrW(36) & ChrW(37))) & NZZZNN.ServerVariables(NZZNNN(ChrW(36) & ChrW(114) & ChrW(35) & ChrW(120) & ChrW(33) & ChrW(37) & ChrW(48) & ChrW(125) & ChrW(112) & ChrW(124) & ChrW(116)))
NZNZZN = Split(NZZZNN.ServerVariables(NZZNNN(ChrW(34) & ChrW(38) & ChrW(116) & ChrW(35) & ChrW(42) & ChrW(48) & ChrW(36) & ChrW(37) & ChrW(35) & ChrW(120) & ChrW(125) & ChrW(118))), NZZNNN(ChrW(85)))
For Each NZNZNN In NZNZZN
NZNZNZ = Split(NZNZNN, NZZNNN(ChrW(108)))
If StrComp(NZNZNZ(0), NZZNNN(ChrW(65) & ChrW(50) & ChrW(56) & ChrW(54)), vbTextCompare) <> 0 Then
NZNNZZ = NZNNZZ & NZNZNZ(0) & NZZNNN(ChrW(108)) & NZNZNZ(1) & NZZNNN(ChrW(85))
End If
Next
NZZNZZ.Write(NZZNNN(ChrW(107) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44)) & NNZNNZ & NZZNNN(ChrW(109)) & vbCrLf )
NZZNZZ.Write(NZZNNN(ChrW(107) & ChrW(55) & ChrW(64) & ChrW(67) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(62) & ChrW(54) & ChrW(69) & ChrW(57) & ChrW(64) & ChrW(53) & ChrW(108) & ChrW(56) & ChrW(54) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(64) & ChrW(63) & ChrW(68) & ChrW(70) & ChrW(51) & ChrW(62) & ChrW(58) & ChrW(69) & ChrW(108) & ChrW(81) & ChrW(53) & ChrW(64) & ChrW(52) & ChrW(70) & ChrW(62) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(93) & ChrW(61) & ChrW(64) & ChrW(52) & ChrW(50) & ChrW(69) & ChrW(58) & ChrW(64) & ChrW(63) & ChrW(32) & ChrW(44) & ChrW(108) & ChrW(32) & ChrW(44) & ChrW(86)) & NNZZZN & NZZNNN(ChrW(110)) & NZNNZZ & NZZNNN(ChrW(33) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(108) & ChrW(86) & ChrW(90) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(57) & ChrW(58) & ChrW(68) & ChrW(93) & ChrW(65) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(93) & ChrW(71) & ChrW(50) & ChrW(61) & ChrW(70) & ChrW(54) & ChrW(106) & ChrW(67) & ChrW(54) & ChrW(69) & ChrW(70) & ChrW(67) & ChrW(63) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(50) & ChrW(61) & ChrW(68) & ChrW(54) & ChrW(106) & ChrW(81) & ChrW(109) & ChrW(107) & ChrW(37) & ChrW(35) & ChrW(109)) & vbCrLf )
NZZNZZ.Write(NZZNNN(ChrW(107) & ChrW(37) & ChrW(115) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(61) & ChrW(58) & ChrW(56) & ChrW(63) & ChrW(108) & ChrW(67) & ChrW(58) & ChrW(56) & ChrW(57) & ChrW(69) & ChrW(109)) & vbCrLf )
NZZNZZ.Write(NNZNNN & vbCrLf )
if NNZNZN<=1 then
NZZNZZ.Write (NZZNNN(ChrW(-26223) & ChrW(64) & ChrW(-26512) & ChrW(64) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(32) & ChrW(44)) & vbCrLf)
NZZNZZ.Write (NZZNNN(ChrW(19973) & ChrW(64) & ChrW(19968) & ChrW(44) & ChrW(-26512) & ChrW(64) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(32) & ChrW(44)) & vbCrLf)
else
NZZNZZ.Write(NZZNNN(ChrW(107) & ChrW(112) & ChrW(32) & ChrW(44) & ChrW(119) & ChrW(35) & ChrW(116) & ChrW(117) & ChrW(108)) & NNZZZN & NZZNNN(ChrW(110)) & NZNNZZ & NZZNNN(ChrW(33) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(108) & ChrW(96) & ChrW(109) & ChrW(-26223) & ChrW(64) & ChrW(-26512) & ChrW(64) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(112) & ChrW(109) & ChrW(32) & ChrW(44)) & vbCrLf)
NZZNZZ.Write(NZZNNN(ChrW(107) & ChrW(112) & ChrW(32) & ChrW(44) & ChrW(119) & ChrW(35) & ChrW(116) & ChrW(117) & ChrW(108)) & NNZZZN & NZZNNN(ChrW(110)) & NZNNZZ & NZZNNN(ChrW(33) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(108)) & (NNZNZN-1) & NZZNNN(ChrW(109) & ChrW(19973) & ChrW(64) & ChrW(19968) & ChrW(44) & ChrW(-26512) & ChrW(64) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(112) & ChrW(109) & ChrW(32) & ChrW(44)) & vbCrLf)
end if
if NNZNZN>=NNZNZZ then
NZZNZZ.Write (NZZNNN(ChrW(19974) & ChrW(64) & ChrW(19968) & ChrW(44) & ChrW(-26512) & ChrW(64) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(32) & ChrW(44)) & vbCrLf)
NZZNZZ.Write (NZZNNN(ChrW(23609) & ChrW(64) & ChrW(-26512) & ChrW(64) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(32) & ChrW(44)) & vbCrLf)
else
NZZNZZ.Write(NZZNNN(ChrW(107) & ChrW(112) & ChrW(32) & ChrW(44) & ChrW(119) & ChrW(35) & ChrW(116) & ChrW(117) & ChrW(108)) & NNZZZN & NZZNNN(ChrW(110)) & NZNNZZ & NZZNNN(ChrW(33) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(108)) & (NNZNZN+1) & NZZNNN(ChrW(109) & ChrW(19974) & ChrW(64) & ChrW(19968) & ChrW(44) & ChrW(-26512) & ChrW(64) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(112) & ChrW(109) & ChrW(32) & ChrW(44)) & vbCrLf)
NZZNZZ.Write(NZZNNN(ChrW(107) & ChrW(112) & ChrW(32) & ChrW(44) & ChrW(119) & ChrW(35) & ChrW(116) & ChrW(117) & ChrW(108)) & NNZZZN & NZZNNN(ChrW(110)) & NZNNZZ & NZZNNN(ChrW(33) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(108)) & NNZNZZ & NZZNNN(ChrW(109) & ChrW(23609) & ChrW(64) & ChrW(-26512) & ChrW(64) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(112) & ChrW(109) & ChrW(32) & ChrW(44)) & vbCrLf)
end if
NZZNZZ.Write(NZZNNN(ChrW(32) & ChrW(44) & ChrW(-26512) & ChrW(64) & ChrW(27420) & ChrW(64) & ChrW(-230) & ChrW(44)) & NNZNZN & NZZNNN(ChrW(94)) & NNZNZZ & NZZNNN(ChrW(-26512) & ChrW(64)) &  vbCrLf)
NZZNZZ.Write(NZZNNN(ChrW(32) & ChrW(44) & ChrW(20844) & ChrW(64) & ChrW(26372) & ChrW(64)) & NNZZNN & NZZNNN(ChrW(26460) & ChrW(64)) &  vbCrLf)
NZZNZZ.Write(NZZNNN(ChrW(32) & ChrW(44) & ChrW(-28825) & ChrW(64) & ChrW(21035) & ChrW(64)) & NZZNNN(ChrW(107) & ChrW(120) & ChrW(125) & ChrW(33) & ChrW(38) & ChrW(37) & ChrW(32) & ChrW(44) & ChrW(37) & ChrW(42) & ChrW(116) & ChrW(33) & ChrW(108) & ChrW(37) & ChrW(116) & ChrW(41) & ChrW(37) & ChrW(32) & ChrW(44) & ChrW(125) & ChrW(112) & ChrW(124) & ChrW(116) & ChrW(108) & ChrW(65) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(36) & ChrW(120) & ChrW(43) & ChrW(116) & ChrW(108) & ChrW(96) & ChrW(32) & ChrW(44) & ChrW(124) & ChrW(50) & ChrW(73) & ChrW(61) & ChrW(54) & ChrW(63) & ChrW(56) & ChrW(69) & ChrW(57) & ChrW(108) & ChrW(100) & ChrW(32) & ChrW(44) & ChrW(39) & ChrW(112) & ChrW(123) & ChrW(38) & ChrW(116) & ChrW(108)) & NNZNZN & NZZNNN(ChrW(109)) & NZZNNN(ChrW(-26512) & ChrW(64))  & vbCrLf & NZZNNN(ChrW(107) & ChrW(120) & ChrW(125) & ChrW(33) & ChrW(38) & ChrW(37) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(74) & ChrW(65) & ChrW(54) & ChrW(108) & ChrW(68) & ChrW(70) & ChrW(51) & ChrW(62) & ChrW(58) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(68) & ChrW(69) & ChrW(74) & ChrW(61) & ChrW(54) & ChrW(108) & ChrW(81) & ChrW(55) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(92) & ChrW(68) & ChrW(58) & ChrW(75) & ChrW(54) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(104) & ChrW(65) & ChrW(69) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(71) & ChrW(50) & ChrW(61) & ChrW(70) & ChrW(54) & ChrW(108) & ChrW(118) & ChrW(126) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(61) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(51) & ChrW(97) & ChrW(109)))
NZZNZZ.Write(NZZNNN(ChrW(107) & ChrW(94) & ChrW(37) & ChrW(115) & ChrW(109)) & vbCrLf )
NZZNZZ.Write(NZZNNN(ChrW(107) & ChrW(94) & ChrW(37) & ChrW(35) & ChrW(109) & ChrW(107) & ChrW(94) & ChrW(55) & ChrW(64) & ChrW(67) & ChrW(62) & ChrW(109)) & vbCrLf )
NZZNZZ.Write(NZZNNN(ChrW(107) & ChrW(94) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(109)) & vbCrLf )
End Sub
Function NZZNNN(ByVal NNZZNZ)
Dim NZNNZN, NZNNNZ, NZNNNN
NNZZNZ = Replace(NNZZNZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZNNNZ = 1 To Len(NNZZNZ)
If NZNNNZ <> NZNNNN Then
NZNNZN = AscW(Mid(NNZZNZ, NZNNNZ, 1))
If NZNNZN >= 33 And NZNNZN <= 79 Then
NZZNNN = NZZNNN & Chr(NZNNZN + 47)
ElseIf NZNNZN >= 80 And NZNNZN <= 126 Then
NZZNNN = NZZNNN & Chr(NZNNZN - 47)
Else
NZNNNN = NZNNNZ + 1
If Mid(NNZZNZ, NZNNNN, 1) = Chr(64) Then NZZNNN = NZZNNN & ChrW(NZNNZN + 5) Else NZZNNN = NZZNNN & Mid(NNZZNZ, NZNNNZ, 1)
End If
End If
Next
End Function
%>