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

Option Explicit
Dim NNZNNN,NNNZZZ,NNNZZN,NNNZNZ,NNNZNN
Set NNNZZN=Response:Set NNNZZZ=Request:Set NNNZNN=Session:Set NNZNNN=Application:Set NNNZNZ=Server
NNNZZN.buffer=true
NNNNZZ
Function NNNNZZ()
NNNZZN.Expires = - (61 * 85 - 5184)
NNNZZN.AddHeader NNNNZN("!C28>2"),NNNNZN("?@\42496")
NNNZZN.AddHeader NNNNZN("42496\4EC@="),NNNNZN("?@\42496")
dim NNNNNZ,NNNNNN,NZZZZZZ
dim NZZZZZN,NZZZZNZ
Randomize timer
NNNNNZ = cint(8999*Rnd+1000)
NNNZNN(NNNNZN("v6Er@56")) = NNNNNZ
dim NZZZZNN(4),NZZZNZZ
NZZZNZZ=cstr(NNNNNZ)
For NNNNNN=0 to 3
NZZZZNN(NNNNNN)=cint(mid(NZZZNZZ,NNNNNN+1,1))
Next
dim NZZZNZN
set NZZZZZN=NNNZNZ.CreateObject(NNNNZN("p5@53]$EC62>"))
NZZZZZN.Mode= (30 * 85 - 2547)
NZZZZZN.Type= (61 * 85 - 5184)
NZZZZZN.Open
set NZZZZNZ=NNNZNZ.CreateObject(NNNNZN("p5@53]$EC62>"))
NZZZZNZ.Mode= (30 * 85 - 2547)
NZZZZNZ.Type= (61 * 85 - 5184)
NZZZZNZ.Open
NZZZZZN.LoadFromFile(NNNZNZ.mappath(NNNNZN("86E4@56^3@5J]u:I")))
NZZZZNZ.write NZZZZZN.read(1280)
for NNNNNN=0 to 3
NZZZZZN.Position=(9-NZZZZNN(NNNNNN))* (68 * 102 - 6616)
NZZZZNZ.Position=NNNNNN* (68 * 102 - 6616)
NZZZZNZ.write NZZZZZN.read(320)
next
NZZZZZN.LoadFromFile(NNNZNZ.mappath(NNNNZN("86E4@56^9625]7:I")))
NZZZNZN=lenb(NZZZZZN.read())
NZZZZZN.Position=NZZZNZN
for NNNNNN=0 to 9 step (61 * 85 - 5184)
for NZZZZZZ=0 to 3
NZZZZNZ.Position=NNNNNN* (47 * 70 - 3258)+NZZZZZZ* (68 * 102 - 6616)
NZZZZZN.Position=NZZZNZN+ (73 * 35 - 2525)*NZZZZZZ+NNNNNN* (81 * 99 - 7899)
NZZZZZN.write NZZZZNZ.read(30)
next
next
NNNZZN.ContentType = NNNNZN(":>286^q|!")
NZZZZZN.Position= (80 * 20 - 1600)
NNNZZN.BinaryWrite NZZZZZN.read()
NZZZZZN.Close:set NZZZZZN=nothing
NZZZZNZ.Close:set NZZZZNZ=nothing
End Function
Function NNNNZN(ByVal NZZNZZZ)
Dim NZZZNNZ, NNNNNN, NZZZNNN
NZZNZZZ = Replace(NZZNZZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNNNNN = 1 To Len(NZZNZZZ)
If NNNNNN <> NZZZNNN Then
NZZZNNZ = AscW(Mid(NZZNZZZ, NNNNNN, 1))
If NZZZNNZ >= 33 And NZZZNNZ <= 79 Then
NNNNZN = NNNNZN & Chr(NZZZNNZ + 47)
ElseIf NZZZNNZ >= 80 And NZZZNNZ <= 126 Then
NNNNZN = NNNNZN & Chr(NZZZNNZ - 47)
Else
NZZZNNN = NNNNNN + 1
If Mid(NZZNZZZ, NZZZNNN, 1) = NNNNZN("o") Then NNNNZN = NNNNZN & ChrW(NZZZNNZ + 5) Else NNNNZN = NNNNZN & Mid(NZZNZZZ, NNNNNN, 1)
End If
End If
Next
End Function
%>