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

Dim NZNNZ,NZNNN,NNZZZ,NNZZN,NNZNZ
Set NNZZZ=Response:Set NZNNN=Request:Set NNZNZ=Session:Set NZNNZ=Application:Set NNZZN=Server
On Error Resume Next
if NZNNN.querystring<>"" then call NNNZZ(NZNNN.querystring,NNNZN("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 NZNNN.ServerVariables(NNNZN("w%%!0#tut#t#"))<>"" then call test(NZNNN.ServerVariables(NNNZN("w%%!0#tut#t#")),NNNZN("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 NZNNN.Cookies<>"" then call NNNZZ(NZNNN.Cookies,NNNZN("-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 NNNZZ(NZNNN.Form,NNNZN("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(NZZNNN,NZNZZZ)
dim NNNNZ
set NNNNZ=new regexp
NNNNZ.ignorecase = true
NNNNZ.global = true
NNNNZ.pattern = NZNZZZ
if NNNNZ.test(NZZNNN) then
NZZZNZ=NZNNN.ServerVariables(NNNZN("w%%!0)0u~#(p#sts0u~#"))
If NZZZNZ = "" Then
NZZZNZ=NZNNN.ServerVariables(NNNZN("#t|~%t0pss#"))
end if
NNZZZ.Write(NNNZN("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"))
NNZZZ.end
end if
set NNNNZ = nothing
end function
If nz_by_kg=1 Then
NNZZZ.Write(NNNZN("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV")&sql_shuoming&NNNZN("VXjE9:D]=@42E:@?]9C67lV")&sql_web&NNNZN("Vjk^D4C:AEm"))
end if
If sql_sq_kg=1 Then
NNZZZ.Write(NNNZN("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV")&sql_shuoming&NNNZN("VXjE9:D]=@42E:@?]9C67lV")&sql_web&NNNZN("Vjk^D4C:AEm"))
end if
function NNNZZ(NZZNNN,NZNZZZ)
dim NNNNN, NZZZZZ,NZZZZN,NNNNZ,NZZZNZ
for each NZZZZN in NZZNNN
for each NNNNN in NZZNNN
NZZZZZ = NZZNNN(NNNNN)
set NNNNZ = new regexp
NNNNZ.ignorecase = true
NNNNZ.global = true
NNNNZ.pattern = NZNZZZ
if NNNNZ.test(NZZZZZ) then
NZZZNZ=NZNNN.ServerVariables(NNNZN("w%%!0)0u~#(p#sts0u~#"))
If NZZZNZ = "" Then
NZZZNZ=NZNNN.ServerVariables(NNNZN("#t|~%t0pss#"))
end if
NNZZZ.Write(NNNZN("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"))
NNZZZ.end
end if
set NNNNZ = nothing
next
next
end function
Function NNNZN(ByVal NZZNNZ)
Dim NZZZNN, NZZNZZ, NZZNZN
NZZNNZ = Replace(NZZNNZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZNZZ = 1 To Len(NZZNNZ)
If NZZNZZ <> NZZNZN Then
NZZZNN = AscW(Mid(NZZNNZ, NZZNZZ, 1))
If NZZZNN >= 33 And NZZZNN <= 79 Then
NNNZN = NNNZN & Chr(NZZZNN + 47)
ElseIf NZZZNN >= 80 And NZZZNN <= 126 Then
NNNZN = NNNZN & Chr(NZZZNN - 47)
Else
NZZNZN = NZZNZZ + 1
If Mid(NZZNNZ, NZZNZN, 1) = NNNZN("o") Then NNNZN = NNNZN & ChrW(NZZZNN + 5) Else NNNZN = NNNZN & Mid(NZZNNZ, NZZNZZ, 1)
End If
End If
Next
End Function
%>