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

Dim NZZNNZ,NZZNNN,NZNZZZ,NZNZZN,NZNZNZ
Set NZNZZZ=Response:Set NZZNNN=Request:Set NZNZNZ=Session:Set NZZNNZ=Application:Set NZNZZN=Server
if rs.recordcount=0 then
NZNZZZ.Write(vbCrLf)
NZNZZZ.Write(NZNZNN(ChrW(32) & ChrW(44) & ChrW(107) & ChrW(51) & ChrW(67) & ChrW(109)) & vbCrLf)
NZNZZZ.Write(NZNZNN(ChrW(32) & ChrW(44) & ChrW(107) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(58) & ChrW(53) & ChrW(69) & ChrW(57) & ChrW(108) & ChrW(81) & ChrW(99) & ChrW(95) & ChrW(84) & ChrW(81) & 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(96) & 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(81) & ChrW(32) & ChrW(44) & ChrW(51) & ChrW(64) & ChrW(67) & ChrW(53) & ChrW(54) & ChrW(67) & 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(117) & ChrW(117) & 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(95) & ChrW(117) & ChrW(95) & ChrW(117) & ChrW(95) & ChrW(81) & ChrW(109)) & vbCrLf)
NZNZZZ.Write(NZNZNN(ChrW(9) & ChrW(44) & ChrW(9) & ChrW(44) & ChrW(107) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZNZZZ.Write(NZNZNN(ChrW(9) & ChrW(44) & ChrW(9) & ChrW(44) & ChrW(107) & ChrW(69) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(57) & ChrW(54) & ChrW(58) & ChrW(56) & ChrW(57) & ChrW(69) & ChrW(108) & ChrW(81) & ChrW(97) & ChrW(100) & ChrW(81) & 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(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(117) & ChrW(117) & ChrW(81) & ChrW(109) & ChrW(31990) & ChrW(64) & ChrW(32474) & ChrW(64) & ChrW(25547) & ChrW(64) & ChrW(-28275) & ChrW(64) & ChrW(24739) & ChrW(64) & ChrW(-244) & ChrW(44) & ChrW(26237) & ChrW(64) & ChrW(26075) & ChrW(64) & ChrW(25963) & ChrW(64) & ChrW(25449) & ChrW(64) & ChrW(93) & ChrW(93) & ChrW(93) & ChrW(107) & ChrW(94) & ChrW(69) & ChrW(53) & ChrW(109)) & vbCrLf)
NZNZZZ.Write(NZNZNN(ChrW(9) & ChrW(44) & ChrW(9) & ChrW(44) & ChrW(107) & ChrW(94) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZNZZZ.Write(NZNZNN(ChrW(107) & ChrW(94) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(109)) & vbCrLf)
NZNZZZ.Write(NZNZNN(ChrW(9) & ChrW(44) & ChrW(9) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(51) & ChrW(67) & ChrW(32) & ChrW(44) & ChrW(94) & ChrW(109)) & vbCrLf)
NZNZZZ.Write(NZNZNN(ChrW(9) & ChrW(44) & ChrW(9) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(51) & ChrW(67) & ChrW(32) & ChrW(44) & ChrW(94) & ChrW(109)) & vbCrLf)
NZNZZZ.Write(NZNZNN(ChrW(9) & ChrW(44) & ChrW(9) & ChrW(44) & ChrW(32) & ChrW(44)))
else
rs.PageSize = (79 * 77 - 6068)
NZNNNN=rs.RecordCount
NNZZZZ=rs.PageSize
NNZZZN=rs.PageCount
NNZZNZ=NZZNNN(NZNZNN(ChrW(65) & ChrW(50) & ChrW(56) & ChrW(54)))
if Not IsNumeric(NNZZNZ) or NNZZNZ="" then
NNZZNZ= (88 * 86 - 7567)
else
NNZZNZ=cint(NNZZNZ)
end if
if NNZZNZ<1 then
NNZZNZ= (88 * 86 - 7567)
elseif  NNZZNZ>NNZZZN then
NNZZNZ=NNZZZN
end if
rs.AbsolutePage=NNZZNZ
if NNZZNZ=NNZZZN then
NNZZNN=NZNNNN-(NNZZZN-1)*NNZZZZ
else
NNZZNN=NNZZZZ
end if
Function NZNZNN(ByVal NNZNZZ)
Dim NZNNZZ, NZNNZN, NZNNNZ
NNZNZZ = Replace(NNZNZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZNNZN = 1 To Len(NNZNZZ)
If NZNNZN <> NZNNNZ Then
NZNNZZ = AscW(Mid(NNZNZZ, NZNNZN, 1))
If NZNNZZ >= 33 And NZNNZZ <= 79 Then
NZNZNN = NZNZNN & Chr(NZNNZZ + 47)
ElseIf NZNNZZ >= 80 And NZNNZZ <= 126 Then
NZNZNN = NZNZNN & Chr(NZNNZZ - 47)
Else
NZNNNZ = NZNNZN + 1
If Mid(NNZNZZ, NZNNNZ, 1) = Chr(64) Then NZNZNN = NZNZNN & ChrW(NZNNZZ + 5) Else NZNZNN = NZNZNN & Mid(NNZNZZ, NZNNZN, 1)
End If
End If
Next
End Function
%>