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

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