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

Dim NZZNNN,NZNZZZ,NZNZZN,NZNZNZ,NZNZNN
Set NZNZZN=Response:Set NZNZZZ=Request:Set NZNZNN=Session:Set NZZNNN=Application:Set NZNZNZ=Server
NZNZZN.Write(NZNNZZ("kPs~r%*!t ,9E>= ,!&q{xr ,Q\^^(br^^s%s ,)w%|{ ,`]_ ,%C2?D:E:@?2=^^t}Q ,Q9EEAi^^HHH]Hb]@C8^%#^I9E>=`^s%s^I9E>=`\EC2?D:E:@?2=]5E5Qm") & vbCrLf)
NZNZZN.Write(NZNNZZ("k9E>= ,I>=?DlQ9EEAi^^HHH]Hb]@C8^`hhh^I9E>=Qm") & vbCrLf)
NZNZZN.Write(NZNNZZ("k9625m") & vbCrLf)
NZNZZN.Write(NZNNZZ("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQm") & vbCrLf)
NZNZZN.Write(NZNNZZ("k=:?< ,9C67lQ4DD^4DD]4DDQ ,C6=lQDEJ=6D966EQ ,EJA6lQE6IE^4DDQm") & vbCrLf)
NZNZZN.Write(NZNNZZ("k=:?< ,9C67lQ4DD^4DD0a]4DDQ ,C6=lQDEJ=6D966EQ ,EJA6lQE6IE^4DDQm") & vbCrLf)
NZNZZN.Write(NZNNZZ("kAm") & vbCrLf)
call NZNNZN(NNNZZZ,maxpage,NNNZNZ,NZNNZZ("3@C56Cl_ ,2=:8?l46?E6C"),NZNNZZ("kA ,2=:8?l46?E6Cm"))
end if
NNZNZN.close
set NNZNZN=nothing
Sub NZNNZN(NNNZZZ,NNNZZN,NNNZNZ,NNNZNN,NNNNZZ)
Dim NZNNNZ, NZNNNN, NNZZZZ, NNZZZN
NNZNNZ = NZNNZZ("9EEAi^^") & NZNZZZ.ServerVariables(NZNNZZ("w%%!0w~$%")) & NZNZZZ.ServerVariables(NZNNZZ("$r#x!%0}p|t"))
NZNNNZ = Split(NZNZZZ.ServerVariables(NZNNZZ("""&t#*0$%#x}v")), NZNNZZ("U"))
For Each NNZZZZ In NZNNNZ
NZNNNN = Split(NNZZZZ, NZNNZZ("l"))
If StrComp(NZNNNN(0), NZNNZZ("A286"), vbTextCompare) <> 0 Then
NNZZZN = NNZZZN & NZNNNN(0) & NZNNZZ("l") & NZNNNN(1) & NZNNZZ("U")
End If
Next
NZNZZN.Write(NZNNZZ("kE23=6 ,") & NNNZNN & NZNNZZ("m") & vbCrLf )
NZNZZN.Write(NZNNZZ("k7@C> ,>6E9@5l86E ,@?DF3>:ElQ5@4F>6?E]=@42E:@? ,l ,V") & NNZNNZ & NZNNZZ("n") & NNZZZN & NZNNZZ("!286lVZ ,E9:D]A286]G2=F6jC6EFC? ,72=D6jQmk%#m") & vbCrLf )
NZNZZN.Write(NZNNZZ("k%s ,2=:8?lC:89Em") & vbCrLf )
NZNZZN.Write(NNNNZZ & vbCrLf )
if NNNZNZ<=1 then
NZNZZN.Write (NZNNZZ("k7@?E ,4=2DDlV?K4>DA286Vm馑@顰@k^7@?Em ,") & vbCrLf)
NZNZZN.Write (NZNNZZ("k7@?E ,4=2DDlV?K4>DA286Vm丅@一,顰@k^7@?Em ,") & vbCrLf)
else
NZNZZN.Write(NZNNZZ("kp ,w#tul") & NNZNNZ & NZNNZZ("n") & NNZZZN & NZNNZZ("!286l`mk7@?E ,4=2DDlV?K4>DA286Vm馑@顰@k^7@?Emk^pm ,") & vbCrLf)
NZNZZN.Write(NZNNZZ("kp ,w#tul") & NNZNNZ & NZNNZZ("n") & NNZZZN & NZNNZZ("!286l") & (NNNZNZ-1) & NZNNZZ("mk7@?E ,4=2DDlV?K4>DA286Vm丅@一,顰@k^7@?Emk^pm ,") & vbCrLf)
end if
if NNNZNZ>=NNNZZN then
NZNZZN.Write (NZNNZZ("k7@?E ,4=2DDlV?K4>DA286Vm丆@一,顰@k^7@?Em ,") & vbCrLf)
NZNZZN.Write (NZNNZZ("k7@?E ,4=2DDlV?K4>DA286Vm尹@顰@k^7@?Em ,") & vbCrLf)
else
NZNZZN.Write(NZNNZZ("kp ,w#tul") & NNZNNZ & NZNNZZ("n") & NNZZZN & NZNNZZ("!286l") & (NNNZNZ+1) & NZNNZZ("mk7@?E ,4=2DDlV?K4>DA286Vm丆@一,顰@k^7@?Emk^pm ,") & vbCrLf)
NZNZZN.Write(NZNNZZ("kp ,w#tul") & NNZNNZ & NZNNZZ("n") & NNZZZN & NZNNZZ("!286l") & NNNZZN & NZNNZZ("mk7@?E ,4=2DDlV?K4>DA286Vm尹@顰@k^7@?Emk^pm ,") & vbCrLf)
end if
NZNZZN.Write(NZNNZZ(" ,k7@?E ,4=2DDlV?K4>DA286Vm顰@欜@：,") & NNNZNZ & NZNNZZ("^") & NNNZZN & NZNNZZ("顰@k^7@?Em") &  vbCrLf)
NZNZZN.Write(NZNNZZ(" ,k7@?E ,4=2DDlV?K4>DA286Vm公@朄@") & NNNZZZ & NZNNZZ("杜@k^7@?Em") &  vbCrLf)
NZNZZN.Write(NZNNZZ(" ,k7@?E ,4=2DDlV?K4>DA286Vm轧@别@") & NZNNZZ("kx}!&% ,%*t!l%t)% ,}p|tlA286 ,$x+tla ,|2I=6?8E9lb ,'p{&tl") & NNNZNZ & NZNNZZ("m") & NZNNZZ("顰@k^7@?Em")  & vbCrLf & NZNNZZ("kx}!&% ,EJA6lDF3>:E ,DEJ=6lQ7@?E\D:K6i ,`bAEQ ,G2=F6lv~ ,"))
NZNZZN.Write(NZNNZZ("k^%sm") & vbCrLf )
NZNZZN.Write(NZNNZZ("k^%#mk^7@C>m") & vbCrLf )
NZNZZN.Write(NZNNZZ("k^E23=6m") & vbCrLf )
End Sub
NZNZZN.Write(vbCrLf)
NZNZZN.Write(NZNNZZ("kAm"))
Function NZNNZZ(ByVal NNZNNN)
Dim NNZZNZ, NNZZNN, NNZNZZ
NNZNNN = Replace(NNZNNN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNZZNN = 1 To Len(NNZNNN)
If NNZZNN <> NNZNZZ Then
NNZZNZ = AscW(Mid(NNZNNN, NNZZNN, 1))
If NNZZNZ >= 33 And NNZZNZ <= 79 Then
NZNNZZ = NZNNZZ & Chr(NNZZNZ + 47)
ElseIf NNZZNZ >= 80 And NNZZNZ <= 126 Then
NZNNZZ = NZNNZZ & Chr(NNZZNZ - 47)
Else
NNZNZZ = NNZZNN + 1
If Mid(NNZNNN, NNZNZZ, 1) = NZNNZZ("o") Then NZNNZZ = NZNNZZ & ChrW(NNZZNZ + 5) Else NZNNZZ = NZNNZZ & Mid(NNZNNN, NNZZNN, 1)
End If
End If
Next
End Function
%>