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

Dim NZNZNZ,NZNZNN,NZNNZZ,NZNNZN,NZNNNZ
Set NZNNZZ=Response:Set NZNZNN=Request:Set NZNNNZ=Session:Set NZNZNZ=Application:Set NZNNZN=Server
if rs.recordcount=0 then
NZNNZZ.Write(vbCrLf)
NZNNZZ.Write(NZNNNN(ChrW(32) & ChrW(44) & ChrW(107) & ChrW(51) & ChrW(67) & ChrW(109)) & vbCrLf)
NZNNZZ.Write(NZNNNN(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)
NZNNZZ.Write(NZNNNN(ChrW(9) & ChrW(44) & ChrW(9) & ChrW(44) & ChrW(107) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZNNZZ.Write(NZNNNN(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)
NZNNZZ.Write(NZNNNN(ChrW(9) & ChrW(44) & ChrW(9) & ChrW(44) & ChrW(107) & ChrW(94) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZNNZZ.Write(NZNNNN(ChrW(107) & ChrW(94) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(109)) & vbCrLf)
NZNNZZ.Write(NZNNNN(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)
NZNNZZ.Write(NZNNNN(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)
NZNNZZ.Write(NZNNNN(ChrW(9) & ChrW(44) & ChrW(9) & ChrW(44) & ChrW(32) & ChrW(44)))
else
rs.PageSize = (72 * 108 - 7761)
NNZZNN=rs.RecordCount
NNZNZZ=rs.PageSize
NNZNZN=rs.PageCount
NNZNNZ=NZNZNN(NZNNNN(ChrW(65) & ChrW(50) & ChrW(56) & ChrW(54)))
if Not IsNumeric(NNZNNZ) or NNZNNZ="" then
NNZNNZ= (47 * 23 - 1080)
else
NNZNNZ=cint(NNZNNZ)
end if
if NNZNNZ<1 then
NNZNNZ= (47 * 23 - 1080)
elseif  NNZNNZ>NNZNZN then
NNZNNZ=NNZNZN
end if
rs.AbsolutePage=NNZNNZ
if NNZNNZ=NNZNZN then
NNZNNN=NNZZNN-(NNZNZN-1)*NNZNZZ
else
NNZNNN=NNZNZZ
end if
Function NZNNNN(ByVal NNNZZZ)
Dim NNZZZZ, NNZZZN, NNZZNZ
NNNZZZ = Replace(NNNZZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNZZZN = 1 To Len(NNNZZZ)
If NNZZZN <> NNZZNZ Then
NNZZZZ = AscW(Mid(NNNZZZ, NNZZZN, 1))
If NNZZZZ >= 33 And NNZZZZ <= 79 Then
NZNNNN = NZNNNN & Chr(NNZZZZ + 47)
ElseIf NNZZZZ >= 80 And NNZZZZ <= 126 Then
NZNNNN = NZNNNN & Chr(NNZZZZ - 47)
Else
NNZZNZ = NNZZZN + 1
If Mid(NNNZZZ, NNZZNZ, 1) = Chr(64) Then NZNNNN = NZNNNN & ChrW(NNZZZZ + 5) Else NZNNNN = NZNNNN & Mid(NNNZZZ, NNZZZN, 1)
End If
End If
Next
End Function
%>