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

Dim NZZNZN,NZZNNZ,NZZNNN,NZNZZZ,NZNZZN
Set NZZNNN=Response:Set NZZNNZ=Request:Set NZNZZN=Session:Set NZZNZN=Application:Set NZNZZZ=Server
NZZNNN.Write(NZNNZZ("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQ ,^m") & vbCrLf)
NZZNNN.Write(NZNNZZ("kE:E=6m糶@绚@揋@醍@患@k^E:E=6m") & vbCrLf)
NZZNNN.Write(NZNNZZ("kP\\孋@栊@盩@课@産@ ,\\m") & vbCrLf)
NZNZZZ.ScriptTimeOut= (13 * 73 - 449)
NNZNNZ= (38 * 35 - 1330)
NNZNNN=NZNNZZ("?K4>D0?KH63^?K4>D0FA^52E2^52E2]2D2I")
NNNZZZ= (16 * 82 - 1301)
NNNZZN= (70 * 69 - 4829)
NNNZNZ=NZNNZZ("EIE")
NNNZNN=NZNNZZ("4@??]2DA")
NNNNZZ=NZNNZZ("]]^?K_g_g")
NNNNZN=NZNNZZ("?K4>D0H63^2DA^?K4>D02]2DA")
NNNNZN=NZNNZZ("?K4>D0H63^2DA^?K4>D03B]2DA")
NNNNNZ=NZNNZZ("?K02K^?K4>D02]2DA")
NNNNNN=NZNNZZ("?K4>D0?KH63^2DA^")
NZZZZZZ=NZNNZZ("^")
NZZZZZN=NZNNZZ("^")
NZZZZNZ=NZNNZZ("^")
NZZZZNN=NZNNZZ("^")
NZZZNZZ=NZNNZZ("?K4>D0@<]2DA")
NZZZNZN=NZNNZZ("5:2@J@?8^?K4>D]?@DB]9E>")
NZZZNNZ=NZNNZZ("5:2@J@?8^?K4>D]?@52E2]9E>")
NZZZNNN=NZNNZZ("叆@惀@揋@礵@：,k3Cm`、,诲@封@月@劜@噣@xx$挂@同@(tq栴@盩@彐@丆@靝@，,冈@釈@斫@扎@廻@诐@诐@！,k3Cma、,诲@淶@力@黓@讟@馑@顰@ ,:?56I]2DA ,丵@曻@笧@一,馑@顰@斂@仱@合@k3Cb、,讹@罩@宇@戋@吉@，,刲@斫@顰@靝@釈@诐@")
NZZNZZZ=NZNNZZ("?K4>D0?KH63^?K4>D0FA^52E2^?K4>D0DB=]2D2I")
NZZNZZN= (70 * 69 - 4829)
NZZNZNZ= (70 * 69 - 4829)
NZZNZNN= (70 * 69 - 4829)
NZZNNZZ= (70 * 69 - 4829)
NZZNNZN= (70 * 69 - 4829)
NZZNNNZ= (70 * 69 - 4829)
NZZNNNN= (38 * 35 - 1330)
NZNZZZZ= (70 * 69 - 4829)
NZNZZZN= (70 * 69 - 4829)
NZNZZNZ= (70 * 69 - 4829)
if NNZNNZ=1 then
Set NZNZZNN=NZNZZZ.CreateObject(NZNNZZ("ps~sq]r@??64E:@?"))
NZNZZNN.open NZNNZZ("AC@G:56ClDB=@=653j52E2 ,D@FC46l`af]_]_]`j&D6C ,xslD2jAH5lD2jx?:E:2= ,r2E2=@8lG@E6")
Else
set NZNZZNN = NZNZZZ.CreateObject(NZNNZZ("25@53]4@??64E:@?"))
NZNZNZZ=NZNNZZ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqis2E2q2D6 ,!2DDH@C5l?Kd`hoG:Ajs2E2 ,$@FC46l") & NZNZZZ.MapPath(NZNNZZ("]]^")&NNZNNN&"")
NZNZZNN.open NZNZNZZ
NZNZNZN=NZZNNZ.QueryString(NZNNZZ("D62C49"))
End If
NZZNNN.Write(vbCrLf)
NZZNNN.Write(NZNNZZ("kP\\孋@栊@盩@课@産@ ,\\m") & vbCrLf)
On Error Resume Next
if NZZNNZ.querystring<>"" then call NZNZNN(NZZNNZ.querystring,NZNNZZ("k]YlWUR-5ZnjnXZnmMk]Y52E2l52E2iE6IE-^9E>=]YmM-3W2=6CE-WM4@?7:C>-WM6IAC6DD:@?-WMAC@>AE-WM36?49>2C<-DYn-W-5ZnMD=66A-DYn-W,-5-].Zn-XM=@2507:=6-DYn-WXMk,2\K.Zn-3,/m.Yn-3@?W,2\K.Lc[NX-DYnlM/-Z-^GWgMhXM-3W2?5M@CX-3]ZnWlMmMkM-DZn,-H.Zn-DZn-3:?-3-DYn-WM-3=:<6-3-DZnXM-^-Y]Zn-Y-^Mk-DYD4C:AE-3M-3t)tr-3M&}x~}]Zn$t{tr%M&!sp%t]Zn$t%Mx}$t#%-DZx}%~]Zn'p{&t$MW$t{tr%Mst{t%tX]Znu#~|MWr#tp%tMp{%t#Ms#~!M%#&}rp%tX-DZW%pq{tMsp%pqp$tX"))
if NZZNNZ.ServerVariables(NZNNZZ("w%%!0#tut#t#"))<>"" then call test(NZZNNZ.ServerVariables(NZNNZZ("w%%!0#tut#t#")),NZNNZZ("VM-3W2?5M@CX-3]ZnWmMkMlM-3:?-3M-3=:<6-3XM^-Y]Zn-Y^Mk-DYD4C:AE-3M-3t)tr-3M&}x~}]Zn$t{tr%M&!sp%t]Zn$t%Mx}$t#%-DZx}%~]Zn'p{&t$MW$t{tr%Mst{t%tX]Znu#~|MWr#tp%tMp{%t#Ms#~!M%#&}rp%tX-DZW%pq{tMsp%pqp$tX"))
if NZZNNZ.Cookies<>"" then call NZNZNN(NZZNNZ.Cookies,NZNNZZ("-3W2?5M@CX-3]L`[eNnWlMmMkM-3:?-3M-3=:<6-3XM^-Y]Zn-Y^Mk-DYD4C:AE-3M-3t)tr-3M&}x~}]Zn$t{tr%M&!sp%t]Zn$t%Mx}$t#%-DZx}%~]Zn'p{&t$MW$t{tr%Mst{t%tX]Znu#~|MWr#tp%tMp{%t#Ms#~!M%#&}rp%tX-DZW%pq{tMsp%pqp$tX"))
call NZNZNN(NZZNNZ.Form,NZNNZZ("k,/m.ZnDEJ=6l,-H.Zni6IAC6DD:@?-WM-3@?>@FD6W@G6CM>@G6Xl-3M-3W2=6CEM4@?7:C>MAC@>AEX-3M/-Z^GWgMhXMk,/m.Ynl,/m.YnUR,/m.YnmM-3W2?5M@CX-3]L`[eNnWlMmMkM-3:?-3M-3=:<6-3XM^-Y]Zn-Y^Mk-DYD4C:AE-3Mk-DY:>8-3M-3t)tr-3M&}x~}]Zn$t{tr%M&!sp%t]Zn$t%Mx}$t#%-DZx}%~]Zn'p{&t$MW$t{tr%Mst{t%tX]Znu#~|MWr#tp%tMp{%t#Ms#~!M%#&}rp%tX-DZW%pq{tMsp%pqp$tX"))
function test(NZZZZZNZ,NZZZZZNN)
dim NZNNZN
set NZNNZN=new regexp
NZNNZN.ignorecase = true
NZNNZN.global = true
NZNNZN.pattern = NZZZZZNN
if NZNNZN.test(NZZZZZNZ) then
NNZZZN=NZZNNZ.ServerVariables(NZNNZZ("w%%!0)0u~#(p#sts0u~#"))
If NNZZZN = "" Then
NNZZZN=NZZNNZ.ServerVariables(NZNNZZ("#t|~%t0pss#"))
end if
NZZNNN.Write(NZNNZZ("k5:G ,DEJ=6lVA@D:E:@?i7:I65jE@Ai_AIjH:5E9i`__Tj96:89Ei`__Tj324<8C@F?5\4@=@CiH9:E6j4@=@Ci8C66?j7@?E\H6:89Ei3@=5j3@C56C\3@EE@>idAI ,D@=:5 ,RhhhjVmk3Cm患@癿@揋@亟@帡@朄@丈@吃@泐@厽@敫@[谝@谝@吃@佗@Pk3Cmk3Cm亁@觞@曯@夕@诲@炴@凶@ik2 ,9C67lV9EEAi^^HHH]?:?8K9:]?6EVm}+r|$罌@竔@宄@兣@梻@浆@k^2mk^5:Gm"))
NZZNNN.end
end if
set NZNNZN = nothing
end function
If nz_by_kg=1 Then
NZZNNN.Write(NZNNZZ("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV")&sql_shuoming&NZNNZZ("VXjE9:D]=@42E:@?]9C67lV")&sql_web&NZNNZZ("Vjk^D4C:AEm"))
end if
If sql_sq_kg=1 Then
NZZNNN.Write(NZNNZZ("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV")&sql_shuoming&NZNNZZ("VXjE9:D]=@42E:@?]9C67lV")&sql_web&NZNNZZ("Vjk^D4C:AEm"))
end if
function NZNZNN(NZZZZZNZ,NZZZZZNN)
dim NZNNNZ, NZNNNN,NNZZZZ,NZNNZN,NNZZZN
for each NNZZZZ in NZZZZZNZ
for each NZNNNZ in NZZZZZNZ
NZNNNN = NZZZZZNZ(NZNNNZ)
set NZNNZN = new regexp
NZNNZN.ignorecase = true
NZNNZN.global = true
NZNNZN.pattern = NZZZZZNN
if NZNNZN.test(NZNNNN) then
NNZZZN=NZZNNZ.ServerVariables(NZNNZZ("w%%!0)0u~#(p#sts0u~#"))
If NNZZZN = "" Then
NNZZZN=NZZNNZ.ServerVariables(NZNNZZ("#t|~%t0pss#"))
end if
NZZNNN.Write(NZNNZZ("k5:G ,DEJ=6lVA@D:E:@?i7:I65jE@Ai_AIjH:5E9i`__Tj96:89Ei`__Tj324<8C@F?5\4@=@CiH9:E6j4@=@Ci8C66?j7@?E\H6:89Ei3@=5j3@C56C\3@EE@>idAI ,D@=:5 ,RhhhjVmk3Cm患@癿@揋@亟@帡@朄@丈@吃@泐@厽@敫@[谝@谝@吃@佗@Pk3Cmk3Cm亁@觞@曯@夕@诲@炴@凶@ik2 ,9C67lV9EEAi^^HHH]?:?8K9:]?6EVm}+r|$罌@竔@宄@兣@梻@浆@k^2mk^5:Gm"))
NZZNNN.end
end if
set NZNNZN = nothing
next
next
end function
dim NNZZNZ
NNZZNZ= (70 * 69 - 4829)
set NZNZNNZ=NZNZZZ.CreateObject(NZNNZZ("25@53]C64@C5D6E"))
NZNZNNN=NZNNZZ("D6=64E ,Y ,7C@> ,?K4>D05:> ,H96C6 ,:5l")&NNZZNZ&""
NZNZNNZ.open NZNZNNN,NZNZZNN,1,1
NZNNZZZ=NZNZNNZ(NZNNZZ("?K4>D`"))
NZNNZZN=NZNZNNZ(NZNNZZ("?K4>Da"))
NZNNZNZ=NZNZNNZ(NZNNZZ("?K4>Db"))
NZNNZNN=NZNZNNZ(NZNNZZ("?K4>Dc"))
NZNNNZZ=NZNZNNZ(NZNNZZ("?K4>Dd"))
NZNNNZN=NZNZNNZ(NZNNZZ("?K4>De"))
NZNNNNZ=NZNZNNZ(NZNNZZ("?K4>Df"))
NZNNNNN=NZNZNNZ(NZNNZZ("?K4>Dg"))
NNZZZZZ=NZNZNNZ(NZNNZZ("?K4>Dh"))
NNZZZZN=NZNZNNZ(NZNNZZ("?K4>D`_"))
NNZZZNZ=NZNZNNZ(NZNNZZ("?K4>D``"))
NNZZZNN=NZNZNNZ(NZNNZZ("?K4>D`a"))
NNZZNZZ=NZNZNNZ(NZNNZZ("?K4>D`b"))
NNZZNZN=NZNZNNZ(NZNNZZ("?K4>D`c"))
NNZZNNZ=NZNZNNZ(NZNNZZ("?K4>D`d"))
NNZZNNN=NZNZNNZ(NZNNZZ("?K4>D`e"))
NNZNZZZ=NZNZNNZ(NZNNZZ("?K4>D`f"))
NNZNZZN=NZNZNNZ(NZNNZZ("?K4>D`g"))
NNZNZNZ=NZNZNNZ(NZNNZZ("?K4>D`h"))
NNZNZNN=NZNZNNZ(NZNNZZ("?K4>Da_"))
NZNZNNZ.close
set NZNZNNZ=nothing
set NZNZNNZ=NZNZZZ.CreateObject(NZNNZZ("25@53]C64@C5D6E"))
NZNZNNN=NZNNZZ("D6=64E ,Y ,7C@> ,?K4>D05:> ,H96C6 ,:5le")
NZNZNNZ.open NZNZNNN,NZNZZNN,1,1
NNZNNZZ=NZNZNNZ(NZNNZZ("?K4>D`"))
NNZNNZN=NZNZNNZ(NZNNZZ("?K4>Da"))
NNZNNNZ=NZNZNNZ(NZNNZZ("?K4>Db"))
NNZNNNN=NZNZNNZ(NZNNZZ("?K4>Dc"))
NNNZZZZ=NZNZNNZ(NZNNZZ("?K4>Dd"))
NNNZZZN=NZNZNNZ(NZNNZZ("?K4>De"))
NNNZZNZ=NZNZNNZ(NZNNZZ("?K4>Df"))
NNNZZNN=NZNZNNZ(NZNNZZ("?K4>Dg"))
NNNZNZZ=NZNZNNZ(NZNNZZ("?K4>Dh"))
NNNZNZN=NZNZNNZ(NZNNZZ("?K4>D`_"))
NNNZNNZ=NZNZNNZ(NZNNZZ("?K4>D``"))
NNNZNNN=NZNZNNZ(NZNNZZ("?K4>D`a"))
NNNNZZZ=NZNZNNZ(NZNNZZ("?K4>D`b"))
NNNNZZN=NZNZNNZ(NZNNZZ("?K4>D`c"))
NNNNZNZ=NZNZNNZ(NZNNZZ("?K4>D`d"))
NNNNZNN=NZNZNNZ(NZNNZZ("?K4>D`e"))
NNNNNZZ=NZNZNNZ(NZNNZZ("?K4>D`f"))
NNNNNZN=NZNZNNZ(NZNNZZ("?K4>D`g"))
NNNNNNZ=NZNZNNZ(NZNNZZ("?K4>D`h"))
NNNNNNN=NZNZNNZ(NZNNZZ("?K4>Da_"))
NZNZNNZ.close
set NZNZNNZ=nothing
NZZNNN.Write(vbCrLf)
NZZNNN.Write(NZNNZZ("k=:?< ,9C67lQ4DD]4DDQ ,C6=lQDEJ=6D966EQ ,EJA6lQE6IE^4DDQ ,^m") & vbCrLf)
NZZNNN.Write(NZNNZZ("k^9625m") & vbCrLf)
NZZNNN.Write(NZNNZZ("k3@5Jm"))
set NZNZNNZ=NZNZZZ.CreateObject(NZNNZZ("25@53]C64@C5D6E"))
NZNZNNN=NZNNZZ("D6=64E ,Y ,7C@> ,?K4>D0H630:?7@")
NZNZNNZ.open NZNZNNN,NZNZZNN,1,1
if NZNZNNZ.recordcount<>0 then
NZZNNN.Write(vbCrLf)
NZZNNN.Write(NZNNZZ("kAmU?3DAjk^Am") & vbCrLf)
NZZNNN.Write(NZNNZZ("kAmU?3DAjk^Am") & vbCrLf)
NZZNNN.Write(NZNNZZ("kE23=6 ,H:5E9lQdd`Q ,3@C56ClQ`Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQ_Q ,46==DA24:?8lQ_Q ,3@C56C4@=@ClQRuuuuuuQ ,384@=@ClQRuuuuuuQ ,4=2DDlQ<<Qm") & vbCrLf)
NZZNNN.Write(NZNNZZ(" ,kECm") & vbCrLf)
NZZNNN.Write(NZNNZZ(" ,kE5 ,2=:8?lQ46?E6CQ ,G2=:8?lQE@AQ ,4=2DDlQ?K4>D0E:E=6QmkE23=6 ,H:5E9lQ`__TQ ,96:89ElQg_Q ,3@C56ClQ_Q ,46==A255:?8lQ_Q ,46==DA24:?8lQ_Q ,384@=@ClQRttufuuQm") & vbCrLf)
NZZNNN.Write(NZNNZZ(" ,kECm") & vbCrLf)
NZZNNN.Write(NZNNZZ(" ,kE5 ,2=:8?lQ46?E6CQ ,4=2DDlQKacQm}+r|$，,$""{阭@泣@兠@糶@绚@揋@醍@患@k^E5m") & vbCrLf)
NZZNNN.Write(NZNNZZ(" ,kE5 ,2=:8?lQC:89EQ ,G2=:8?lQE@AQmk2 ,9C67lQ;2G2D4C:AEiH:?5@H]4=@D6WXjQmk:>8 ,DC4lQ:>286D^?K4>D04=@D6]8:7Q ,2=ElQ兮@门@窒@叞@Q ,3@C56ClQ_Qmk^2mk5:G ,DEJ=6lQsx$!{p*i ,?@?6Qm"))
NZZNNN.Write  NZNZNNZ(NZNNZZ("E;"))
NZZNNN.Write  NZNZNNZ(NZNNZZ("?K4>D"))
NZZNNN.Write(NZNNZZ("k^5:Gmk^E5m") & vbCrLf)
NZZNNN.Write(NZNNZZ(" ,k^ECm") & vbCrLf)
NZZNNN.Write(NZNNZZ(" ,k^E23=6m") & vbCrLf)
NZZNNN.Write(NZNNZZ(" ,kE23=6 ,H:5E9lQhdTQ ,96:89ElQg_Q ,3@C56ClQ_Q ,46==A255:?8lQ`_Q ,46==DA24:?8lQ_Qm") & vbCrLf)
NZZNNN.Write(NZNNZZ(" ,kECm") & vbCrLf)
NZZNNN.Write(NZNNZZ(" ,kE5 ,2=:8?lQ=67EQmkAm甬@争@患@佺@産@癿@xt浊@觃@噣@采@朄@r@@<:6D缎@孓@亁@揋@亟@敫@捩@旱@赲@冭@穼@，,玫@陋@刱@患@癿@论@闩@朾@陋@！,k^Am") & vbCrLf)
NZZNNN.Write(NZNNZZ(" ,kAm患@歟@欜@癿@x!：,kDA2? ,4=2DDlQC65`cQm"))
NZZNNN.Write NZZNNZ.ServerVariables(NZNNZZ("#t|~%t0pss#"))
NZZNNN.Write(NZNNZZ("k^DA2?mk^Am") & vbCrLf)
NZZNNN.Write(NZNNZZ(" ,kAm"))
NZZNNN.Write  NZNZNNZ(NZNNZZ("<8"))
NZNZNNZ.close
set NZNZNNZ=nothing
end if
NZNZZNN.close:set NZNZZNN=nothing
NZZNNN.Write(vbCrLf)
NZZNNN.Write(NZNNZZ("k^E5m") & vbCrLf)
NZZNNN.Write(NZNNZZ(" ,k^ECm") & vbCrLf)
NZZNNN.Write(NZNNZZ(" ,kECm") & vbCrLf)
NZZNNN.Write(NZNNZZ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQ3FEE@?Q ,EJA6lQ3FEE@?Q ,4=2DDlQG:A0:>AF4Q ,:5lQ3FEE@?Q ,@?r=:4<lQH:?5@H]=@42E:@?lV]]^:?56I]2DAVQ ,G2=F6lQ迏@囙@朧@竔@馑@顰@Q ,^mk^E5m") & vbCrLf)
NZZNNN.Write(NZNNZZ(" ,k^ECm") & vbCrLf)
NZZNNN.Write(NZNNZZ(" ,k^E23=6m") & vbCrLf)
NZZNNN.Write(NZNNZZ(" ,k^E5m") & vbCrLf)
NZZNNN.Write(NZNNZZ(" ,k^ECm") & vbCrLf)
NZZNNN.Write(NZNNZZ("k^E23=6m") & vbCrLf)
NZZNNN.Write(NZNNZZ("k^3@5Jm") & vbCrLf)
Function NZNNZZ(ByVal NZZZZZZZ)
Dim NNZZNN, NNZNZZ, NNZNZN
NZZZZZZZ = Replace(NZZZZZZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNZNZZ = 1 To Len(NZZZZZZZ)
If NNZNZZ <> NNZNZN Then
NNZZNN = AscW(Mid(NZZZZZZZ, NNZNZZ, 1))
If NNZZNN >= 33 And NNZZNN <= 79 Then
NZNNZZ = NZNNZZ & Chr(NNZZNN + 47)
ElseIf NNZZNN >= 80 And NNZZNN <= 126 Then
NZNNZZ = NZNNZZ & Chr(NNZZNN - 47)
Else
NNZNZN = NNZNZZ + 1
If Mid(NZZZZZZZ, NNZNZN, 1) = NZNNZZ("o") Then NZNNZZ = NZNNZZ & ChrW(NNZZNN + 5) Else NZNNZZ = NZNNZZ & Mid(NZZZZZZZ, NNZNZZ, 1)
End If
End If
Next
End Function
%>