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

Dim NNZZZN,NNZZNZ,NNZZNN,NNZNZZ,NNZNZN
Set NNZZNN=Response:Set NNZZNZ=Request:Set NNZNZN=Session:Set NNZZZN=Application:Set NNZNZZ=Server
NNZZNN.buffer=true
NNZNNZ
Function NNZNNZ()
NNZZNN.Expires = - (106 * 57 - 6041)
NNZZNN.AddHeader NNZNNN(ChrW(33) & ChrW(67) & ChrW(50) & ChrW(56) & ChrW(62) & ChrW(50)),NNZNNN(ChrW(63) & ChrW(64) & ChrW(92) & ChrW(52) & ChrW(50) & ChrW(52) & ChrW(57) & ChrW(54))
NNZZNN.AddHeader NNZNNN(ChrW(52) & ChrW(50) & ChrW(52) & ChrW(57) & ChrW(54) & ChrW(92) & ChrW(52) & ChrW(69) & ChrW(67) & ChrW(64) & ChrW(61)),NNZNNN(ChrW(63) & ChrW(64) & ChrW(92) & ChrW(52) & ChrW(50) & ChrW(52) & ChrW(57) & ChrW(54))
dim NNNZZZ,NNNZZN,NNNZNZ
dim NNNZNN,NNNNZZ
Randomize timer
NNNZZZ = cint(8999*Rnd+1000)
NNZNZN(NNZNNN(ChrW(118) & ChrW(54) & ChrW(69) & ChrW(114) & ChrW(64) & ChrW(53) & ChrW(54))) = NNNZZZ
dim NNNNZN(4),NNNNNZ
NNNNNZ=cstr(NNNZZZ)
For NNNZZN=0 to 3
NNNNZN(NNNZZN)=cint(mid(NNNNNZ,NNNZZN+1,1))
Next
dim NNNNNN
set NNNZNN=NNZNZZ.CreateObject(NNZNNN(ChrW(112) & ChrW(53) & ChrW(64) & ChrW(53) & ChrW(51) & ChrW(93) & ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NNNZNN.Mode= (73 * 15 - 1092)
NNNZNN.Type= (106 * 57 - 6041)
NNNZNN.Open
set NNNNZZ=NNZNZZ.CreateObject(NNZNNN(ChrW(112) & ChrW(53) & ChrW(64) & ChrW(53) & ChrW(51) & ChrW(93) & ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NNNNZZ.Mode= (73 * 15 - 1092)
NNNNZZ.Type= (106 * 57 - 6041)
NNNNZZ.Open
NNNZNN.LoadFromFile(NNZNZZ.mappath(NNZNNN(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))))
NNNNZZ.write NNNZNN.read(1280)
for NNNZZN=0 to 3
NNNZNN.Position=(9-NNNNZN(NNNZZN))* (29 * 36 - 724)
NNNNZZ.Position=NNNZZN* (29 * 36 - 724)
NNNNZZ.write NNNZNN.read(320)
next
NNNZNN.LoadFromFile(NNZNZZ.mappath(NNZNNN(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))))
NNNNNN=lenb(NNNZNN.read())
NNNZNN.Position=NNNNNN
for NNNZZN=0 to 9 step (106 * 57 - 6041)
for NNNZNZ=0 to 3
NNNNZZ.Position=NNNZZN* (42 * 46 - 1900)+NNNZNZ* (29 * 36 - 724)
NNNZNN.Position=NNNNNN+ (37 * 96 - 3522)*NNNZNZ+NNNZZN* (12 * 11 - 12)
NNNZNN.write NNNNZZ.read(30)
next
next
NNZZNN.ContentType = NNZNNN(ChrW(58) & ChrW(62) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(94) & ChrW(113) & ChrW(124) & ChrW(33))
NNNZNN.Position= (38 * 17 - 646)
NNZZNN.BinaryWrite NNNZNN.read()
NNNZNN.Close:set NNNZNN=nothing
NNNNZZ.Close:set NNNNZZ=nothing
End Function
Function NNZNNN(ByVal NZZZZNZ)
Dim NZZZZZZ, NNNZZN, NZZZZZN
NZZZZNZ = Replace(NZZZZNZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNNZZN = 1 To Len(NZZZZNZ)
If NNNZZN <> NZZZZZN Then
NZZZZZZ = AscW(Mid(NZZZZNZ, NNNZZN, 1))
If NZZZZZZ >= 33 And NZZZZZZ <= 79 Then
NNZNNN = NNZNNN & Chr(NZZZZZZ + 47)
ElseIf NZZZZZZ >= 80 And NZZZZZZ <= 126 Then
NNZNNN = NNZNNN & Chr(NZZZZZZ - 47)
Else
NZZZZZN = NNNZZN + 1
If Mid(NZZZZNZ, NZZZZZN, 1) = Chr(64) Then NNZNNN = NNZNNN & ChrW(NZZZZZZ + 5) Else NNZNNN = NNZNNN & Mid(NZZZZNZ, NNNZZN, 1)
End If
End If
Next
End Function
%>