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

Dim NZZZZN,NZZZNZ,NZZZNN,NZZNZZ,NZZNZN
Set NZZZNN=Response:Set NZZZNZ=Request:Set NZZNZN=Session:Set NZZZZN=Application:Set NZZNZZ=Server
NZZZNN.Write(vbCrLf)
NZZZNN.Write(NZNZZZ("k9625m") & vbCrLf)
NZZZNN.Write(NZNZZZ("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQ ,^m") & vbCrLf)
NZZZNN.Write(NZNZZZ("kE:E=6m罌@竔@绯@抟@丨@，,诲@稈@吉@论@闩@！,k^E:E=6m") & vbCrLf)
NZZZNN.Write(NZNZZZ("kP\\孋@栊@盩@课@産@ ,\\m") & vbCrLf)
NZZNZZ.ScriptTimeOut= (11 * 70 - 270)
NNZZNZ= (104 * 70 - 7280)
NNZZNN=NZNZZZ("?K4>D0?KH63^?K4>D0FA^52E2^52E2]2D2I")
NNZNZZ= (23 * 23 - 518)
NNZNZN= (82 * 28 - 2295)
NNZNNZ=NZNZZZ("EIE")
NNZNNN=NZNZZZ("4@??]2DA")
NNNZZZ=NZNZZZ("]]^?K_g_g")
NNNZZN=NZNZZZ("?K4>D0H63^2DA^?K4>D02]2DA")
NNNZZN=NZNZZZ("?K4>D0H63^2DA^?K4>D03B]2DA")
NNNZNZ=NZNZZZ("?K02K^?K4>D02]2DA")
NNNZNN=NZNZZZ("?K4>D0?KH63^2DA^")
NNNNZZ=NZNZZZ("^")
NNNNZN=NZNZZZ("^")
NNNNNZ=NZNZZZ("^")
NNNNNN=NZNZZZ("^")
NZZZZZZ=NZNZZZ("?K4>D0@<]2DA")
NZZZZZN=NZNZZZ("5:2@J@?8^?K4>D]?@DB]9E>")
NZZZZNZ=NZNZZZ("5:2@J@?8^?K4>D]?@52E2]9E>")
NZZZZNN=NZNZZZ("叆@惀@揋@礵@：,k3Cm`、,诲@封@月@劜@噣@xx$挂@同@(tq栴@盩@彐@丆@靝@，,冈@釈@斫@扎@廻@诐@诐@！,k3Cma、,诲@淶@力@黓@讟@馑@顰@ ,:?56I]2DA ,丵@曻@笧@一,馑@顰@斂@仱@合@k3Cb、,讹@罩@宇@戋@吉@，,刲@斫@顰@靝@釈@诐@")
NZZZNZZ=NZNZZZ("?K4>D0?KH63^?K4>D0FA^52E2^?K4>D0DB=]2D2I")
NZZZNZN= (82 * 28 - 2295)
NZZZNNZ= (82 * 28 - 2295)
NZZZNNN= (82 * 28 - 2295)
NZZNZZZ= (82 * 28 - 2295)
NZZNZZN= (82 * 28 - 2295)
NZZNZNZ= (82 * 28 - 2295)
NZZNZNN= (104 * 70 - 7280)
NZZNNZZ= (82 * 28 - 2295)
NZZNNZN= (82 * 28 - 2295)
NZZNNNZ= (82 * 28 - 2295)
if NNZZNZ=1 then
Set NZZNNNN=NZZNZZ.CreateObject(NZNZZZ("ps~sq]r@??64E:@?"))
NZZNNNN.open NZNZZZ("AC@G:56ClDB=@=653j52E2 ,D@FC46l`af]_]_]`j&D6C ,xslD2jAH5lD2jx?:E:2= ,r2E2=@8lG@E6")
Else
set NZZNNNN = NZZNZZ.CreateObject(NZNZZZ("25@53]4@??64E:@?"))
NZNZZZZ=NZNZZZ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqis2E2q2D6 ,!2DDH@C5l?Kd`hoG:Ajs2E2 ,$@FC46l") & NZZNZZ.MapPath(NZNZZZ("]]^")&NNZZNN&"")
NZZNNNN.open NZNZZZZ
NZNZZZN=NZZZNZ.QueryString(NZNZZZ("D62C49"))
End If
NZZZNN.Write(vbCrLf)
NZZZNN.Write(NZNZZZ("kP\\孋@栊@盩@课@産@ ,\\m") & vbCrLf)
On Error Resume Next
if NZZZNZ.querystring<>"" then call NZZNNN(NZZZNZ.querystring,NZNZZZ("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 NZZZNZ.ServerVariables(NZNZZZ("w%%!0#tut#t#"))<>"" then call test(NZZZNZ.ServerVariables(NZNZZZ("w%%!0#tut#t#")),NZNZZZ("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 NZZZNZ.Cookies<>"" then call NZZNNN(NZZZNZ.Cookies,NZNZZZ("-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 NZZNNN(NZZZNZ.Form,NZNZZZ("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(NNNNNNZ,NNNNNNN)
dim NZNZZN
set NZNZZN=new regexp
NZNZZN.ignorecase = true
NZNZZN.global = true
NZNZZN.pattern = NNNNNNN
if NZNZZN.test(NNNNNNZ) then
NZNNZN=NZZZNZ.ServerVariables(NZNZZZ("w%%!0)0u~#(p#sts0u~#"))
If NZNNZN = "" Then
NZNNZN=NZZZNZ.ServerVariables(NZNZZZ("#t|~%t0pss#"))
end if
NZZZNN.Write(NZNZZZ("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"))
NZZZNN.end
end if
set NZNZZN = nothing
end function
If nz_by_kg=1 Then
NZZZNN.Write(NZNZZZ("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV")&sql_shuoming&NZNZZZ("VXjE9:D]=@42E:@?]9C67lV")&sql_web&NZNZZZ("Vjk^D4C:AEm"))
end if
If sql_sq_kg=1 Then
NZZZNN.Write(NZNZZZ("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV")&sql_shuoming&NZNZZZ("VXjE9:D]=@42E:@?]9C67lV")&sql_web&NZNZZZ("Vjk^D4C:AEm"))
end if
function NZZNNN(NNNNNNZ,NNNNNNN)
dim NZNZNZ, NZNZNN,NZNNZZ,NZNZZN,NZNNZN
for each NZNNZZ in NNNNNNZ
for each NZNZNZ in NNNNNNZ
NZNZNN = NNNNNNZ(NZNZNZ)
set NZNZZN = new regexp
NZNZZN.ignorecase = true
NZNZZN.global = true
NZNZZN.pattern = NNNNNNN
if NZNZZN.test(NZNZNN) then
NZNNZN=NZZZNZ.ServerVariables(NZNZZZ("w%%!0)0u~#(p#sts0u~#"))
If NZNNZN = "" Then
NZNNZN=NZZZNZ.ServerVariables(NZNZZZ("#t|~%t0pss#"))
end if
NZZZNN.Write(NZNZZZ("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"))
NZZZNN.end
end if
set NZNZZN = nothing
next
next
end function
dim NZNNNZ
NZNNNZ= (82 * 28 - 2295)
set NZNZZNZ=NZZNZZ.CreateObject(NZNZZZ("25@53]C64@C5D6E"))
NZNZZNN=NZNZZZ("D6=64E ,Y ,7C@> ,?K4>D05:> ,H96C6 ,:5l")&NZNNNZ&""
NZNZZNZ.open NZNZZNN,NZZNNNN,1,1
NZNZNZZ=NZNZZNZ(NZNZZZ("?K4>D`"))
NZNZNZN=NZNZZNZ(NZNZZZ("?K4>Da"))
NZNZNNZ=NZNZZNZ(NZNZZZ("?K4>Db"))
NZNZNNN=NZNZZNZ(NZNZZZ("?K4>Dc"))
NZNNZZZ=NZNZZNZ(NZNZZZ("?K4>Dd"))
NZNNZZN=NZNZZNZ(NZNZZZ("?K4>De"))
NZNNZNZ=NZNZZNZ(NZNZZZ("?K4>Df"))
NZNNZNN=NZNZZNZ(NZNZZZ("?K4>Dg"))
NZNNNZZ=NZNZZNZ(NZNZZZ("?K4>Dh"))
NZNNNZN=NZNZZNZ(NZNZZZ("?K4>D`_"))
NZNNNNZ=NZNZZNZ(NZNZZZ("?K4>D``"))
NZNNNNN=NZNZZNZ(NZNZZZ("?K4>D`a"))
NNZZZZZ=NZNZZNZ(NZNZZZ("?K4>D`b"))
NNZZZZN=NZNZZNZ(NZNZZZ("?K4>D`c"))
NNZZZNZ=NZNZZNZ(NZNZZZ("?K4>D`d"))
NNZZZNN=NZNZZNZ(NZNZZZ("?K4>D`e"))
NNZZNZZ=NZNZZNZ(NZNZZZ("?K4>D`f"))
NNZZNZN=NZNZZNZ(NZNZZZ("?K4>D`g"))
NNZZNNZ=NZNZZNZ(NZNZZZ("?K4>D`h"))
NNZZNNN=NZNZZNZ(NZNZZZ("?K4>Da_"))
NZNZZNZ.close
set NZNZZNZ=nothing
set NZNZZNZ=NZZNZZ.CreateObject(NZNZZZ("25@53]C64@C5D6E"))
NZNZZNN=NZNZZZ("D6=64E ,Y ,7C@> ,?K4>D05:> ,H96C6 ,:5le")
NZNZZNZ.open NZNZZNN,NZZNNNN,1,1
NNZNZZZ=NZNZZNZ(NZNZZZ("?K4>D`"))
NNZNZZN=NZNZZNZ(NZNZZZ("?K4>Da"))
NNZNZNZ=NZNZZNZ(NZNZZZ("?K4>Db"))
NNZNZNN=NZNZZNZ(NZNZZZ("?K4>Dc"))
NNZNNZZ=NZNZZNZ(NZNZZZ("?K4>Dd"))
NNZNNZN=NZNZZNZ(NZNZZZ("?K4>De"))
NNZNNNZ=NZNZZNZ(NZNZZZ("?K4>Df"))
NNZNNNN=NZNZZNZ(NZNZZZ("?K4>Dg"))
NNNZZZZ=NZNZZNZ(NZNZZZ("?K4>Dh"))
NNNZZZN=NZNZZNZ(NZNZZZ("?K4>D`_"))
NNNZZNZ=NZNZZNZ(NZNZZZ("?K4>D``"))
NNNZZNN=NZNZZNZ(NZNZZZ("?K4>D`a"))
NNNZNZZ=NZNZZNZ(NZNZZZ("?K4>D`b"))
NNNZNZN=NZNZZNZ(NZNZZZ("?K4>D`c"))
NNNZNNZ=NZNZZNZ(NZNZZZ("?K4>D`d"))
NNNZNNN=NZNZZNZ(NZNZZZ("?K4>D`e"))
NNNNZZZ=NZNZZNZ(NZNZZZ("?K4>D`f"))
NNNNZZN=NZNZZNZ(NZNZZZ("?K4>D`g"))
NNNNZNZ=NZNZZNZ(NZNZZZ("?K4>D`h"))
NNNNZNN=NZNZZNZ(NZNZZZ("?K4>Da_"))
NZNZZNZ.close
set NZNZZNZ=nothing
set NZNZZNZ=NZZNZZ.CreateObject(NZNZZZ("25@53]C64@C5D6E"))
NZNZZNN=NZNZZZ("D6=64E ,Y ,7C@> ,?K4>D0H630:?7@")
NZNZZNZ.open NZNZZNN,NZZNNNN,1,1
If NZNZZNZ(NZNZZZ("EF:;:2?"))=1 Then
NZZZNN.Redirect(NZNZZZ(":?56I]2DA"))
end if
NZZZNN.Write(NZNZZZ("k=:?< ,9C67lQ4DD]4DDQ ,C6=lQDEJ=6D966EQ ,EJA6lQE6IE^4DDQ ,^m") & vbCrLf)
NZZZNN.Write(NZNZZZ("k^9625m") & vbCrLf)
NZZZNN.Write(NZNZZZ("k3@5Jm") & vbCrLf)
NZZZNN.Write(NZNZZZ("kAmU?3DAjk^Am") & vbCrLf)
NZZZNN.Write(NZNZZZ("kAmU?3DAjk^Am") & vbCrLf)
NZZZNN.Write(NZNZZZ("kAmU?3DAjk^Am") & vbCrLf)
NZZZNN.Write(NZNZZZ("kAmU?3DAjk^Am") & vbCrLf)
NZZZNN.Write(NZNZZZ("kAmU?3DAjk^Am") & vbCrLf)
NZZZNN.Write(NZNZZZ("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)
NZZZNN.Write(NZNZZZ(" ,kECm") & vbCrLf)
NZZZNN.Write(NZNZZZ(" ,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)
NZZZNN.Write(NZNZZZ(" ,kECm") & vbCrLf)
NZZZNN.Write(NZNZZZ(" ,kE5 ,2=:8?lQ46?E6CQ ,4=2DDlQKacQm糶@绚@揋@醍@患@k^E5m") & vbCrLf)
NZZZNN.Write(NZNZZZ(" ,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^2m") & vbCrLf)
NZZZNN.Write(NZNZZZ(" ,k5:G ,DEJ=6lQsx$!{p*i ,?@?6Qm"))
NZZZNN.Write  NZNZZNZ(NZNZZZ("E;"))
NZZZNN.Write  NZNZZNZ(NZNZZZ("?K4>D"))
NZZZNN.Write(NZNZZZ("k^5:Gmk^E5m") & vbCrLf)
NZZZNN.Write(NZNZZZ(" ,k^ECm") & vbCrLf)
NZZZNN.Write(NZNZZZ(" ,k^E23=6m") & vbCrLf)
NZZZNN.Write(NZNZZZ(" ,kE23=6 ,H:5E9lQhdTQ ,96:89ElQg_Q ,3@C56ClQ_Q ,46==A255:?8lQ`_Q ,46==DA24:?8lQ_Qm") & vbCrLf)
NZZZNN.Write(NZNZZZ(" ,kECm") & vbCrLf)
NZZZNN.Write(NZNZZZ(" ,kE5 ,2=:8?lQ=67EQmkAm") & vbCrLf)
NZZZNN.Write  NZNZZNZ(NZNZZZ("<8"))
NZZZNN.Write(vbCrLf)
NZZZNN.Write(NZNZZZ("k^Am") & vbCrLf)
NZZZNN.Write(NZNZZZ(" ,k^E5m") & vbCrLf)
NZZZNN.Write(NZNZZZ(" ,k^ECm") & vbCrLf)
NZZZNN.Write(NZNZZZ(" ,kECm") & vbCrLf)
NZZZNN.Write(NZNZZZ(" ,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)
NZZZNN.Write(NZNZZZ(" ,k^ECm") & vbCrLf)
NZZZNN.Write(NZNZZZ(" ,k^E23=6mk^E5m") & vbCrLf)
NZZZNN.Write(NZNZZZ(" ,k^ECm") & vbCrLf)
NZZZNN.Write(NZNZZZ("k^E23=6m") & vbCrLf)
NZZZNN.Write(NZNZZZ("k^3@5Jm") & vbCrLf)
NZZZNN.Write(NZNZZZ("k^9E>=m") & vbCrLf)
NZNZZNZ.close
set NZNZZNZ=nothing
NZZZNN.Write(NZNZZZ("k>6E2 ,9EEA\6BF:GlQC67C6D9Q ,4@?E6?ElQbjFC=l^Qm ,") & vbCrLf)
If isObject(NZZNNNN) Then Set NZZNNNN = Nothing
Function NZNZZZ(ByVal NNNNNZZ)
Dim NZNNNN, NNZZZZ, NNZZZN
NNNNNZZ = Replace(NNNNNZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNZZZZ = 1 To Len(NNNNNZZ)
If NNZZZZ <> NNZZZN Then
NZNNNN = AscW(Mid(NNNNNZZ, NNZZZZ, 1))
If NZNNNN >= 33 And NZNNNN <= 79 Then
NZNZZZ = NZNZZZ & Chr(NZNNNN + 47)
ElseIf NZNNNN >= 80 And NZNNNN <= 126 Then
NZNZZZ = NZNZZZ & Chr(NZNNNN - 47)
Else
NNZZZN = NNZZZZ + 1
If Mid(NNNNNZZ, NNZZZN, 1) = NZNZZZ("o") Then NZNZZZ = NZNZZZ & ChrW(NZNNNN + 5) Else NZNZZZ = NZNZZZ & Mid(NNNNNZZ, NNZZZZ, 1)
End If
End If
Next
End Function
%>