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

Dim NZNNZN,NZNNNZ,NZNNNN,NNZZZZ,NNZZZN
Set NZNNNN=Response:Set NZNNNZ=Request:Set NNZZZN=Session:Set NZNNZN=Application:Set NNZZZZ=Server
Dim NNZZNN,NNZNZZ
on error resume next
NNZNZZ=NNZZNZ("sq""l")+NNZZZZ.mappath(NNZZNZ("?K4>D0?KH63^?K4>D0FA^52E2^?K4>D0DB=]2D2I"))+NNZZNZ("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set NNZZNN=NNZZZZ.createobject(NNZZNZ("ps~sq]r~}}tr%x~}"))
NNZZNN.open NNZNZZ
Dim NNZNZN,NNZNNZ,NNZNNN,NNNZZZ,NNNZZN,NNNZNZ,NNNZNN,NNNNZZ,NNNNZN,NNNNNZ,NNNNNN
NNZNZN = NZNNNZ.ServerVariables(NNZZNZ("w%%!0)0u~#(p#sts0u~#"))
If NNZNZN = "" Then NNZNZN = NZNNNZ.ServerVariables(NNZZNZ("#t|~%t0pss#"))
Set NZZZZNN=NNZZZZ.CreateObject(NNZZNZ("25@53]C64@C5$6E"))
NZZZNZZ=NNZZNZ("$6=64E ,Y ,7C@> ,,r@F?E6C.")
NZZZZNN.open NZZZNZZ,NNZZNN,1,3
If NZZZZNN(NNZZNZ("%@AxA"))<NZZZZNN(NNZZNZ("%@52J")) then
NZZZZNN(NNZZNZ("%@AxA"))=NZZZZNN(NNZZNZ("%@52J"))
NZZZZNN.update
End If
If NZZZZNN(NNZZNZ("%@A"))<NZZZZNN(NNZZNZ("qC@HD6C")) then
NZZZZNN(NNZZNZ("%@A"))=NZZZZNN(NNZZNZ("qC@HD6C"))
NZZZZNN.update
End If
If NZZZZNN(NNZZNZ("~E@"))<>date() then
NNZNNZ=date()- (40 * 28 - 1119)
NNZZNN.Execute NNZZNZ("&A52E6 ,,r@F?E6C. ,$6E ,%@52Jl_[qC@HD6Cl_[~E@l52E6WX[s2J?F>ls2J?F>Z`[*6DE6C52JxAl")& NZZZZNN(NNZZNZ("%@52J")) &NNZZNZ("[*6DE6C52Jl")& NZZZZNN(NNZZNZ("qC@HD6C")) &""
NNZZNN.Execute NNZZNZ("x?D6CE ,:?E@ ,,s2J.W+52J[$E2ED[qC@HD6CX ,G2=F6D ,WV")& NNZNNZ &NNZZNZ("V[")& NZZZZNN(NNZZNZ("%@52J")) &NNZZNZ("[")& NZZZZNN(NNZZNZ("qC@HD6C")) &NNZZNZ("X")
NNZZNN.Execute NNZZNZ("56=6E6 ,7C@> ,,xA.")
Else
NNZZNN.Execute NNZZNZ("&A52E6 ,,r@F?E6C. ,$6E ,qC@HD6ClqC@HD6CZ`[r@F?E6Clr@F?E6CZ`")
End If
NZNNNN.Write NNZZNZ("5@4F>6?E]HC:E6WQ患@昪@朧@竔@癿@笧@：,k3m")& NZZZZNN(NNZZNZ("r@F?E6CxA")) &NNZZNZ("k^3mU?3DAj佈@论@宝@QXj")
NZNNNN.Write NNZZNZ("5@4F>6?E]HC:E6WQU?3DAjU?3DAjU?3DAj论@闩@怶@x!：,k3m")& NZZZZNN(NNZZNZ("r@F?E6CxA")) &NNZZNZ("k^3mU?3DAj严@QXj")
NZNNNN.Write NNZZNZ("5@4F>6?E]HC:E6WQU?3DAjU?3DAjU?3DAj仅@无@浊@觃@：,k3m")& NZZZZNN(NNZZNZ("qC@HD6C")) &NNZZNZ("k^3mU?3DAj欜@QXj")
NZNNNN.Write NNZZNZ("5@4F>6?E]HC:E6WQU?3DAjU?3DAjU?3DAj仅@无@x!：,k3m")& NZZZZNN(NNZZNZ("%@52J")) &NNZZNZ("k^3mU?3DAj严@QXj")
NZZZZNN.close
Set NZZZZNN=nothing
Set NZZZZNN=NNZZZZ.CreateObject(NNZZNZ("25@53]C64@C5$6E"))
NZZZNZZ=NNZZNZ("$6=64E ,Y ,7C@> ,,xA. ,H96C6 ,x!lV")& NNZNZN &NNZZNZ("V ,@C56C ,3J ,x5 ,56D4")
NZZZZNN.open NZZZNZZ,NNZZNN,1,3
If NZZZZNN.bof and NZZZZNN.eof then
NZZZZNN.addnew
NZZZZNN(NNZZNZ("x!"))=NNZNZN
NZZZZNN.update
NNZZNN.Execute NNZZNZ("&A52E6 ,,r@F?E6C. ,$6E ,%@52Jl%@52JZ`[r@F?E6CxAlr@F?E6CxAZ`")
End If
NZZZZNN.close
Set NZZZZNN=nothing
NNZZNN.close
Set NNZZNN=nothing
Function NNZZNZ(ByVal NZZZNZN)
Dim NZZZZZZ, NZZZZZN, NZZZZNZ
NZZZNZN = Replace(NZZZNZN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZZZZN = 1 To Len(NZZZNZN)
If NZZZZZN <> NZZZZNZ Then
NZZZZZZ = AscW(Mid(NZZZNZN, NZZZZZN, 1))
If NZZZZZZ >= 33 And NZZZZZZ <= 79 Then
NNZZNZ = NNZZNZ & Chr(NZZZZZZ + 47)
ElseIf NZZZZZZ >= 80 And NZZZZZZ <= 126 Then
NNZZNZ = NNZZNZ & Chr(NZZZZZZ - 47)
Else
NZZZZNZ = NZZZZZN + 1
If Mid(NZZZNZN, NZZZZNZ, 1) = NNZZNZ("o") Then NNZZNZ = NNZZNZ & ChrW(NZZZZZZ + 5) Else NNZZNZ = NNZZNZ & Mid(NZZZNZN, NZZZZZN, 1)
End If
End If
Next
End Function
%>