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

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