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

Dim NNZNNZ,NNZNNN,NNNZZZ,NNNZZN,NNNZNZ
Set NNNZZZ=Response:Set NNZNNN=Request:Set NNNZNZ=Session:Set NNZNNZ=Application:Set NNNZZN=Server
NNNZZZ.Write(NNNZNN("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)
NNNZZZ.Write(NNNZNN("k9E>= ,I>=?DlQ9EEAi^^HHH]Hb]@C8^`hhh^I9E>=Qm") & vbCrLf)
NNNZZZ.Write(NNNZNN("k9625m") & vbCrLf)
NNNZZZ.Write(NNNZNN("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQm") & vbCrLf)
NNNZZZ.Write(NNNZNN("kDEJ=6 ,EJA6lQE6IE^4DDQm") & vbCrLf)
NNNZZZ.Write(NNNZNN("kP\\") & vbCrLf)
NNNZZZ.Write(NNNZNN("]?K4>DA286L") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,7@?E\D:K6i ,`gAIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,4@=@Ci ,Rbbbbbbj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,r&#$~#i92?5") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,=:?6\96:89Ei ,b_AIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,A255:?8\C:89Ei ,gAIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,A255:?8\=67Ei ,gAIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,324<8C@F?5\4@=@Ci ,Rudududj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,A255:?8\E@Ai ,dAIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,A255:?8\3@EE@>i ,dAIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,3@C56Ci ,`AI ,D@=:5 ,Rhhhhhhj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,>2C8:?\E@Ai ,_AIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,>2C8:?\C:89Ei ,`_AIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,>2C8:?\3@EE@>i ,_AIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,>2C8:?\=67Ei ,`_AIj") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("]?K4>DA286i9@G6CL") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,4@=@Ci ,R__eerrj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,324<8C@F?5\4@=@Ci ,Rshuguuj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,3@C56Ci ,`AI ,D@=:5 ,R__eerrj") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("\\m") & vbCrLf)
NNNZZZ.Write(NNNZNN("k^DEJ=6m") & vbCrLf)
NNNZZZ.Write(NNNZNN("k^9625m") & vbCrLf)
NNNZZZ.Write(NNNZNN("kE23=6 ,H:5E9lQh_TQ ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQ`_Q ,46==DA24:?8lQ_Qm") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,kECm") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,kE5 ,96:89ElQ`a_Q ,2=:8?lQ46?E6CQm"))
call NNNNZZ(NZZZNNN,maxpage,NZZNZZN,NNNZNN("3@C56Cl_ ,2=:8?l46?E6C"),NNNZNN("kA ,2=:8?l46?E6Cm"))
end if
NZZZNZZ.close
set NZZZNZZ=nothing
Sub NNNNZZ(NZZZNNN,NZZNZZZ,NZZNZZN,NZZNZNZ,NZZNZNN)
Dim NNNNZN, NNNNNZ, NNNNNN, NZZZZZZ
NZZZNZN = NNNZNN("9EEAi^^") & NNZNNN.ServerVariables(NNNZNN("w%%!0w~$%")) & NNZNNN.ServerVariables(NNNZNN("$r#x!%0}p|t"))
NNNNZN = Split(NNZNNN.ServerVariables(NNNZNN("""&t#*0$%#x}v")), NNNZNN("U"))
For Each NNNNNN In NNNNZN
NNNNNZ = Split(NNNNNN, NNNZNN("l"))
If StrComp(NNNNNZ(0), NNNZNN("A286"), vbTextCompare) <> 0 Then
NZZZZZZ = NZZZZZZ & NNNNNZ(0) & NNNZNN("l") & NNNNNZ(1) & NNNZNN("U")
End If
Next
NNNZZZ.Write(NNNZNN("kE23=6 ,") & NZZNZNZ & NNNZNN("m") & vbCrLf )
NNNZZZ.Write(NNNZNN("k%s ,2=:8?lC:89Em") & vbCrLf )
NNNZZZ.Write(NZZNZNN & vbCrLf )
if NZZNZZN<=1 then
NNNZZZ.Write (NNNZNN("k7@?E ,4=2DDlV?K4>DA286Vm馑@顰@k^7@?Em ,") & vbCrLf)
NNNZZZ.Write (NNNZNN("k7@?E ,4=2DDlV?K4>DA286Vm丅@一,顰@k^7@?Em ,") & vbCrLf)
else
NNNZZZ.Write(NNNZNN("kp ,w#tul") & NZZZNZN & NNNZNN("n") & NZZZZZZ & NNNZNN("!286l`mkF ,4=2DDlV?K4>DA286Vm馑@顰@k^Fmk^pm ,") & vbCrLf)
NNNZZZ.Write(NNNZNN("kp ,w#tul") & NZZZNZN & NNNZNN("n") & NZZZZZZ & NNNZNN("!286l") & (NZZNZZN-1) & NNNZNN("mkF ,4=2DDlV?K4>DA286Vm丅@一,顰@k^Fmk^pm ,") & vbCrLf)
end if
if NZZNZZN>=NZZNZZZ then
NNNZZZ.Write (NNNZNN("k7@?E ,4=2DDlV?K4>DA286Vm丆@一,顰@k^7@?Em ,") & vbCrLf)
NNNZZZ.Write (NNNZNN("k7@?E ,4=2DDlV?K4>DA286Vm尹@顰@k^7@?Em ,") & vbCrLf)
else
NNNZZZ.Write(NNNZNN("kp ,w#tul") & NZZZNZN & NNNZNN("n") & NZZZZZZ & NNNZNN("!286l") & (NZZNZZN+1) & NNNZNN("mkF ,4=2DDlV?K4>DA286Vm丆@一,顰@k^Fmk^pm ,") & vbCrLf)
NNNZZZ.Write(NNNZNN("kp ,w#tul") & NZZZNZN & NNNZNN("n") & NZZZZZZ & NNNZNN("!286l") & NZZNZZZ & NNNZNN("mkF ,4=2DDlV?K4>DA286Vm尹@顰@k^Fmk^pm ,") & vbCrLf)
end if
NNNZZZ.Write(NNNZNN(" ,k7@?E ,4=2DDlV?K4>DA286Vm顰@欜@：,") & NZZNZZN & NNNZNN("^") & NZZNZZZ & NNNZNN("顰@k^7@?Em") &  vbCrLf)
NNNZZZ.Write(NNNZNN(" ,k7@?E ,4=2DDlV?K4>DA286Vm公@朄@") & NZZZNNN & NNNZNN("杜@k^7@?Em") &  vbCrLf)
NNNZZZ.Write(NNNZNN("k^%sm") & vbCrLf )
NNNZZZ.Write(NNNZNN("k^E23=6m") & vbCrLf )
End Sub
NNNZZZ.Write(NNNZNN("k^E5m") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,k^ECm") & vbCrLf)
NNNZZZ.Write(NNNZNN("k^E23=6m") & vbCrLf)
Function NNNZNN(ByVal NZZZNNZ)
Dim NZZZZZN, NZZZZNZ, NZZZZNN
NZZZNNZ = Replace(NZZZNNZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZZZNZ = 1 To Len(NZZZNNZ)
If NZZZZNZ <> NZZZZNN Then
NZZZZZN = AscW(Mid(NZZZNNZ, NZZZZNZ, 1))
If NZZZZZN >= 33 And NZZZZZN <= 79 Then
NNNZNN = NNNZNN & Chr(NZZZZZN + 47)
ElseIf NZZZZZN >= 80 And NZZZZZN <= 126 Then
NNNZNN = NNNZNN & Chr(NZZZZZN - 47)
Else
NZZZZNN = NZZZZNZ + 1
If Mid(NZZZNNZ, NZZZZNN, 1) = NNNZNN("o") Then NNNZNN = NNNZNN & ChrW(NZZZZZN + 5) Else NNNZNN = NNNZNN & Mid(NZZZNNZ, NZZZZNZ, 1)
End If
End If
Next
End Function
%>