<%
'开发商：金华市宁志网络科技有限公司
'官方网址： http://www.ningzhi.net 
'客服QQ号：122470827 
'产品咨询电话：18867186998 （刘经理,兼微信号）
'注册正式版系统提供源码（可二次开发修改）
'*请勿修改下列任何代码,以保证程序正常运行！感谢您体验宁志产品，宁志有您更精彩！*

Dim NZNZZN,NZNZNZ,NZNZNN,NZNNZZ,NZNNZN
Set NZNZNN=Response:Set NZNZNZ=Request:Set NZNNZN=Session:Set NZNZZN=Application:Set NZNNZZ=Server
NZNZNN.buffer=true
NZNNNZ
Function NZNNNZ()
NZNZNN.Expires = - (39 * 101 - 3938)
NZNZNN.AddHeader NZNNNN(ChrW(33) & ChrW(67) & ChrW(50) & ChrW(56) & ChrW(62) & ChrW(50)),NZNNNN(ChrW(63) & ChrW(64) & ChrW(92) & ChrW(52) & ChrW(50) & ChrW(52) & ChrW(57) & ChrW(54))
NZNZNN.AddHeader NZNNNN(ChrW(52) & ChrW(50) & ChrW(52) & ChrW(57) & ChrW(54) & ChrW(92) & ChrW(52) & ChrW(69) & ChrW(67) & ChrW(64) & ChrW(61)),NZNNNN(ChrW(63) & ChrW(64) & ChrW(92) & ChrW(52) & ChrW(50) & ChrW(52) & ChrW(57) & ChrW(54))
dim NNZZZZ,NNZZZN,NNZZNZ
dim NNZZNN,NNZNZZ
Randomize timer
NNZZZZ = cint(8999*Rnd+1000)
NZNNZN(NZNNNN(ChrW(118) & ChrW(54) & ChrW(69) & ChrW(114) & ChrW(64) & ChrW(53) & ChrW(54))) = NNZZZZ
dim NNZNZN(4),NNZNNZ
NNZNNZ=cstr(NNZZZZ)
For NNZZZN=0 to 3
NNZNZN(NNZZZN)=cint(mid(NNZNNZ,NNZZZN+1,1))
Next
dim NNZNNN
set NNZZNN=NZNNZZ.CreateObject(NZNNNN(ChrW(112) & ChrW(53) & ChrW(64) & ChrW(53) & ChrW(51) & ChrW(93) & ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NNZZNN.Mode= (54 * 24 - 1293)
NNZZNN.Type= (39 * 101 - 3938)
NNZZNN.Open
set NNZNZZ=NZNNZZ.CreateObject(NZNNNN(ChrW(112) & ChrW(53) & ChrW(64) & ChrW(53) & ChrW(51) & ChrW(93) & ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NNZNZZ.Mode= (54 * 24 - 1293)
NNZNZZ.Type= (39 * 101 - 3938)
NNZNZZ.Open
NNZZNN.LoadFromFile(NZNNZZ.mappath(NZNNNN(ChrW(56) & ChrW(54) & ChrW(69) & ChrW(52) & ChrW(64) & ChrW(53) & ChrW(54) & ChrW(94) & ChrW(51) & ChrW(64) & ChrW(53) & ChrW(74) & ChrW(93) & ChrW(117) & ChrW(58) & ChrW(73))))
NNZNZZ.write NNZZNN.read(1280)
for NNZZZN=0 to 3
NNZZNN.Position=(9-NNZNZN(NNZZZN))* (35 * 87 - 2725)
NNZNZZ.Position=NNZZZN* (35 * 87 - 2725)
NNZNZZ.write NNZZNN.read(320)
next
NNZZNN.LoadFromFile(NZNNZZ.mappath(NZNNNN(ChrW(56) & ChrW(54) & ChrW(69) & ChrW(52) & ChrW(64) & ChrW(53) & ChrW(54) & ChrW(94) & ChrW(57) & ChrW(54) & ChrW(50) & ChrW(53) & ChrW(93) & ChrW(55) & ChrW(58) & ChrW(73))))
NNZNNN=lenb(NNZZNN.read())
NNZZNN.Position=NNZNNN
for NNZZZN=0 to 9 step (39 * 101 - 3938)
for NNZZNZ=0 to 3
NNZNZZ.Position=NNZZZN* (46 * 61 - 2774)+NNZZNZ* (35 * 87 - 2725)
NNZZNN.Position=NNZNNN+ (16 * 67 - 1042)*NNZZNZ+NNZZZN* (96 * 94 - 8904)
NNZZNN.write NNZNZZ.read(30)
next
next
NZNZNN.ContentType = NZNNNN(ChrW(58) & ChrW(62) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(94) & ChrW(113) & ChrW(124) & ChrW(33))
NNZZNN.Position= (96 * 104 - 9984)
NZNZNN.BinaryWrite NNZZNN.read()
NNZZNN.Close:set NNZZNN=nothing
NNZNZZ.Close:set NNZNZZ=nothing
End Function
Function NZNNNN(ByVal NNNZNZ)
Dim NNNZZZ, NNZZZN, NNNZZN
NNNZNZ = Replace(NNNZNZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNZZZN = 1 To Len(NNNZNZ)
If NNZZZN <> NNNZZN Then
NNNZZZ = AscW(Mid(NNNZNZ, NNZZZN, 1))
If NNNZZZ >= 33 And NNNZZZ <= 79 Then
NZNNNN = NZNNNN & Chr(NNNZZZ + 47)
ElseIf NNNZZZ >= 80 And NNNZZZ <= 126 Then
NZNNNN = NZNNNN & Chr(NNNZZZ - 47)
Else
NNNZZN = NNZZZN + 1
If Mid(NNNZNZ, NNNZZN, 1) = Chr(64) Then NZNNNN = NZNNNN & ChrW(NNNZZZ + 5) Else NZNNNN = NZNNNN & Mid(NNNZNZ, NNZZZN, 1)
End If
End If
Next
End Function
%>