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

Dim NZZZZZ,NZZZZN,NZZZNZ,NZZZNN,NZZNZZ
Set NZZZNZ=Response:Set NZZZZN=Request:Set NZZNZZ=Session:Set NZZZZZ=Application:Set NZZZNN=Server
NZZZNZ.Write(NZZNNN(ChrW(107) & ChrW(62) & ChrW(54) & ChrW(69) & ChrW(50) & ChrW(32) & ChrW(44) & ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(92) & ChrW(54) & ChrW(66) & ChrW(70) & ChrW(58) & ChrW(71) & ChrW(108) & ChrW(81) & ChrW(114) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(92) & ChrW(37) & ChrW(74) & ChrW(65) & ChrW(54) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(108) & ChrW(81) & ChrW(69) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(94) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61) & ChrW(106) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(57) & ChrW(50) & ChrW(67) & ChrW(68) & ChrW(54) & ChrW(69) & ChrW(108) & ChrW(56) & ChrW(51) & ChrW(97) & ChrW(98) & ChrW(96) & ChrW(97) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(94) & ChrW(109)) & vbCrLf)
NZZZNZ.Write(NZZNNN(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(32) & ChrW(44)) & vbCrLf)
if NZZZZN.Cookies(NZZNNN(ChrW(70) & ChrW(68) & ChrW(54) & ChrW(67) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54)))="" or NZZZZN.Cookies(NZZNNN(ChrW(58) & ChrW(53)))="" then
NZZZNZ.Write(vbCrLf)
NZZZNZ.Write(NZZNNN(ChrW(32) & ChrW(44)) & vbCrLf)
NZZZNZ.Write(NZZNNN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44)) & vbCrLf)
NZZZNZ.Write(NZZNNN(ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZZZNZ.Write(NZZNNN(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZZZNZ.Write(NZZNNN(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZZZNZ.Write(NZZNNN(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZZZNZ.Write(NZZNNN(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZZZNZ.Write(NZZNNN(ChrW(107) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(51) & ChrW(64) & ChrW(67) & ChrW(53) & ChrW(54) & ChrW(67) & ChrW(108) & ChrW(81) & ChrW(95) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(61) & ChrW(58) & ChrW(56) & ChrW(63) & ChrW(108) & ChrW(81) & ChrW(52) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(67) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(54) & ChrW(61) & ChrW(61) & ChrW(65) & ChrW(50) & ChrW(53) & ChrW(53) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(108) & ChrW(81) & ChrW(98) & ChrW(95) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(54) & ChrW(61) & ChrW(61) & ChrW(68) & ChrW(65) & ChrW(50) & ChrW(52) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(108) & ChrW(81) & ChrW(96) & ChrW(95) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(51) & ChrW(56) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(64) & ChrW(67) & ChrW(108) & ChrW(81) & ChrW(82) & ChrW(117) & ChrW(117) & ChrW(104) & ChrW(104) & ChrW(95) & ChrW(95) & ChrW(81) & ChrW(109)) & vbCrLf)
NZZZNZ.Write(NZZNNN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZZZNZ.Write(NZZNNN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(69) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(51) & ChrW(56) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(64) & ChrW(67) & ChrW(108) & ChrW(81) & ChrW(82) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(114) & ChrW(114) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(61) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(81) & ChrW(65) & ChrW(96) & ChrW(101) & ChrW(81) & ChrW(109) & ChrW(24739) & ChrW(64) & ChrW(-29766) & ChrW(64) & ChrW(-27159) & ChrW(64) & ChrW(30335) & ChrW(64) & ChrW(-26512) & ChrW(64) & ChrW(-26787) & ChrW(64) & ChrW(-26885) & ChrW(64) & ChrW(30326) & ChrW(64) & ChrW(24400) & ChrW(64) & ChrW(21513) & ChrW(64) & ChrW(25160) & ChrW(64) & ChrW(-32520) & ChrW(64) & ChrW(-27136) & ChrW(64) & ChrW(-30269) & ChrW(64) & ChrW(-244) & ChrW(44) & ChrW(27486) & ChrW(64) & ChrW(22307) & ChrW(64) & ChrW(20021) & ChrW(64) & ChrW(24739) & ChrW(64) & ChrW(-28825) & ChrW(64) & ChrW(20832) & ChrW(64) & ChrW(30326) & ChrW(64) & ChrW(24400) & ChrW(64) & ChrW(-26512) & ChrW(64) & ChrW(-26787) & ChrW(64) & ChrW(-29710) & ChrW(64) & ChrW(31240) & ChrW(64) & ChrW(21513) & ChrW(64) & ChrW(93) & ChrW(93) & ChrW(93) & ChrW(93) & ChrW(93) & ChrW(93) & ChrW(107) & ChrW(94) & ChrW(69) & ChrW(53) & ChrW(109)) & vbCrLf)
NZZZNZ.Write(NZZNNN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(94) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZZZNZ.Write(NZZNNN(ChrW(107) & ChrW(94) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(109)) & vbCrLf)
NZZZNZ.Write(NZZNNN(ChrW(107) & ChrW(62) & ChrW(54) & ChrW(69) & ChrW(50) & ChrW(32) & ChrW(44) & ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(92) & ChrW(54) & ChrW(66) & ChrW(70) & ChrW(58) & ChrW(71) & ChrW(108) & ChrW(81) & ChrW(67) & ChrW(54) & ChrW(55) & ChrW(67) & ChrW(54) & ChrW(68) & ChrW(57) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(108) & ChrW(81) & ChrW(96) & ChrW(106) & ChrW(70) & ChrW(67) & ChrW(61) & ChrW(108) & ChrW(94) & ChrW(81) & ChrW(109)) & vbCrLf)
NZZZNZ.end
end if
Dim NZNNZN
Class NZNZNN
Dim NZNNNZ, NZNNNN, NNZZZZ, Err
Private Sub Class_Initialize
Err = - (45 * 106 - 4769)
End Sub
Private Sub Class_Terminate
If Err < 0 Then
NZNNNZ.RemoveAll
Set NZNNNZ = Nothing
NZNNNN.RemoveAll
Set NZNNNN = Nothing
NZNNZN.Close
Set NZNNZN = Nothing
End If
End Sub
Public Sub NZNZNZ(NZNZZNZ)
Dim NNZZNZ, NNZZNN, NNZNZZ, NNZNZN, NNZNNZ, NNZNNN, NNNZZZ, NNNZZN, NNNZNZ
Dim NNNZNN, NNNNZZ, NNNNZN, NNNNNZ, NNNNNN
Dim NZZZZZZ, NZZZZZN
Dim NZZZZNZ, NZZZZNN, NZZZNZZ
If NZZZZN.TotalBytes < 1 Then
Err = (45 * 106 - 4769)
Exit Sub
End If
If NZNZZNZ > 0 Then
If NZZZZN.TotalBytes > NZNZZNZ Then
Err = (94 * 34 - 3194)
End If
End If
Set NZNNNZ = NZZZNN.CreateObject(NZZNNN(ChrW(36) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(93) & ChrW(115) & ChrW(58) & ChrW(52) & ChrW(69) & ChrW(58) & ChrW(64) & ChrW(63) & ChrW(50) & ChrW(67) & ChrW(74)))
NZNNNZ.CompareMode = (45 * 106 - 4769)
Set NZNNNN = NZZZNN.CreateObject(NZZNNN(ChrW(36) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(93) & ChrW(115) & ChrW(58) & ChrW(52) & ChrW(69) & ChrW(58) & ChrW(64) & ChrW(63) & ChrW(50) & ChrW(67) & ChrW(74)))
NZNNNN.CompareMode = (45 * 106 - 4769)
Set NNNZZZ = NZZZNN.CreateObject(NZZNNN(ChrW(112) & ChrW(115) & ChrW(126) & ChrW(115) & ChrW(113) & ChrW(93)) & NZZNNN(ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
Set NZNNZN = NZZZNN.CreateObject(NZZNNN(ChrW(112) & ChrW(115) & ChrW(126) & ChrW(115) & ChrW(113) & ChrW(93)) & NZZNNN(ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NZNNZN.Type = (45 * 106 - 4769)
NZNNZN.Mode = (27 * 92 - 2481)
NZNNZN.Open
NZNNZN.Write NZZZZN.BinaryRead(NZZZZN.TotalBytes)
NZNNZN.Position = (27 * 102 - 2754)
NNZZNZ = NZNNZN.Read
NZZZZNN = NZNNZN.Size
NNZNZZ = ChrB(13) & ChrB(10)
NNZZNN = MidB(NNZZNZ,1, InStrB(1,NNZZNZ,NNZNZZ)-1)
NNNZZN = LenB(NNZZNN)
NZZZZNZ = NNNZZN+ (94 * 34 - 3194)
Do
NNZNNN = InStrB(NZZZZNZ,NNZZNZ,NNZNZZ & NNZNZZ)+ (27 * 92 - 2481)
NNNZZZ.Type = (45 * 106 - 4769)
NNNZZZ.Mode = (27 * 92 - 2481)
NNNZZZ.Open
NZNNZN.Position = NZZZZNZ
NZNNZN.CopyTo NNNZZZ,NNZNNN-NZZZZNZ
NNNZZZ.Position = (27 * 102 - 2754)
NNNZZZ.Type = (94 * 34 - 3194)
NNNZZZ.CharSet = NZZNNN(ChrW(56) & ChrW(51) & ChrW(97) & ChrW(98) & ChrW(96) & ChrW(97))
NNZNZN = NNNZZZ.ReadText
NZZZZNZ = InStrB(NNZNNN,NNZZNZ,NNZZNN)- (45 * 106 - 4769)
NZZZZZZ = InStr(22,NNZNZN,NZZNNN(ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81)),1)+ (29 * 90 - 2604)
NZZZZZN = InStr(NZZZZZZ,NNZNZN,NZZNNN(ChrW(81)),0)
NZZZNZZ = Mid(NNZNZN,NZZZZZZ,NZZZZZN-NZZZZZZ)
If InStr(45,NNZNZN,NZZNNN(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81)),1) > 0 Then
Set NNNZNZ = new NZNNZZ
NZZZZZZ = InStr(NZZZZZN,NNZNZN,NZZNNN(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81)),1)+ (76 * 24 - 1814)
NZZZZZN = InStr(NZZZZZZ,NNZNZN,NZZNNN(ChrW(81)),0)
NNNNNN = Mid(NNZNZN,NZZZZZZ,NZZZZZN-NZZZZZZ)
NNNZNZ.FileName = Mid(NNNNNN,InStrRev(NNNNNN, NZZNNN(ChrW(45)))+1)
NNNZNZ.FilePath = Left(NNNNNN,InStrRev(NNNNNN, NZZNNN(ChrW(45))))
NNNZNZ.FileExt = Mid(NNNNNN,InStrRev(NNNNNN, NZZNNN(ChrW(93)))+1)
NZZZZZZ = InStr(NZZZZZN,NNZNZN,NZZNNN(ChrW(114) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(92) & ChrW(37) & ChrW(74) & ChrW(65) & ChrW(54) & ChrW(105) & ChrW(32) & ChrW(44)),1)+ (42 * 39 - 1624)
NZZZZZN = InStr(NZZZZZZ,NNZNZN,vbCr)
NNNZNZ.FileType = Mid(NNZNZN,NZZZZZZ,NZZZZZN-NZZZZZZ)
NNNZNZ.FileStart = NNZNNN
NNNZNZ.FileSize = NZZZZNZ -NNZNNN - (94 * 34 - 3194)
NNNZNZ.FormName = NZZZNZZ
NZNNNN.add NZZZNZZ,NNNZNZ
else
NNNZZZ.Close
NNNZZZ.Type = (45 * 106 - 4769)
NNNZZZ.Mode = (27 * 92 - 2481)
NNNZZZ.Open
NZNNZN.Position = NNZNNN
NZNNZN.CopyTo NNNZZZ,NZZZZNZ-NNZNNN- (94 * 34 - 3194)
NNNZZZ.Position = (27 * 102 - 2754)
NNNZZZ.Type = (94 * 34 - 3194)
NNNZZZ.CharSet = NZZNNN(ChrW(56) & ChrW(51) & ChrW(97) & ChrW(98) & ChrW(96) & ChrW(97))
NNNNNZ = NNNZZZ.ReadText
If NZNNNZ.Exists(NZZZNZZ) Then
NZNNNZ(NZZZNZZ) = NZNNNZ(NZZZNZZ) & NZZNNN(ChrW(91) & ChrW(32) & ChrW(44)) & NNNNNZ
Else
NZNNNZ.Add NZZZNZZ,NNNNNZ
End If
End If
NNNZZZ.Close
NZZZZNZ = NZZZZNZ+NNNZZN+ (94 * 34 - 3194)
Loop Until (NZZZZNZ+2) >= NZZZZNN
NNZZNZ = ""
Set NNNZZZ = Nothing
End Sub
End Class
Class NZNNZZ
Dim FormName, FileName, FilePath, FileSize, FileType, FileStart, FileExt
Public Function SaveToFile(NZNZNZZ)
On Error Resume Next
Dim NZZNNZZ
Set NZZNNZZ = CreateObject(NZZNNN(ChrW(112) & ChrW(115) & ChrW(126) & ChrW(115) & ChrW(113) & ChrW(93)) & NZZNNN(ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NZZNNZZ.Type = (45 * 106 - 4769)
NZZNNZZ.Mode = (27 * 92 - 2481)
NZZNNZZ.Open
NZNNZN.Position = FileStart
NZNNZN.CopyTo NZZNNZZ,FileSize
NZZNNZZ.SaveToFile NZNZNZZ,2
NZZNNZZ.Close
Set NZZNNZZ = Nothing
End Function
Public Function NZZNNZ
NZNNZN.Position = FileStart
NZZNNZ = NZNNZN.Read(FileSize)
End Function
End Class
Function NZZNNN(ByVal NZNZZZZ)
Dim NZZNNZN, NZZNNNZ, NZZNNNN
NZNZZZZ = Replace(NZNZZZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZNNNZ = 1 To Len(NZNZZZZ)
If NZZNNNZ <> NZZNNNN Then
NZZNNZN = AscW(Mid(NZNZZZZ, NZZNNNZ, 1))
If NZZNNZN >= 33 And NZZNNZN <= 79 Then
NZZNNN = NZZNNN & Chr(NZZNNZN + 47)
ElseIf NZZNNZN >= 80 And NZZNNZN <= 126 Then
NZZNNN = NZZNNN & Chr(NZZNNZN - 47)
Else
NZZNNNN = NZZNNNZ + 1
If Mid(NZNZZZZ, NZZNNNN, 1) = Chr(64) Then NZZNNN = NZZNNN & ChrW(NZZNNZN + 5) Else NZZNNN = NZZNNN & Mid(NZNZZZZ, NZZNNNZ, 1)
End If
End If
Next
End Function
%>