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

Dim NNNZN,NNNNZ,NNNNN,NZZZZZ,NZZZZN
Set NNNNN=Response:Set NNNNZ=Request:Set NZZZZN=Session:Set NNNZN=Application:Set NZZZZZ=Server
IF not isNumeric(NNNNZ(NZZZNZ("A286"))) then
NNNNN.Redirect(NZZZNZ("^"))
NNNNN.end
end if
if rs.recordcount=0 then
NNNNN.Write(vbCrLf)
NNNNN.Write(NZZZNZ(" ,k3Cm") & vbCrLf)
NNNNN.Write(NZZZNZ(" ,kE23=6 ,H:5E9lQc_TQ ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQ`_Q ,46==DA24:?8lQ`Q ,3@C56C4@=@ClQRuuuuuuQ ,384@=@ClQRu_u_u_Qm") & vbCrLf)
NNNNN.Write(NZZZNZ(" ,kECm") & vbCrLf)
NNNNN.Write(NZZZNZ(" ,kE5 ,96:89ElQadQ ,2=:8?l46?E6C ,384@=@ClQRuuuuuuQm糶@绚@揋@醍@患@，,晽@旛@敫@捩@]]]k^E5m") & vbCrLf)
NNNNN.Write(NZZZNZ(" ,k^ECm") & vbCrLf)
NNNNN.Write(NZZZNZ("k^E23=6m") & vbCrLf)
NNNNN.Write(NZZZNZ(" ,k3C ,^m") & vbCrLf)
NNNNN.Write(NZZZNZ(" ,k3C ,^m") & vbCrLf)
NNNNN.Write(NZZZNZ(" ,"))
else
rs.PageSize = (84 * 102 - 8553)
NZZNNZ=rs.RecordCount
NZZNNN=rs.PageSize
NZNZZZ=rs.PageCount
NZNZZN=NNNNZ(NZZZNZ("A286"))
if Not IsNumeric(NZNZZN) or NZNZZN="" then
NZNZZN= (102 * 58 - 5915)
else
NZNZZN=cint(NZNZZN)
end if
if NZNZZN<1 then
NZNZZN= (102 * 58 - 5915)
elseif  NZNZZN>NZNZZZ then
NZNZZN=NZNZZZ
end if
rs.AbsolutePage=NZNZZN
if NZNZZN=NZNZZZ then
NZNZNZ=NZZNNZ-(NZNZZZ-1)*NZZNNN
else
NZNZNZ=NZZNNN
end if
Function NZZZNZ(ByVal NZNZNN)
Dim NZZZNN, NZZNZZ, NZZNZN
NZNZNN = Replace(NZNZNN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZNZZ = 1 To Len(NZNZNN)
If NZZNZZ <> NZZNZN Then
NZZZNN = AscW(Mid(NZNZNN, NZZNZZ, 1))
If NZZZNN >= 33 And NZZZNN <= 79 Then
NZZZNZ = NZZZNZ & Chr(NZZZNN + 47)
ElseIf NZZZNN >= 80 And NZZZNN <= 126 Then
NZZZNZ = NZZZNZ & Chr(NZZZNN - 47)
Else
NZZNZN = NZZNZZ + 1
If Mid(NZNZNN, NZZNZN, 1) = NZZZNZ("o") Then NZZZNZ = NZZZNZ & ChrW(NZZZNN + 5) Else NZZZNZ = NZZZNZ & Mid(NZNZNN, NZZNZZ, 1)
End If
End If
Next
End Function
%>