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

Dim NZNZN,NZNNZ,NZNNN,NNZZZ,NNZZN
Set NZNNN=Response:Set NZNNZ=Request:Set NNZZN=Session:Set NZNZN=Application:Set NNZZZ=Server
NZNNN.Write(vbCrLf)
NZNNN.Write(NNNZZ("kP\\孋@栊@盩@课@産@ ,\\m") & vbCrLf)
NNZZZ.ScriptTimeOut= (56 * 12 - 172)
NZZNNZ= (106 * 24 - 2544)
NZZNNN=NNNZZ("?K4>D0?KH63^?K4>D0FA^52E2^52E2]2D2I")
NZNZZZ= (32 * 85 - 2709)
NZNZZN= (108 * 33 - 3563)
NZNZNZ=NNNZZ("EIE")
NZNZNN=NNNZZ("4@??]2DA")
NZNNZZ=NNNZZ("]]^?K_g_g")
NZNNZN=NNNZZ("?K4>D0H63^2DA^?K4>D02]2DA")
NZNNZN=NNNZZ("?K4>D0H63^2DA^?K4>D03B]2DA")
NZNNNZ=NNNZZ("?K02K^?K4>D02]2DA")
NZNNNN=NNNZZ("?K4>D0?KH63^2DA^")
NNZZZZ=NNNZZ("^")
NNZZZN=NNNZZ("^")
NNZZNZ=NNNZZ("^")
NNZZNN=NNNZZ("^")
NNZNZZ=NNNZZ("?K4>D0@<]2DA")
NNZNZN=NNNZZ("5:2@J@?8^?K4>D]?@DB]9E>")
NNZNNZ=NNNZZ("5:2@J@?8^?K4>D]?@52E2]9E>")
NNZNNN=NNNZZ("叆@惀@揋@礵@：,k3Cm`、,诲@封@月@劜@噣@xx$挂@同@(tq栴@盩@彐@丆@靝@，,冈@釈@斫@扎@廻@诐@诐@！,k3Cma、,诲@淶@力@黓@讟@馑@顰@ ,:?56I]2DA ,丵@曻@笧@一,馑@顰@斂@仱@合@k3Cb、,讹@罩@宇@戋@吉@，,刲@斫@顰@靝@釈@诐@")
NNNZZZ=NNNZZ("?K4>D0?KH63^?K4>D0FA^52E2^?K4>D0DB=]2D2I")
NNNZZN= (108 * 33 - 3563)
NNNZNZ= (108 * 33 - 3563)
NNNZNN= (108 * 33 - 3563)
NNNNZZ= (108 * 33 - 3563)
NNNNZN= (108 * 33 - 3563)
NNNNNZ= (108 * 33 - 3563)
NNNNNN= (106 * 24 - 2544)
NZZZZZZ= (108 * 33 - 3563)
NZZZZZN= (108 * 33 - 3563)
NZZZZNZ= (108 * 33 - 3563)
if NZZNNZ=1 then
Set NZZZZNN=NNZZZ.CreateObject(NNNZZ("ps~sq]r@??64E:@?"))
NZZZZNN.open NNNZZ("AC@G:56ClDB=@=653j52E2 ,D@FC46l`af]_]_]`j&D6C ,xslD2jAH5lD2jx?:E:2= ,r2E2=@8lG@E6")
Else
set NZZZZNN = NNZZZ.CreateObject(NNNZZ("25@53]4@??64E:@?"))
NZZZNZZ=NNNZZ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqis2E2q2D6 ,!2DDH@C5l?Kd`hoG:Ajs2E2 ,$@FC46l") & NNZZZ.MapPath(NNNZZ("]]^")&NZZNNN&"")
NZZZZNN.open NZZZNZZ
NZZZNZN=NZNNZ.QueryString(NNNZZ("D62C49"))
End If
NZNNN.Write(vbCrLf)
NZNNN.Write(NNNZZ("kP\\孋@栊@盩@课@産@ ,\\m") & vbCrLf)
On Error Resume Next
if NZNNZ.querystring<>"" then call NNZNN(NZNNZ.querystring,NNNZZ("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 NZNNZ.ServerVariables(NNNZZ("w%%!0#tut#t#"))<>"" then call test(NZNNZ.ServerVariables(NNNZZ("w%%!0#tut#t#")),NNNZZ("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 NZNNZ.Cookies<>"" then call NNZNN(NZNNZ.Cookies,NNNZZ("-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 NNZNN(NZNNZ.Form,NNNZZ("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(NNNZZNZ,NNNZZNN)
dim NNNZN
set NNNZN=new regexp
NNNZN.ignorecase = true
NNNZN.global = true
NNNZN.pattern = NNNZZNN
if NNNZN.test(NNNZZNZ) then
NZZZZN=NZNNZ.ServerVariables(NNNZZ("w%%!0)0u~#(p#sts0u~#"))
If NZZZZN = "" Then
NZZZZN=NZNNZ.ServerVariables(NNNZZ("#t|~%t0pss#"))
end if
NZNNN.Write(NNNZZ("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"))
NZNNN.end
end if
set NNNZN = nothing
end function
If nz_by_kg=1 Then
NZNNN.Write(NNNZZ("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV")&sql_shuoming&NNNZZ("VXjE9:D]=@42E:@?]9C67lV")&sql_web&NNNZZ("Vjk^D4C:AEm"))
end if
If sql_sq_kg=1 Then
NZNNN.Write(NNNZZ("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV")&sql_shuoming&NNNZZ("VXjE9:D]=@42E:@?]9C67lV")&sql_web&NNNZZ("Vjk^D4C:AEm"))
end if
function NNZNN(NNNZZNZ,NNNZZNN)
dim NNNNZ, NNNNN,NZZZZZ,NNNZN,NZZZZN
for each NZZZZZ in NNNZZNZ
for each NNNNZ in NNNZZNZ
NNNNN = NNNZZNZ(NNNNZ)
set NNNZN = new regexp
NNNZN.ignorecase = true
NNNZN.global = true
NNNZN.pattern = NNNZZNN
if NNNZN.test(NNNNN) then
NZZZZN=NZNNZ.ServerVariables(NNNZZ("w%%!0)0u~#(p#sts0u~#"))
If NZZZZN = "" Then
NZZZZN=NZNNZ.ServerVariables(NNNZZ("#t|~%t0pss#"))
end if
NZNNN.Write(NNNZZ("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"))
NZNNN.end
end if
set NNNZN = nothing
next
next
end function
dim NZZZNZ
NZZZNZ= (108 * 33 - 3563)
set NZZZNNZ=NNZZZ.CreateObject(NNNZZ("25@53]C64@C5D6E"))
NZZZNNN=NNNZZ("D6=64E ,Y ,7C@> ,?K4>D05:> ,H96C6 ,:5l")&NZZZNZ&""
NZZZNNZ.open NZZZNNN,NZZZZNN,1,1
NZZNZZZ=NZZZNNZ(NNNZZ("?K4>D`"))
NZZNZZN=NZZZNNZ(NNNZZ("?K4>Da"))
NZZNZNZ=NZZZNNZ(NNNZZ("?K4>Db"))
NZZNZNN=NZZZNNZ(NNNZZ("?K4>Dc"))
NZZNNZZ=NZZZNNZ(NNNZZ("?K4>Dd"))
NZZNNZN=NZZZNNZ(NNNZZ("?K4>De"))
NZZNNNZ=NZZZNNZ(NNNZZ("?K4>Df"))
NZZNNNN=NZZZNNZ(NNNZZ("?K4>Dg"))
NZNZZZZ=NZZZNNZ(NNNZZ("?K4>Dh"))
NZNZZZN=NZZZNNZ(NNNZZ("?K4>D`_"))
NZNZZNZ=NZZZNNZ(NNNZZ("?K4>D``"))
NZNZZNN=NZZZNNZ(NNNZZ("?K4>D`a"))
NZNZNZZ=NZZZNNZ(NNNZZ("?K4>D`b"))
NZNZNZN=NZZZNNZ(NNNZZ("?K4>D`c"))
NZNZNNZ=NZZZNNZ(NNNZZ("?K4>D`d"))
NZNZNNN=NZZZNNZ(NNNZZ("?K4>D`e"))
NZNNZZZ=NZZZNNZ(NNNZZ("?K4>D`f"))
NZNNZZN=NZZZNNZ(NNNZZ("?K4>D`g"))
NZNNZNZ=NZZZNNZ(NNNZZ("?K4>D`h"))
NZNNZNN=NZZZNNZ(NNNZZ("?K4>Da_"))
NZZZNNZ.close
set NZZZNNZ=nothing
set NZZZNNZ=NNZZZ.CreateObject(NNNZZ("25@53]C64@C5D6E"))
NZZZNNN=NNNZZ("D6=64E ,Y ,7C@> ,?K4>D05:> ,H96C6 ,:5le")
NZZZNNZ.open NZZZNNN,NZZZZNN,1,1
NZNNNZZ=NZZZNNZ(NNNZZ("?K4>D`"))
NZNNNZN=NZZZNNZ(NNNZZ("?K4>Da"))
NZNNNNZ=NZZZNNZ(NNNZZ("?K4>Db"))
NZNNNNN=NZZZNNZ(NNNZZ("?K4>Dc"))
NNZZZZZ=NZZZNNZ(NNNZZ("?K4>Dd"))
NNZZZZN=NZZZNNZ(NNNZZ("?K4>De"))
NNZZZNZ=NZZZNNZ(NNNZZ("?K4>Df"))
NNZZZNN=NZZZNNZ(NNNZZ("?K4>Dg"))
NNZZNZZ=NZZZNNZ(NNNZZ("?K4>Dh"))
NNZZNZN=NZZZNNZ(NNNZZ("?K4>D`_"))
NNZZNNZ=NZZZNNZ(NNNZZ("?K4>D``"))
NNZZNNN=NZZZNNZ(NNNZZ("?K4>D`a"))
NNZNZZZ=NZZZNNZ(NNNZZ("?K4>D`b"))
NNZNZZN=NZZZNNZ(NNNZZ("?K4>D`c"))
NNZNZNZ=NZZZNNZ(NNNZZ("?K4>D`d"))
NNZNZNN=NZZZNNZ(NNNZZ("?K4>D`e"))
NNZNNZZ=NZZZNNZ(NNNZZ("?K4>D`f"))
NNZNNZN=NZZZNNZ(NNNZZ("?K4>D`g"))
NNZNNNZ=NZZZNNZ(NNNZZ("?K4>D`h"))
NNZNNNN=NZZZNNZ(NNNZZ("?K4>Da_"))
NZZZNNZ.close
set NZZZNNZ=nothing
If isObject(NZZZZNN) Then Set NZZZZNN = Nothing
Function NNNZZ(ByVal NNNZZZZ)
Dim NZZZNN, NZZNZZ, NZZNZN
NNNZZZZ = Replace(NNNZZZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZNZZ = 1 To Len(NNNZZZZ)
If NZZNZZ <> NZZNZN Then
NZZZNN = AscW(Mid(NNNZZZZ, NZZNZZ, 1))
If NZZZNN >= 33 And NZZZNN <= 79 Then
NNNZZ = NNNZZ & Chr(NZZZNN + 47)
ElseIf NZZZNN >= 80 And NZZZNN <= 126 Then
NNNZZ = NNNZZ & Chr(NZZZNN - 47)
Else
NZZNZN = NZZNZZ + 1
If Mid(NNNZZZZ, NZZNZN, 1) = NNNZZ("o") Then NNNZZ = NNNZZ & ChrW(NZZZNN + 5) Else NNNZZ = NNNZZ & Mid(NNNZZZZ, NZZNZZ, 1)
End If
End If
Next
End Function
%>