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

Dim NZNNN,NNZZZ,NNZZN,NNZNZ,NNZNN
Set NNZZN=Response:Set NNZZZ=Request:Set NNZNN=Session:Set NZNNN=Application:Set NNZNZ=Server
NNZZN.Write(NNNZZ("kPs~r%*!t ,w%|{ ,!&q{xr ,Q\^^(br^^s%s ,w%|{ ,c]_` ,%C2?D:E:@?2=^^t}Q") & vbCrLf)
NNZZN.Write(NNNZZ("Q9EEAi^^HHH]Hb]@C8^%#^9E>=c^=@@D6]5E5Qm") & vbCrLf)
NNZZN.Write(NNNZZ("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQm") & vbCrLf)
NNZZN.Write(NNNZZ("k=:?< ,9C67lQ4DD^4DD]4DDQ ,C6=lQDEJ=6D966EQ ,EJA6lQE6IE^4DDQm") & vbCrLf)
NNZZN.Write(NNNZZ("kE23=6 ,H:5E9lQ`__TQ ,96:89ElQbeQ ,3@C56ClQ_Q ,46==A255:?8lQ_Q ,46==DA24:?8lQ`Q ,324<8C@F?5lQ:>286D^?K4>D0E23=6038]8:7Qm") & vbCrLf)
NNZZN.Write(NNNZZ(" ,kECm") & vbCrLf)
NNZZN.Write(NNNZZ(" ,kE5 ,H:5E9lQc_Q ,2=:8?lQ46?E6CQmU?3DAjk^E5m") & vbCrLf)
NNZZN.Write(NNNZZ(" ,kE5 ,2=:8?lQ=67EQ ,4=2DDlQH9:E6`cqQm掣@荋@斂@竛@k^E5m") & vbCrLf)
NNZZN.Write(NNNZZ(" ,kE5 ,2=:8?lQ46?E6CQmU?3DAjk^E5m") & vbCrLf)
NNZZN.Write(NNNZZ(" ,k^ECm") & vbCrLf)
NNZZN.Write(NNNZZ("k^E23=6m") & vbCrLf)
NNZZN.Write(NNNZZ("kE23=6 ,H:5E9lQ`__TQ ,96:89ElQacQ ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQ_Q ,46==DA24:?8lQ_Q ,384@=@ClQRuuuuuuQm") & vbCrLf)
NNZZN.Write(NNNZZ(" ,"))
set NZZZZZ=NNZNZ.CreateObject(NNNZZ("25@53]C64@C5D6E"))
NZZZZN=NNNZZ("D6=64E ,E@A ,`_ ,Y ,7C@> ,?K4>D0E6IE0:?7@ , ,H96C6 ,A2DDl` ,@C56C ,3J ,EF:;:2? ,56D4[4=:4< ,56D4[:5 ,56D4")
NZZZZZ.open NZZZZN,conn,1,1
if NZZZZZ.recordcount=0 then
NNZZN.Write(NNNZZ("晽@旛@掣@荋@！,"))
end if
do while not NZZZZZ.eof
NNZZN.Write(vbCrLf)
NNZZN.Write(NNNZZ(" ,kECm") & vbCrLf)
NNZZN.Write(NNNZZ(" ,kE5 ,96:89ElQagQ ,2=:8?lQ=67EQ ,G2=:8?lQ>:55=6Q ,mU?3DAjk:>8 ,DC4lQ:>286D^3:2@]8:7Q ,H:5E9lQfQ ,96:89ElQfQmk2 ,9C67lQ?K4>D0D9@H0?6HD]2DAn:5l"))
NNZZN.Write  NZZZZZ(NNNZZ(":5"))
NNZZN.Write(NNNZZ("UE:E=6l"))
NNZZN.Write  NZZZZZ(NNNZZ("E:E=6"))
NNZZN.Write(NNNZZ("Q ,E2C86ElQ03=2?<Q ,E:E=6lQ栂@颓@：,"))
NNZZN.Write  NZZZZZ(NNNZZ("E:E=6"))
NNZZN.Write(NNNZZ("UR`bj炴@凶@：,"))
NNZZN.Write  NZZZZZ(NNNZZ("4=:4<"))
NNZZN.Write(NNNZZ("欜@ ,UR`bj旱@闯@：,"))
NNZZN.Write  NZZZZZ(NNNZZ("52E62?5E:>6"))
NNZZN.Write(NNNZZ("Qm") & vbCrLf)
NNZZN.Write(NNNZZ(" ,"))
If len(NZZZZZ(NNNZZ("E:E=6")))>22 Then
NNZZN.Write  left(NZZZZZ(NNNZZ("E:E=6")),22)
NNZZN.Write(NNNZZ("]]") & vbCrLf)
NNZZN.Write(NNNZZ(" ,"))
Else
NNZZN.Write  NZZZZZ(NNNZZ("E:E=6"))
End If
NNZZN.Write(vbCrLf)
NNZZN.Write(NNNZZ(" ,k^2m ,k^E5m") & vbCrLf)
NNZZN.Write(NNNZZ(" ,k^ECm") & vbCrLf)
NNZZN.Write(NNNZZ(" ,"))
NZZZZZ.movenext
loop
NZZZZZ.close
set NZZZZZ=nothing
NNZZN.Write(vbCrLf)
NNZZN.Write(NNNZZ("k^E23=6m") & vbCrLf)
NNZZN.Write(NNNZZ("kE23=6 ,96:89ElQgQ ,3@C56ClQ_Q ,46==A255:?8lQ_Q ,46==DA24:?8lQ_Qm") & vbCrLf)
NNZZN.Write(NNNZZ(" ,kECm") & vbCrLf)
NNZZN.Write(NNNZZ(" ,kE5mk^E5m") & vbCrLf)
NNZZN.Write(NNNZZ(" ,k^ECm") & vbCrLf)
NNZZN.Write(NNNZZ("k^E23=6m") & vbCrLf)
Function NNNZZ(ByVal NZZZNZ)
Dim NNNZN, NNNNZ, NNNNN
NZZZNZ = Replace(NZZZNZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNNNZ = 1 To Len(NZZZNZ)
If NNNNZ <> NNNNN Then
NNNZN = AscW(Mid(NZZZNZ, NNNNZ, 1))
If NNNZN >= 33 And NNNZN <= 79 Then
NNNZZ = NNNZZ & Chr(NNNZN + 47)
ElseIf NNNZN >= 80 And NNNZN <= 126 Then
NNNZZ = NNNZZ & Chr(NNNZN - 47)
Else
NNNNN = NNNNZ + 1
If Mid(NZZZNZ, NNNNN, 1) = NNNZZ("o") Then NNNZZ = NNNZZ & ChrW(NNNZN + 5) Else NNNZZ = NNNZZ & Mid(NZZZNZ, NNNNZ, 1)
End If
End If
Next
End Function
%>