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

Dim NNZNNN,NNNZZZ,NNNZZN,NNNZNZ,NNNZNN
Set NNNZZN=Response:Set NNNZZZ=Request:Set NNNZNN=Session:Set NNZNNN=Application:Set NNNZNZ=Server
NNNZZN.Write(NZZNZNN(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)
NNNZZN.Write(NZZNZNN(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(32) & ChrW(44)) & vbCrLf)
if NNNZZZ.Cookies(NZZNZNN(ChrW(70) & ChrW(68) & ChrW(54) & ChrW(67) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54)))="" or NNNZZZ.Cookies(NZZNZNN(ChrW(58) & ChrW(53)))="" then
NNNZZN.Write(vbCrLf)
NNNZZN.Write(NZZNZNN(ChrW(32) & ChrW(44)) & vbCrLf)
NNNZZN.Write(NZZNZNN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44)) & vbCrLf)
NNNZZN.Write(NZZNZNN(ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NNNZZN.Write(NZZNZNN(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)
NNNZZN.Write(NZZNZNN(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)
NNNZZN.Write(NZZNZNN(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)
NNNZZN.Write(NZZNZNN(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)
NNNZZN.Write(NZZNZNN(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)
NNNZZN.Write(NZZNZNN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NNNZZN.Write(NZZNZNN(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)
NNNZZN.Write(NZZNZNN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(94) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NNNZZN.Write(NZZNZNN(ChrW(107) & ChrW(94) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(109)) & vbCrLf)
NNNZZN.Write(NZZNZNN(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)
NNNZZN.end
end if
NNNZZN.Write(vbCrLf)
NNNZZN.Write(NZZNZNN(ChrW(107) & ChrW(80) & ChrW(92) & ChrW(92) & ChrW(32) & ChrW(44) & ChrW(19973) & ChrW(64) & ChrW(20251) & ChrW(64) & ChrW(-30271) & ChrW(64) & ChrW(-26484) & ChrW(64) & ChrW(32447) & ChrW(64) & ChrW(20209) & ChrW(64) & ChrW(92) & ChrW(92) & ChrW(109)) & vbCrLf)
NNNZZN.Write(NZZNZNN(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)
Dim NNZNZNZ
Class NNZZNNN
Private NNZNZNN, NNZNNZZ
Private NNZNNZN, NNZNNNZ, NNZNNNN, NNNZZZZ, NNNZZZN, NNNZZNZ, NNNZZNN, NNNZNZZ,NNNZNZN, NNNZNNZ, NNNZNNN, NNNNZZZ,NNNNZZN
private NNNNZNZ,NNNNZNN
Public Property Let Mode(ByVal value)
NNNZNNN = value
End Property
Public Property Let NZZNNZN(ByVal value)
NNZNNNZ = value
End Property
Public Property Let NZZNNNZ(ByVal value)
NNZNNNN = value
End Property
Public Property Let NZZNNNN(ByVal value)
NNNZZNN = LCase(value)
NNNZZNN = replace(NNNZZNN,NZZNZNN(ChrW(89) & ChrW(93)),"")
NNNZZNN = replace(NNNZZNN,NZZNZNN(ChrW(106)),NZZNZNN(ChrW(77)))
End Property
Public Property Let CharSet(ByVal value)
NNZNNZN = value
End Property
Public Property Get NZNZZZN()
NZNZZZN = NNNZZZZ
End Property
Public Property Get NZNZZNZ()
NZNZZNZ = NNZNNZZ.count
End Property
Public Property Get Description()
Description = NNNNNN(NNNZZZZ)
End Property
Public Property Get NZNZNZZ()
NZNZNZZ = NNNZZZN
End Property
Public Property Get NZNZNZN()
NZNZNZN = NNNZZNZ
End Property
Public Property Get NZNZNNZ()
NZNZNNZ = NNNZNNZ
End Property
Private Sub Class_Initialize()
set NNZNZNN = NNNZNZ.createobject(NZZNZNN(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)))
set NNZNNZZ = NNNZNZ.createobject(NZZNZNN(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)))
Set NNZNZNZ = NNNZNZ.CreateObject(NZZNZNN(ChrW(112) & ChrW(53) & ChrW(64) & ChrW(53) & ChrW(51) & ChrW(93) & ChrW(68) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NNNZZZN = NZZNZNN(ChrW(112) & ChrW(58) & ChrW(54) & ChrW(63) & ChrW(112) & ChrW(68) & ChrW(65) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(39) & ChrW(96) & ChrW(98) & ChrW(93) & ChrW(96) & ChrW(97) & ChrW(93) & ChrW(95) & ChrW(104))
NNZNNNZ = - (92 * 55 - 5059)
NNZNNNN = - (92 * 55 - 5059)
NNNZZZZ = - (92 * 55 - 5059)
NNNZZNN = ""
NNNZZNZ = (58 * 51 - 2958)
NNZNNZN = NZZNZNN(ChrW(56) & ChrW(51) & ChrW(97) & ChrW(98) & ChrW(96) & ChrW(97))
NNNZNNN = (58 * 51 - 2958)
NNNNZZN=false
NNNNZNZ=NZZNZNN(ChrW(48)) & NZZZZZZ() & NZZNZNN(ChrW(48))
NNNNZNN = 6.0
Dim NNNNNZZ
NNNNNZZ = lcase(NNNZZZ.ServerVariables(NZZNZNN(ChrW(36) & ChrW(116) & ChrW(35) & ChrW(39) & ChrW(116) & ChrW(35) & ChrW(48) & ChrW(36) & ChrW(126) & ChrW(117) & ChrW(37) & ChrW(40) & ChrW(112) & ChrW(35) & ChrW(116))))
NNNNNZZ = replace(NNNNNZZ,NZZNZNN(ChrW(62) & ChrW(58) & ChrW(52) & ChrW(67) & ChrW(64) & ChrW(68) & ChrW(64) & ChrW(55) & ChrW(69) & ChrW(92) & ChrW(58) & ChrW(58) & ChrW(68) & ChrW(94)),"")
if isnumeric(NNNNNZZ) then NNNNZNN = cdbl(NNNNNZZ)
End Sub
Private Sub Class_Terminate()
Dim NNNNNZN
NNZNZNN.RemoveAll()
For each NNNNNZN in NNZNNZZ
NNZNNZZ(NNNNNZN).value=empty
Set NNZNNZZ(NNNNNZN) = Nothing
Next
NNZNNZZ.RemoveAll()
Set NNZNZNN = Nothing
Set NNZNNZZ = Nothing
if NNNNZZN then NNZNZNZ.close()
Set NNZNZNZ = Nothing
End Sub
Public Sub NNZZNNZ()
Dim NNNNNNZ
NNNNNNZ = timer()
Dim value, str, NZZZZZZZ, NZZZZZZN, NZZZZZNZ, NZZZZZNN, NZZZZNZZ,NZZZZNZN
Dim TotalBytes,NZZZZNNN,NZZZNZZZ,NZZZNZZN,NZZZNZNZ,NZZZNZNN,NZZZNNZZ, NZZZNNZN, NZZZNNNZ, NZZZNNNN, formname, FileName, NZZNZZZZ, NZZNZZZN, NewName,localname,NZZNZZNZ,contentType
TotalBytes = NNNZZZ.TotalBytes
NZZZZNZN = false
If NZZZZZN = false Then NZZZZNZN = true : NNNZZZZ = (40 * 84 - 3358)
If NNNNZNN>=6 Then
If Not NZZZZNZN Then
If NNZNNNZ > 0 And TotalBytes > NNZNNNZ Then NZZZZNZN = true : NNNZZZZ = (92 * 55 - 5059)
End If
End If
If NZZZZNZN Then Exit Sub
If NNNZNNN = 0 Then
NNNZZNZ = (58 * 51 - 2958)
NNZNZNZ.Type = (92 * 55 - 5059)
NNZNZNZ.Mode = (73 * 33 - 2406)
NNZNZNZ.Open
NNNNZZN = true
NZZZNZZZ = (58 * 51 - 2958)
NZZZNZZN = (24 * 56 - 320) * (47 * 78 - 3650)
Do While NZZZNZZZ < TotalBytes
NZZZNZNZ = NZZZNZZN
If NZZZNZNZ + NZZZNZZZ > TotalBytes Then NZZZNZNZ = TotalBytes - NZZZNZZZ
NZZZNZNN = NNNZZZ.BinaryRead(NZZZNZNZ)
NNZNZNZ.Write NZZZNZNN
NZZZNZZZ = NZZZNZZZ + NZZZNZNZ
Loop
NNZNZNZ.Position = (58 * 51 - 2958)
NZZZZNNN = NNZNZNZ.Read
Else
NZZZZNNN = NNNZZZ.BinaryRead(TotalBytes)
End If
NZZZZZZZ = ChrB(13) & ChrB(10)
NZZZZZZN = InStrB(1, NZZZZNNN, NZZZZZZZ)
NZZZZZNZ = MidB(NZZZZNNN, 1, NZZZZZZN - 1)
NZZZZZNN = LenB(NZZZZZNZ)
NZZZZNZZ = NZZZZZNN + (40 * 84 - 3358)
Do
NZZZNNZZ = InStrB(NZZZZNZZ, NZZZZNNN, NZZZZZZZ & NZZZZZZZ)
if NZZZNNZZ<=0 then exit do
NZZZNNZN = MidB(NZZZZNNN, NZZZZNZZ, NZZZNNZZ - NZZZZNZZ)
str = NNNNNZ(NZZZNNZN)
NZZZNNNZ = InStr(str, NZZNZNN(ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81))) + (96 * 65 - 6234)
if NZZZNNNZ<=0 then exit do
NZZZNNNN = InStr(NZZZNNNZ, str, NZZNZNN(ChrW(81)))
if NZZZNNNN<=0 then exit do
formname = LCase(Mid(str, NZZZNNNZ, NZZZNNNN - NZZZNNNZ))
NZZNZZZN = InStrB(NZZZNNZZ + 3, NZZZZNNN, NZZZZZNZ)
if NZZNZZZN<=0 then exit do
If InStr(str, NZZNZNN(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81))) > 0 Then
formname = formname & NNNNZNZ & "0"
NZZZNNNZ = InStr(str, NZZNZNN(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81))) + (20 * 94 - 1870)
NZZZNNNN = InStr(NZZZNNNZ, str, NZZNZNN(ChrW(81)))
NZZNZZNZ=instr(NZZZNNNN,lcase(str),NZZNZNN(ChrW(52) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(92) & ChrW(69) & ChrW(74) & ChrW(65) & ChrW(54)))
contentType=trim(mid(str,NZZNZZNZ+13))
FileName = Mid(str, NZZZNNNZ, NZZZNNNN - NZZZNNNZ)
If Trim(FileName) <> "" Then
FileName = Replace(FileName, NZZNZNN(ChrW(94)), NZZNZNN(ChrW(45)))
FileName = Replace(FileName, chr(0), "")
LocalName = FileName
FileName = Mid(FileName, InStrRev(FileName, NZZNZNN(ChrW(45))) + 1)
If instr(FileName,NZZNZNN(ChrW(93)))>0 Then
NZZNZZZZ = Split(FileName, NZZNZNN(ChrW(93)))(UBound(Split(FileName, NZZNZNN(ChrW(93)))))
else
NZZNZZZZ = ""
End If
If NNNZZNN <> "" Then
If NNNNZZ(NZZNZZZZ) = True Then
NNNZZZZ = (73 * 33 - 2406)
NNNZNZZ = NZZNZZZZ
NZZZZNNN = empty
Exit Sub
End If
End If
NewName = NZZZZZZ()
NewName = NewName & NZZNZNN(ChrW(93)) & NZZNZZZZ
NNNZZNZ = NNNZZNZ + NZZNZZZN - NZZZNNZZ - (96 * 65 - 6234)
If NNZNNNN > 0 And (NZZNZZZN - NZZZNNZZ - 6) > NNZNNNN Then
NNNZZZZ = (87 * 72 - 6259)
NZZZZNNN = empty
Exit Sub
End If
If NNZNNNZ > 0 And NNNZZNZ > NNZNNNZ Then
NNNZZZZ = (92 * 55 - 5059)
NZZZZNNN = empty
Exit Sub
End If
If NNZNNZZ.Exists(formname) Then formname = NZZZNNZ(formname)
Dim NZZNZZNN:set NZZNZZNN= new NNZNZZN
NZZNZZNN.ContentType=contentType
NZZNZZNN.Size = (NZZNZZZN - NZZZNNZZ - 6)
NZZNZZNN.Position = (NZZZNNZZ + 3)
NZZNZZNN.FormName = formname
NZZNZZNN.NewName = NewName
NZZNZZNN.FileName = FileName
NZZNZZNN.LocalName = FileName
NZZNZZNN.extend=split(NewName,NZZNZNN(ChrW(93)))(ubound(split(NewName,NZZNZNN(ChrW(93)))))
NNZNNZZ.Add formname, NZZNZZNN
Set NZZNZZNN = Nothing
End If
Else
value = MidB(NZZZZNNN, NZZZNNZZ + 4, NZZNZZZN - NZZZNNZZ - 6)
If NNZNZNN.Exists(formname) Then
NNZNZNN(formname) = NNZNZNN(formname) & NZZNZNN(ChrW(91)) & NNNNNZ(value)
Else
NNZNZNN.Add formname, NNNNNZ(value)
End If
End If
NZZZZNZZ = NZZNZZZN + (40 * 84 - 3358) + NZZZZZNN
Loop Until (NZZZZNZZ + 2) >= LenB(NZZZZNNN)
NNNZZZZ = (58 * 51 - 2958)
NZZZZNNN = empty
NNNZNNZ = FormatNumber((timer-NNNNNNZ)*1000,2)
End Sub
Private Function NNNNZZ(ByVal NNZZZZZZ)
Dim NZZNZNZZ: NZZNZNZZ = True
If NNNZZNN=NZZNZNN(ChrW(89)) then
NZZNZNZZ=false
elseIf InStr(1, NNNZZNN, NZZNZNN(ChrW(77))) > 0 Then
Dim NZZNZNZN: NZZNZNZN = Split(NNNZZNN, NZZNZNN(ChrW(77)))
Dim NZZNZNNZ: NZZNZNNZ = (58 * 51 - 2958)
For NZZNZNNZ = 0 To UBound(NZZNZNZN)
If LCase(NNZZZZZZ) = NZZNZNZN(NZZNZNNZ) Then
NZZNZNZZ = False
Exit For
End If
Next
Else
If NNNZZNN = LCase(NNZZZZZZ) Then
NZZNZNZZ = False
End If
End If
NNNNZZ = NZZNZNZZ
End Function
Public Function NNNNZN(ByVal Size)
If Size < 1024 Then
NNNNZN = FormatNumber(Size, 800) & NZZNZNN(ChrW(113))
ElseIf Size >= 1024 And Size < 1048576 Then
NNNNZN = FormatNumber(Size / 1024, 800) & NZZNZNN(ChrW(122) & ChrW(113))
ElseIf Size >= 1048576 Then
NNNNZN = FormatNumber((Size / 1024) / 1024, 800) & NZZNZNN(ChrW(124) & ChrW(113))
End If
End Function
Private Function NNNNNZ(ByVal NNZZZZZN)
If LenB(NNZZZZZN) = 0 Then
NNNNNZ = ""
Exit Function
End If
Dim NZZNZNNN, NZZNNZZZ
Set NZZNZNNN =NNNZNZ.createobject(NZZNZNN(ChrW(112) & ChrW(115) & ChrW(126) & ChrW(115) & ChrW(113) & ChrW(93) & ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NZZNZNNN.Type = (40 * 84 - 3358)
NZZNZNNN.Mode = (73 * 33 - 2406)
NZZNZNNN.Open
NZZNZNNN.WriteText NNZZZZZN
NZZNZNNN.Position = (58 * 51 - 2958)
NZZNZNNN.CharSet = NNZNNZN
NZZNZNNN.Position = (40 * 84 - 3358)
NZZNNZZZ = NZZNZNNN.ReadText()
NZZNZNNN.Close
Set NZZNZNNN = Nothing
NNNNNZ = NZZNNZZZ
End Function
Private Function NNNNNN(ByVal Num)
Select Case Num
Case 0
NNNNNN = NZZNZNN(ChrW(114) & ChrW(126) & ChrW(124) & ChrW(33) & ChrW(123) & ChrW(116) & ChrW(37) & ChrW(116))
Case 1
NNNNNN = NZZNZNN(ChrW(116) & ChrW(35) & ChrW(35) & ChrW(126) & ChrW(35) & ChrW(48) & ChrW(117) & ChrW(120) & ChrW(123) & ChrW(116) & ChrW(48) & ChrW(116) & ChrW(41) & ChrW(114) & ChrW(116) & ChrW(116) & ChrW(115) & ChrW(36) & ChrW(48) & ChrW(124) & ChrW(112) & ChrW(41) & ChrW(36) & ChrW(120) & ChrW(43) & ChrW(116) & ChrW(48) & ChrW(123) & ChrW(120) & ChrW(124) & ChrW(120) & ChrW(37))
Case 2
NNNNNN = NZZNZNN(ChrW(116) & ChrW(35) & ChrW(35) & ChrW(126) & ChrW(35) & ChrW(48) & ChrW(120) & ChrW(125) & ChrW(39) & ChrW(112) & ChrW(123) & ChrW(120) & ChrW(115) & ChrW(48) & ChrW(116) & ChrW(125) & ChrW(114) & ChrW(37) & ChrW(42) & ChrW(33) & ChrW(116) & ChrW(126) & ChrW(35) & ChrW(48) & ChrW(124) & ChrW(116) & ChrW(37) & ChrW(119) & ChrW(126) & ChrW(115))
Case 3
NNNNNN = NZZNZNN(ChrW(116) & ChrW(35) & ChrW(35) & ChrW(126) & ChrW(35) & ChrW(48) & ChrW(120) & ChrW(125) & ChrW(39) & ChrW(112) & ChrW(123) & ChrW(120) & ChrW(115) & ChrW(48) & ChrW(117) & ChrW(120) & ChrW(123) & ChrW(116) & ChrW(37) & ChrW(42) & ChrW(33) & ChrW(116) & ChrW(87) & ChrW(93)) & ucase(NNNZNZZ) & NZZNZNN(ChrW(88))
Case 5
NNNNNN = NZZNZNN(ChrW(116) & ChrW(35) & ChrW(35) & ChrW(126) & ChrW(35) & ChrW(48) & ChrW(117) & ChrW(120) & ChrW(123) & ChrW(116) & ChrW(48) & ChrW(116) & ChrW(41) & ChrW(114) & ChrW(116) & ChrW(116) & ChrW(115) & ChrW(36) & ChrW(48) & ChrW(36) & ChrW(120) & ChrW(43) & ChrW(116) & ChrW(48) & ChrW(123) & ChrW(120) & ChrW(124) & ChrW(120) & ChrW(37))
End Select
End Function
Private Function NZZZZZZ()
Dim NZZNNZZN, NZZNNZNZ, NZZNNZNN, NZZNNNZZ, NZZNNNZN, NZZNNNNZ, NZZNNNNN
Randomize
NZZNNZZN = Year(Now)
NZZNNZNZ = right("0" & Month(Now),2)
NZZNNZNN = right("0" & Day(Now),2)
NZZNNNZZ = right("0" & Hour(Now),2)
NZZNNNZN =right("0" & Minute(Now),2)
NZZNNNNZ = right("0" & Second(Now),2)
NZZNNNNN = CInt(Rnd() * 10000)
NZZNNNNN = right("0000" & NZZNNNNN,4)
NZZZZZZ = NZZNNZZN & NZZNNZNZ & NZZNNZNN & NZZNNNZZ & NZZNNNZN & NZZNNNNZ & NZZNNNNN
End Function
Private Function NZZZZZN()
Dim ContentType, NZNZZZZZ, NZNZZZZN,NZNZZZNZ
NZNZZZNZ=trim(LCase(NNNZZZ.ServerVariables(NZZNZNN(ChrW(35) & ChrW(116) & ChrW(34) & ChrW(38) & ChrW(116) & ChrW(36) & ChrW(37) & ChrW(48) & ChrW(124) & ChrW(116) & ChrW(37) & ChrW(119) & ChrW(126) & ChrW(115)))))
if NZNZZZNZ="" or NZNZZZNZ<>NZZNZNN(ChrW(65) & ChrW(64) & ChrW(68) & ChrW(69)) then
NZZZZZN = False
exit function
end if
ContentType = LCase(NNNZZZ.ServerVariables(NZZNZNN(ChrW(119) & ChrW(37) & ChrW(37) & ChrW(33) & ChrW(48) & ChrW(114) & ChrW(126) & ChrW(125) & ChrW(37) & ChrW(116) & ChrW(125) & ChrW(37) & ChrW(48) & ChrW(37) & ChrW(42) & ChrW(33) & ChrW(116))))
NZNZZZZZ = Split(ContentType, NZZNZNN(ChrW(106)))
if ubound(NZNZZZZZ)>=0 then
If Trim(NZNZZZZZ(0)) = NZZNZNN(ChrW(62) & ChrW(70) & ChrW(61) & ChrW(69) & ChrW(58) & ChrW(65) & ChrW(50) & ChrW(67) & ChrW(69) & ChrW(94) & ChrW(55) & ChrW(64) & ChrW(67) & ChrW(62) & ChrW(92) & ChrW(53) & ChrW(50) & ChrW(69) & ChrW(50)) Then
NZZZZZN = True
NNNZNZN = Split(ContentType,NZZNZNN(ChrW(51) & ChrW(64) & ChrW(70) & ChrW(63) & ChrW(53) & ChrW(50) & ChrW(67) & ChrW(74) & ChrW(108)))(1)
Else
NZZZZZN = False
End If
else
NZZZZZN = False
end if
End Function
Public Function NZZZZNZ(ByVal formname)
If trim(formname) = "-1" Then
Set NZZZZNZ = NNZNZNN
Else
If NNZNZNN.Exists(LCase(formname)) Then
NZZZZNZ = NNZNZNN(LCase(formname))
Else
NZZZZNZ = ""
End If
End If
End Function
Public Function NZZZZNN(ByVal formname)
If trim(formname) = "-1" Then
Set NZZZZNN = NNZNNZZ
Else
dim NZNZZZNN
NZNZZZNN = LCase(formname) & NNNNZNZ & "0"
if instr(formname,NNNNZNZ)>0 then NZNZZZNN = formname
If NNZNNZZ.Exists(NZNZZZNN) Then
Set NZZZZNN = NNZNNZZ(NZNZZZNN)
Else
Set NZZZZNN = New NNZNZZZ
End If
End If
End Function
Public Function NZZZNZZ(ByVal formname,byval index)
If trim(formname) = "-1" Then
Set NZZZNZZ = NNZNNZZ
Else
If NNZNNZZ.Exists(LCase(formname) & NNNNZNZ & index) Then
Set NZZZNZZ = NNZNNZZ(LCase(formname) & NNNNZNZ & index)
Else
Set NZZZNZZ = New NNZNZZZ
End If
End If
End Function
Public Function NZZZNZN(ByVal formname,Byval SavePath)
Dim NZNZZNZZ, NZNZZNZN,NZNZZNNZ,NZNZZNNN,NZNZNZZZ
NZNZNZZZ = (58 * 51 - 2958)
Dim NZNZNZZN
NZNZNZZN = formname & NNNNZNZ
For Each NZNZZNZZ In NNZNNZZ
If lcase(left(NZNZZNZZ,len(NZNZNZZN))) = lcase(NZNZNZZN) Then
Set NZNZZNNZ = NNZNNZZ(NZNZZNZZ)
NZNZZNNN = NZNZZNNZ.saveToFile(SavePath,0,True)
If NZNZZNNN Then NZNZNZZZ = NZNZNZZZ + (92 * 55 - 5059)
End If
Next
NZZZNZN = NZNZNZZZ
End Function
Private Function NZZZNNZ(byval formname)
Dim NZNZZNZN,NZNZNZNZ
NZNZZNZN = left(formname,instr(formname,NNNNZNZ)+len(NNNNZNZ)-1)
NZNZNZNZ = mid(formname,instr(formname,NNNNZNZ)+len(NNNNZNZ))
NZNZNZNZ =cint(NZNZNZNZ)
do while NNZNNZZ.Exists(formname)
NZNZNZNZ = NZNZNZNZ + (92 * 55 - 5059)
formname = NZNZZNZN & NZNZNZNZ
loop
NZZZNNZ = formname
End Function
End Class
Class NNZNZZZ
Public Property Get NZNZNNN()
NZNZNNN = false
End Property
End Class
Class NNZNZZN
Private NZNZNZNN , NZNZNNZZ , NZNZNNZN , NZNZNNNZ , NZNZNNNN , NZNNZZZZ ,NZNNZZZN,NZNNZZNZ
Private NZNNZZNN , NZNNZNZZ , NZNNZNZN , NZNNZNNZ
Public Property Let Extend(ByVal vData )
NZNNZNNZ = vData
End Property
Public Property Get Extend()
Extend = NZNNZNNZ
End Property
Public Property Get NZNZNNN()
NZNZNNN = true
End Property
Public Property Let NZNNZZN(ByVal vData )
NZNNZNZN = vData
End Property
Public Property Get NZNNZZN()
NZNNZZN = NZNNZNZN
End Property
Public Property Get NZNNZNZ()
NZNNZNZ = NZNNZZZN
End Property
Public Property Let Value(ByVal vData )
NZNNZNZZ = vData
End Property
Public Property Get Value()
Value = NZNNZNZZ
End Property
Public Property Let Size(ByVal vData )
NZNNZZNN = vData
End Property
Public Property Get Size()
Size = NZNNZZNN
End Property
Public Property Let Position(ByVal vData )
NZNNZZNZ = vData
End Property
Public Property Get Position()
Size = NZNNZZNZ
End Property
Public Property Let ContentType(ByVal vData )
NZNNZZZZ = vData
End Property
Public Property Get ContentType()
ContentType = NZNNZZZZ
End Property
Public Property Let NZNNNNN(ByVal vData )
NZNZNNNN = vData
End Property
Public Property Get NZNNNNN()
NZNNNNN = NZNZNNNN
End Property
Public Property Let FileName(ByVal vData )
NZNZNNNZ = vData
End Property
Public Property Get FileName()
FileName = NZNZNNNZ
End Property
Public Property Let LocalName(ByVal vData )
NZNZNNZN = vData
End Property
Public Property Get LocalName()
LocalName = NZNZNNZN
End Property
Public Property Let NewName(ByVal vData )
NZNZNNZZ = vData
End Property
Public Property Get NewName()
NewName = NZNZNNZZ
End Property
Public Property Let FormName(ByVal vData )
NZNZNZNN = vData
End Property
Public Property Get FormName()
FormName = NZNZNZNN
End Property
Private Sub Class_Initialize()
NZNNZZNN = (58 * 51 - 2958)
NZNZNZNN = ""
End Sub
Public Function SaveToFile(ByVal NZNNZZN , byval tOption, byval OverWrite)
On Error Resume Next
Dim NZNNZNNN
NZNNZNNN = (InStr(NZNNZZN, NZZNZNN(ChrW(105))) = 2)
If Not NZNNZNNN Then NZNNZZN = NNNZNZ.MapPath(NZNNZZN)
NZNNZZN = Replace(NZNNZZN, NZZNZNN(ChrW(94)), NZZNZNN(ChrW(45)))
If Mid(NZNNZZN, Len(NZNNZZN) - 1) <> NZZNZNN(ChrW(45)) Then NZNNZZN = NZNNZZN + NZZNZNN(ChrW(45))
CreateFolder NZNNZZN
NZNNZNZN = NZNNZZN
If tOption = 1 Then
NZNNZZN = NZNNZZN & NZNZNNZN: NZNZNNNZ = NZNZNNZN
Else
If tOption = -1 And NZNZNNNN <> "" Then
NZNNZZN = NZNNZZN & NZNZNNNN & NZZNZNN(ChrW(93)) & NZNNZNNZ: NZNZNNNZ = NZNZNNNN & NZZNZNN(ChrW(93)) & NZNNZNNZ
Else
NZNNZZN = NZNNZZN & NZNZNNZZ: NZNZNNNZ = NZNZNNZZ
End If
End If
If Not OverWrite Then
NZNNZZN = NZZNZNZ()
End If
Dim NZNNNZZZ
Set NZNNNZZZ =NNNZNZ.CreateObject(NZZNZNN(ChrW(112) & ChrW(115) & ChrW(126) & ChrW(115) & ChrW(113) & ChrW(93) & ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NZNNNZZZ.Mode = (73 * 33 - 2406)
NZNNNZZZ.Type = (92 * 55 - 5059)
NZNNNZZZ.Open
NNZNZNZ.Position = NZNNZZNZ
NNZNZNZ.copyto NZNNNZZZ,NZNNZZNN
NZNNNZZZ.SaveToFile NZNNZZN, 2
NZNNNZZZ.Close
Set NZNNNZZZ = Nothing
If Not Err Then
SaveToFile = true
Else
SaveToFile = false
NZNNZZZN=Err.Description
End If
End Function
Public Function NZZNZZZ()
NNZNZNZ.Position = NZNNZZNZ
NZZNZZZ = NNZNZNZ.read(NZNNZZNN)
End Function
Private Function CreateFolder(ByVal NNZZZZNN )
Dim NZNNNZZN
Set NZNNNZZN = NNNZNZ.CreateObject(NZZNZNN(ChrW(36) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(93) & ChrW(117) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(36) & ChrW(74) & ChrW(68) & ChrW(69) & ChrW(54) & ChrW(62) & ChrW(126) & ChrW(51) & ChrW(59) & ChrW(54) & ChrW(52) & ChrW(69)))
Dim NZNNNZNZ
NZNNNZNZ = NZNNNZZN.GetParentFolderName(NNZZZZNN)
If NZNNNZNZ = "" Then Exit Function
If Not NZNNNZZN.FolderExists(NZNNNZNZ) Then CreateFolder (NZNNNZNZ)
If Not NZNNNZZN.FolderExists(NNZZZZNN) Then NZNNNZZN.CreateFolder (NNZZZZNN)
Set NZNNNZZN = Nothing
End Function
Private Function NZZNZNZ()
Dim NZNNNZZN, NZNNNZNN , NZNNNNZZ , NZZNZNNZ
NZZNZNNZ = (58 * 51 - 2958)
Set NZNNNZZN = NNNZNZ.CreateObject(NZZNZNN(ChrW(36) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(93) & ChrW(117) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(36) & ChrW(74) & ChrW(68) & ChrW(69) & ChrW(54) & ChrW(62) & ChrW(126) & ChrW(51) & ChrW(59) & ChrW(54) & ChrW(52) & ChrW(69)))
NZNNNZNN = NZNNZNZN & NZNZNNNZ
NZNNNNZZ = Mid(NZNZNNNZ, 1, InStr(NZNZNNNZ, NZZNZNN(ChrW(93))) - 1)
Do While NZNNNZZN.FileExists(NZNNNZNN)
NZNNNZNN = NZNNZNZN & NZNNNNZZ & NZZNZNN(ChrW(87)) & NZZNZNNZ & NZZNZNN(ChrW(88) & ChrW(93)) & NZNNZNNZ
NZNZNNNZ = NZNNNNZZ & NZZNZNN(ChrW(87)) & NZZNZNNZ & NZZNZNN(ChrW(88) & ChrW(93)) & NZNNZNNZ
NZZNZNNZ = NZZNZNNZ + (92 * 55 - 5059)
Loop
Set NZNNNZZN = Nothing
NZZNZNZ = NZNNNZNN
End Function
End Class
Function NZZNZNN(ByVal NZNNNNNZ)
Dim NZNZZNZZ, NZZNZNNZ, NZNNNNZN
NZNNNNNZ = Replace(NZNNNNNZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZNZNNZ = 1 To Len(NZNNNNNZ)
If NZZNZNNZ <> NZNNNNZN Then
NZNZZNZZ = AscW(Mid(NZNNNNNZ, NZZNZNNZ, 1))
If NZNZZNZZ >= 33 And NZNZZNZZ <= 79 Then
NZZNZNN = NZZNZNN & Chr(NZNZZNZZ + 47)
ElseIf NZNZZNZZ >= 80 And NZNZZNZZ <= 126 Then
NZZNZNN = NZZNZNN & Chr(NZNZZNZZ - 47)
Else
NZNNNNZN = NZZNZNNZ + 1
If Mid(NZNNNNNZ, NZNNNNZN, 1) = Chr(64) Then NZZNZNN = NZZNZNN & ChrW(NZNZZNZZ + 5) Else NZZNZNN = NZZNZNN & Mid(NZNNNNNZ, NZZNZNNZ, 1)
End If
End If
Next
End Function
%>