<%
'此版本为免费下载的（试用版本）源码加密处理过
'购买正式版系统提供源码（支持二次开发，修改）
'系统服务商：金华市宁志网络科技有限公司
'公司网址：http://www.ningzhi.net 
'客服QQ号：122470827 电话：18867186998 （同微信号）刘经理
'全国统一售后电话：0579-83938663 
'支持正版：软件著作权登记号：2012SR040914
'官方平台：购买系统请上金华市宁志网络公司官网平台是唯一购买渠道
'本公司无第三方代销售平台请认准,以免上当受骗！！！
'请勿修改下列任何代码,以保证程序正常运行·感谢您体验宁志产品，宁志有您更精彩！
'TM:2023-08-09 15:27:52

Dim NZZNNZ,NZZNNN,NZNZZZ,NZNZZN,NZNZNZ
Set NZNZZZ=Response:Set NZZNNN=Request:Set NZNZNZ=Session:Set NZZNNZ=Application:Set NZNZZN=Server
NZNZZZ.Write(NZNZNN("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQ ,^m") & vbCrLf)
NZNZZZ.Write(NZNZNN(" ,"))
if rs.recordcount=0 then
NZNZZZ.Write(vbCrLf)
NZNZZZ.Write(NZNZNN(" ,k=:?< ,9C67lQ4DD^4DD]4DDQ ,C6=lQDEJ=6D966EQ ,EJA6lQE6IE^4DDQm") & vbCrLf)
NZNZZZ.Write(NZNZNN("k3Cm") & vbCrLf)
NZNZZZ.Write(NZNZNN(" ,kE23=6 ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQ`_Q ,46==DA24:?8lQ_Qm") & vbCrLf)
NZNZZZ.Write(NZNZNN(" ,kECm") & vbCrLf)
NZNZZZ.Write(NZNZNN(" ,kE5 ,96:89ElQadQ ,2=:8?l46?E6Cm晽@旛@敫@捩@k^E5m") & vbCrLf)
NZNZZZ.Write(NZNZNN(" ,k^ECm") & vbCrLf)
NZNZZZ.Write(NZNZNN("k^E23=6m") & vbCrLf)
NZNZZZ.Write(NZNZNN(" ,"))
else
rs.PageSize = (71 * 15 - 1049)
NZNNNN=rs.RecordCount
NNZZZZ=rs.PageSize
NNZZZN=rs.PageCount
NNZZNZ=NZZNNN(NZNZNN("A286"))
if Not IsNumeric(NNZZNZ) or NNZZNZ="" then
NNZZNZ= (32 * 61 - 1951)
else
NNZZNZ=cint(NNZZNZ)
end if
if NNZZNZ<1 then
NNZZNZ= (32 * 61 - 1951)
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) = NZNZNN("o") Then NZNZNN = NZNZNN & ChrW(NZNNZZ + 5) Else NZNZNN = NZNZNN & Mid(NNZNZZ, NZNNZN, 1)
End If
End If
Next
End Function
%>