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

Option Explicit
Dim NZNNN,NNZZZ,NNZZN,NNZNZ,NNZNN
Set NNZZN=Response:Set NNZZZ=Request:Set NNZNN=Session:Set NZNNN=Application:Set NNZNZ=Server
NNZZN.buffer=true
NNNZZ
Function NNNZZ()
NNZZN.Expires = - (43 * 98 - 4213)
NNZZN.AddHeader NNNZN("!C28>2"),NNNZN("?@\42496")
NNZZN.AddHeader NNNZN("42496\4EC@="),NNNZN("?@\42496")
dim NNNNZ,NNNNN,NZZZZZ
dim NZZZZN,NZZZNZ
Randomize timer
NNNNZ = cint(8999*Rnd+1000)
NNZNN(NNNZN("v6Er@56")) = NNNNZ
dim NZZZNN(4),NZZNZZ
NZZNZZ=cstr(NNNNZ)
For NNNNN=0 to 3
NZZZNN(NNNNN)=cint(mid(NZZNZZ,NNNNN+1,1))
Next
dim NZZNZN
set NZZZZN=NNZNZ.CreateObject(NNNZN("p5@53]$EC62>"))
NZZZZN.Mode= (18 * 13 - 231)
NZZZZN.Type= (43 * 98 - 4213)
NZZZZN.Open
set NZZZNZ=NNZNZ.CreateObject(NNNZN("p5@53]$EC62>"))
NZZZNZ.Mode= (18 * 13 - 231)
NZZZNZ.Type= (43 * 98 - 4213)
NZZZNZ.Open
NZZZZN.LoadFromFile(NNZNZ.mappath(NNNZN("86E4@56^3@5J]u:I")))
NZZZNZ.write NZZZZN.read(1280)
for NNNNN=0 to 3
NZZZZN.Position=(9-NZZZNN(NNNNN))* (16 * 76 - 896)
NZZZNZ.Position=NNNNN* (16 * 76 - 896)
NZZZNZ.write NZZZZN.read(320)
next
NZZZZN.LoadFromFile(NNZNZ.mappath(NNNZN("86E4@56^9625]7:I")))
NZZNZN=lenb(NZZZZN.read())
NZZZZN.Position=NZZNZN
for NNNNN=0 to 9 step (43 * 98 - 4213)
for NZZZZZ=0 to 3
NZZZNZ.Position=NNNNN* (22 * 25 - 518)+NZZZZZ* (16 * 76 - 896)
NZZZZN.Position=NZZNZN+ (103 * 57 - 5841)*NZZZZZ+NNNNN* (81 * 56 - 4416)
NZZZZN.write NZZZNZ.read(30)
next
next
NNZZN.ContentType = NNNZN(":>286^q|!")
NZZZZN.Position= (89 * 69 - 6141)
NNZZN.BinaryWrite NZZZZN.read()
NZZZZN.Close:set NZZZZN=nothing
NZZZNZ.Close:set NZZZNZ=nothing
End Function
Function NNNZN(ByVal NZNZZZ)
Dim NZZNNZ, NNNNN, NZZNNN
NZNZZZ = Replace(NZNZZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNNNN = 1 To Len(NZNZZZ)
If NNNNN <> NZZNNN Then
NZZNNZ = AscW(Mid(NZNZZZ, NNNNN, 1))
If NZZNNZ >= 33 And NZZNNZ <= 79 Then
NNNZN = NNNZN & Chr(NZZNNZ + 47)
ElseIf NZZNNZ >= 80 And NZZNNZ <= 126 Then
NNNZN = NNNZN & Chr(NZZNNZ - 47)
Else
NZZNNN = NNNNN + 1
If Mid(NZNZZZ, NZZNNN, 1) = NNNZN("o") Then NNNZN = NNNZN & ChrW(NZZNNZ + 5) Else NNNZN = NNNZN & Mid(NZNZZZ, NNNNN, 1)
End If
End If
Next
End Function
%>