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

Dim NZNNN,NNZZZ,NNZZN,NNZNZ,NNZNN
Set NNZZN=Response:Set NNZZZ=Request:Set NNZNN=Session:Set NZNNN=Application:Set NNZNZ=Server
dim NZZNNZ,NZZNNN,NZNZZZ
NZZNNZ=NZZNZZ("]]^?K4>D0?KH63^?K4>D0FA^52E2^?K4>D0DB=]2D2I")
On Error Resume Next
Set NZZNNN = NNZNZ.CreateObject(NZZNZZ("ps~sq]r@??64E:@?"))
NZNZZZ=NZZNZZ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_js2E2 ,$@FC46l") & NNZNZ.MapPath(NZZNNZ)
NZZNNN.Open NZNZZZ
If Err Then
err.Clear
Set NZZNNN = Nothing
NNZZN.Write NZZNZZ("敫@捩@庎@这@掠@凵@锔@，,诲@梻@柠@这@掠@孒@中@。,")
NNZZN.End
End If
Dim NZNZZN,NZNZNZ,NZNZNN,NZNNZZ,NZNNZN,NZNNNZ,NZNNNN,NNZZZZ,NNZZZN
Dim NNZZNZ
If IsArray(NZNNN(NZZNZZ("}662@04@?7:80:?7@")))=False Then Call NZZNZN()
NNZZNZ = NZNNN(NZZNZZ("}662@04@?7:80:?7@"))
NZNZNN = NNZZNZ(0)
NNZZZZ = NNZZNZ(1)
NNZZZN = NNZZNZ(2)
NNNNNN = NNZZNZ(3)
NZZZZZZ = NNZZNZ(4)
NZZZZZN = NNZZNZ(5)
NZZZZNZ = NNZZNZ(6)
NZZZZNN = NNZZNZ(7)
NZZZNZZ = NNZZNZ(8)
if NNZZZ.querystring(NZZNZZ("@<"))="1" then
set NZZZNZN=NNZNZ.CreateObject(NZZNZZ("25@53]C64@C5D6E"))
NNNZZN=NZZNZZ("D6=64E ,Y ,7C@> ,4@?7:8 ,")
NZZZNZN.open NNNZZN,NZNZZZ,1,3
NZZZNZN(NZZNZZ("DB0<8"))= (32 * 87 - 2783)
NZZZNZN.update
NNZZN.Redirect(NZZNZZ("^"))
end if
NZZZNNZ = split(NZZZZNN,NZZNZZ("M"))
NZNNZZ = split(NZNZNN,NZZNZZ("M"))
If NNZZZZ=1 Then NNNZZ
If NNZZZ.Form<>"" Then NNNNN(NNZZZ.Form)
If NNZZZ.QueryString<>"" Then NNNNN(NNZZZ.QueryString)
Function NNNZZ()
Dim NNZZNN,NNZNZZ,NNZNZN
NNZZNN=NNZZZ.ServerVariables(NZZNZZ("#t|~%t0pss#"))
NNZNZN=NZZNZZ("D6=64E ,$B=:?0x! ,7C@> ,$B=x? ,H96C6 ,$B=:?0x!lV")&NNZZNN&NZZNZZ("V ,2?5 ,<:==0:AlECF6")
Set NNZNZZ=NZZNNN.execute(NNZNZN)
If Not(NNZNZZ.eof or NNZNZZ.bof) Then
NNNZN(NZZZZZN)
NNZZN.End
End If
NNZNZZ.close
End Function
Function NNNZN(NZZZZZZ)
Dim str
str = NZZNZZ("k")&NZZNZZ("$4C:AE ,{2?8F286ly2G2$4C:AE")&NZZNZZ("m")
Select Case NZZZZNZ
Case 1
str = str & NZZNZZ("H:?5@H]@A6?6Cl?F==j ,H:?5@H]4=@D6WXj")
Case 2
str = str & NZZNZZ("2=6CEWV")&NZZZZZZ&NZZNZZ("9EEAi^^HHH]?:?8K9:]?6E-?-?牃@朾@i诲@聏@糶@廻@双@啁@""""：,`aacf_gaf , ,VXjH:?5@H]@A6?6Cl?F==j ,H:?5@H]4=@D6WXj")
Case 3
str = str & NZZNZZ("=@42E:@?]9C67lV")&NNNNNN&NZZNZZ("Vj")
Case 4
str = str & NZZNZZ("2=6CEWV")&NZZZZZZ&NZZNZZ("VXj=@42E:@?]9C67lV")&NNNNNN&NZZNZZ("Vj")
end Select
str = str & NZZNZZ("k")&NZZNZZ("^$4C:AE")&NZZNZZ("m")
NNZZN.write  str
End Function
Function NNNNZ(NZZNZZN)
Select Case NZZNZZN
Case NNZZZ.Form
NNNNZ = NZZNZZ("!@DE")
Case NNZZZ.QueryString
NNNNZ = NZZNZZ("v6E")
end Select
End Function
Function NNNNN(NZZNZZN)
For Each NZNZNZ In NZZNZZN
If NZZZNZZ = 1 Then
For NZZNZNZ=0 To UBound(NZZZNNZ)
If Instr(LCase(NZZZNN),NZZZNNZ(NZZNZNZ))> 0 Then
Exit Function
else
NZZZZZ(NZZNZZN)
End If
Next
Else
NZZZZZ(NZZNZZN)
End If
Next
End Function
Function NZZZZZ(NZZNZZN)
For NZNNZN=0 To Ubound(NZNNZZ)
If Instr(LCase(NZZNZZN(NZNZNZ)),NZNNZZ(NZNNZN))<>0 Then
If NNZZZN = 1 Then NZZZZN(NZZNZZN)
NNNZN(NZZZZZZ)
NNZZN.End
End If
Next
End Function
If nz_by_kg=1 Then
NNZZN.Write(NZZNZZ("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV")&sql_shuoming&NZZNZZ("VXjE9:D]=@42E:@?]9C67lV")&sql_web&NZZNZZ("Vjk^D4C:AEm"))
end if
If sql_sq_kg=1 Then
NNZZN.Write(NZZNZZ("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV")&sql_shuoming&NZZNZZ("VXjE9:D]=@42E:@?]9C67lV")&sql_web&NZZNZZ("Vjk^D4C:AEm"))
end if
Function NZZZZN(NZZNZZN)
Dim NNZNNN,NNNZZZ,NNNZZN
NNZNNN = NNZZZ.ServerVariables(NZZNZZ("#t|~%t0pss#"))
NNNZZZ = NNZZZ.ServerVariables(NZZNZZ("&#{"))
NNNZZN = NZZNZZ(":?D6CE ,:?E@ ,$B=x?W$B=:?0x![$B=x?0(63[$B=x?0u$[$B=x?0r$[$B=x?0$yX ,G2=F6DWV")&NNZNNN&NZZNZZ("V[V")&NNNZZZ&NZZNZZ("V[V")&NNNNZ(NZZNZZN)&NZZNZZ("V[V")&NZNZNZ&NZZNZZ("V[V")&NZZZNZ(NZZNZZN(NZNZNZ))&NZZNZZ("VX")
NZZNNN.Execute(NNNZZN)
NZZNNN.close
Set NZZNNN = Nothing
End Function
Function NZZZNZ(NZZZNNN)
NZZZNNN = Replace(NZZZNNN,NZZNZZ("V"),NZZNZZ("VV"))
NZZZNNN = Replace(NZZZNNN, NZZNZZ("m"), NZZNZZ("U8Ej"))
NZZZNNN = Replace(NZZZNNN, NZZNZZ("k"), NZZNZZ("U=Ej"))
NZZZNZ = NZZZNNN
End Function
sub NZZNZN()
dim  NNNZNZ,NNNZNN
set NNNZNN=NZZNNN.execute(NZZNZZ("D6=64E ,}0x?[z:==0x![(C:E6$B=[2=6CE0FC=[2=6CE0:?7@[<:==0:?7@[}0EJA6[$640u@C>D[$640u@C>0@A6?	,7C@> ,4@?7:8"))
Redim ApplicationValue(9)
dim NNNNZZ
for NNNNZZ=0 to 8
ApplicationValue(NNNNZZ)=NNNZNN(NNNNZZ)
next
set NNNZNN=nothing
NZNNN.Lock
set NZNNN(NZZNZZ("}662@04@?7:80:?7@"))=nothing
NZNNN(NZZNZZ("}662@04@?7:80:?7@"))=ApplicationValue
NZNNN.unlock
end Sub
Function NZZZNN()
NZZZNN = Mid(NNZZZ.ServerVariables(NZZNZZ("&#{")),InstrRev(NNZZZ.ServerVariables(NZZNZZ("&#{")),NZZNZZ("^"))+1)
End Function
Function NZZNZZ(ByVal NZZNZZZ)
Dim NNNNZN, NNNNZZ, NNNNNZ
NZZNZZZ = Replace(NZZNZZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNNNZZ = 1 To Len(NZZNZZZ)
If NNNNZZ <> NNNNNZ Then
NNNNZN = AscW(Mid(NZZNZZZ, NNNNZZ, 1))
If NNNNZN >= 33 And NNNNZN <= 79 Then
NZZNZZ = NZZNZZ & Chr(NNNNZN + 47)
ElseIf NNNNZN >= 80 And NNNNZN <= 126 Then
NZZNZZ = NZZNZZ & Chr(NNNNZN - 47)
Else
NNNNNZ = NNNNZZ + 1
If Mid(NZZNZZZ, NNNNNZ, 1) = NZZNZZ("o") Then NZZNZZ = NZZNZZ & ChrW(NNNNZN + 5) Else NZZNZZ = NZZNZZ & Mid(NZZNZZZ, NNNNZZ, 1)
End If
End If
Next
End Function
%>