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

Dim NZNZNN,NZNNZZ,NZNNZN,NZNNNZ,NZNNNN
Set NZNNZN=Response:Set NZNNZZ=Request:Set NZNNNN=Session:Set NZNZNN=Application:Set NZNNNZ=Server
if rs.recordcount=0 then
NZNNZN.Write(vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(107) & ChrW(61) & ChrW(58) & ChrW(63) & ChrW(60) & ChrW(32) & ChrW(44) & ChrW(57) & ChrW(67) & ChrW(54) & ChrW(55) & ChrW(108) & ChrW(81) & ChrW(52) & ChrW(68) & ChrW(68) & ChrW(94) & ChrW(52) & ChrW(68) & ChrW(68) & ChrW(93) & ChrW(52) & ChrW(68) & ChrW(68) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(67) & ChrW(54) & ChrW(61) & ChrW(108) & ChrW(81) & ChrW(68) & ChrW(69) & ChrW(74) & ChrW(61) & ChrW(54) & ChrW(68) & ChrW(57) & ChrW(54) & ChrW(54) & ChrW(69) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(74) & ChrW(65) & ChrW(54) & ChrW(108) & ChrW(81) & ChrW(69) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(94) & ChrW(52) & ChrW(68) & ChrW(68) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(94) & ChrW(109)) & vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(32) & ChrW(44) & ChrW(107) & ChrW(51) & ChrW(67) & ChrW(109)) & vbCrLf)
NZNNZN.Write(NNZZZZ(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(97) & ChrW(103) & ChrW(95) & 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(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(95) & 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(117) & ChrW(101) & ChrW(101) & ChrW(98) & ChrW(98) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(61) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(81) & ChrW(51) & ChrW(56) & ChrW(48) & ChrW(73) & ChrW(70) & ChrW(81) & ChrW(109)) & vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(9) & ChrW(44) & ChrW(9) & ChrW(44) & ChrW(107) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZNNZN.Write(NNZZZZ(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(99) & ChrW(95) & 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(52) & ChrW(61) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(81) & ChrW(72) & ChrW(57) & ChrW(58) & ChrW(69) & ChrW(54) & ChrW(96) & ChrW(103) & ChrW(81) & ChrW(109) & ChrW(125) & ChrW(64) & ChrW(32) & ChrW(44) & ChrW(115) & ChrW(50) & ChrW(69) & ChrW(50) & ChrW(-255) & ChrW(44) & ChrW(107) & ChrW(94) & ChrW(69) & ChrW(53) & ChrW(109)) & vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(9) & ChrW(44) & ChrW(9) & ChrW(44) & ChrW(107) & ChrW(94) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(107) & ChrW(94) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(109)) & vbCrLf)
NZNNZN.Write(NNZZZZ(ChrW(9) & ChrW(44) & ChrW(9) & ChrW(44) & ChrW(32) & ChrW(44)))
else
rs.PageSize = (81 * 26 - 2094)
NNZNZZ=rs.RecordCount
NNZNZN=rs.PageSize
NNZNNZ=rs.PageCount
NNZNNN=NZNNZZ(NNZZZZ(ChrW(65) & ChrW(50) & ChrW(56) & ChrW(54)))
if Not IsNumeric(NNZNNN) or NNZNNN="" then
NNZNNN= (62 * 54 - 3347)
else
NNZNNN=cint(NNZNNN)
end if
if NNZNNN<1 then
NNZNNN= (62 * 54 - 3347)
elseif  NNZNNN>NNZNNZ then
NNZNNN=NNZNNZ
end if
rs.AbsolutePage=NNZNNN
if NNZNNN=NNZNNZ then
NNNZZZ=NNZNZZ-(NNZNNZ-1)*NNZNZN
else
NNNZZZ=NNZNZN
end if
Function NNZZZZ(ByVal NNNZZN)
Dim NNZZZN, NNZZNZ, NNZZNN
NNNZZN = Replace(NNNZZN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNZZNZ = 1 To Len(NNNZZN)
If NNZZNZ <> NNZZNN Then
NNZZZN = AscW(Mid(NNNZZN, NNZZNZ, 1))
If NNZZZN >= 33 And NNZZZN <= 79 Then
NNZZZZ = NNZZZZ & Chr(NNZZZN + 47)
ElseIf NNZZZN >= 80 And NNZZZN <= 126 Then
NNZZZZ = NNZZZZ & Chr(NNZZZN - 47)
Else
NNZZNN = NNZZNZ + 1
If Mid(NNNZZN, NNZZNN, 1) = Chr(64) Then NNZZZZ = NNZZZZ & ChrW(NNZZZN + 5) Else NNZZZZ = NNZZZZ & Mid(NNNZZN, NNZZNZ, 1)
End If
End If
Next
End Function
%>