<%
'此版本为免费下载的（试用版本）源码加密处理过
'购买正式版系统提供源码（支持二次开发，修改）
'系统服务商：金华市宁志网络科技有限公司
'公司网址：http://www.ningzhi.net 
'客服QQ号：122470827 电话：18867186998 （同微信号）刘经理
'全国统一售后电话：0579-83938663 
'支持正版：软件著作权登记号：2012SR040914
'官方平台：购买系统请上金华市宁志网络公司官网平台是唯一购买渠道
'本公司无第三方代销售平台请认准,以免上当受骗！！！
'请勿修改下列任何代码,以保证程序正常运行·感谢您体验宁志产品，宁志有您更精彩！
'TM:2023-08-09 15:29:33

Dim NZZZNNZ,NZZZNNN,NZZNZZZ,NZZNZZN,NZZNZNZ
Set NZZNZZZ=Response:Set NZZZNNN=Request:Set NZZNZNZ=Session:Set NZZZNNZ=Application:Set NZZNZZN=Server
NZZNZZZ.Write(NZZNZNN("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQ ,^m") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("kD4C:AE ,=2?8F286lQ;2G2D4C:AEQ ,DC4lQ^;D^G2=:52E@C];DQmk^D4C:AEm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("kDEJ=6 ,EJA6lQE6IE^4DDQm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("kP\\") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("]5@?8CF`` ,L	,4@=@Ci ,Ruuuuuuj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,96:89Ei ,c_AIj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,H:5E9i ,`__Tj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,3@C56C\DEJ=6i ,?@?6j") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,r&#$~#i92?5j") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,7@?E\72>:=Ji ,Q復@轪@雀@黌@Qj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,7@?E\D:K6i ,`gAIj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,=:?6\96:89Ei ,c_AIj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,3@C56C\C25:FDi ,bAIj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,324<8C@F?5\2EE249>6?Ei ,D4C@==j") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,324<8C@F?5\4@=@Ci ,R__eerrj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,324<8C@F?5\:>286i ,FC=W:>286D^?K4>D0DJDE6>0_`]8:7Xj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,324<8C@F?5\C6A62Ei ,C6A62E\Ij") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,324<8C@F?5\A@D:E:@?i ,46?E6C ,E@Aj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("N") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("]?F>36C ,L	,A255:?8i ,bAIj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,96:89Ei ,b_AIj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,3@C56Ci ,`AI ,D@=:5 ,Rrrrrrrj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("N") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("]56?8CF ,L") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,7@?E\D:K6i ,`eAIj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,=:?6\96:89Ei ,b_AIj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,96:89Ei ,c_AIj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,H:5E9i ,g_AIj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("N") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("]FD6C?2>6 ,L	,324<8C@F?5\2EE249>6?Ei ,D4C@==j") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,324<8C@F?5\:>286i ,FC=W:>286D^?K4>D0DJDE6>0`e]8:7Xj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,324<8C@F?5\C6A62Ei ,?@\C6A62Ej") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,324<8C@F?5\A@D:E:@?i ,C:89Ej") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,324<8C@F?5\4@=@Ci ,Ruuuuuuj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,A255:?8i ,bAIj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,3@C56Ci ,`AI ,D@=:5 ,Rrrrrrrj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,96:89Ei ,b_AIj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("N") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("]FD6CA2DDH@C5 ,L	,324<8C@F?5\2EE249>6?Ei ,D4C@==j") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,324<8C@F?5\:>286i ,FC=W:>286D^?K4>D0DJDE6>0`h]8:7Xj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,324<8C@F?5\C6A62Ei ,?@\C6A62Ej") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,324<8C@F?5\A@D:E:@?i ,C:89Ej") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,324<8C@F?5\4@=@Ci ,Ruuuuuuj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,A255:?8i ,bAIj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,3@C56Ci ,`AI ,D@=:5 ,Rrrrrrrj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,96:89Ei ,b_AIj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("N") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("]H9:E6E:E=6 ,L") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,7@?Ei ,`gAI ,Q復@轪@雀@黌@Qj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,4@=@Ci ,Ruuuuuuj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("N") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("]K ,L") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,7@?E\D:K6i ,`eAIj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("N") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("3@5J ,L") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,324<8C@F?5\4@=@Ci ,Rudududj") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("N") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("\\m") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("k^DEJ=6m") & vbCrLf)
if NZZZNNN.Cookies(NZZNZNN("FD6C?2>6"))="" or NZZZNNN.Cookies(NZZNZNN(":5"))="" then
NZZNZZZ.Write(vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("kAmU?3DAjk^Am") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("kAmU?3DAjk^Am") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("kAmU?3DAjk^Am") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("kAmU?3DAjk^Am") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("kE23=6 ,H:5E9lQd__Q ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQ_Q ,46==DA24:?8lQ`Q ,384@=@ClQR__eerrQm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,kECm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,kE5 ,2=:8?lQ46?E6CQ ,G2=:8?lQE@AQ ,384@=@ClQRuuuuuuQmkE23=6 ,H:5E9lQ`__TQ ,3@C56ClQ_Q ,46==A255:?8lQ_Q ,46==DA24:?8lQ_Qm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,kECm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,kE5 ,96:89ElQe_Q ,2=:8?lQ46?E6CQ ,384@=@ClQR__eerrQ ,4=2DDlQH9:E6E:E=6Qm癶@彐@旱@闯@趀@旱@，,诲@釈@斫@癶@彐@！, ,k^E5m") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,k^ECm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,k^E23=6m") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,kE23=6 ,3@C56ClQ_Q ,46==A255:?8lQgQ ,46==DA24:?8lQ_Q ,DEJ=6lQ>2C8:?\E@Ai ,b_AIj>2C8:?\3@EE@>i ,b_AIjQ ,m") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,k7@C> ,24E:@?lQ=@8:?]2DAQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>Q ,:5lQ7@C>Q@?DF3>:ElQC6EFC? ,'2=:52E@C]'2=:52E6WE9:D[bXQm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,kECm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,kE5 ,H:5E9lQg_Q ,96:89ElQb_Q ,2=:8?lQC:89EQ ,4=2DDlQKQm帋@史@：,k^E5m") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,kE5 ,2=:8?lQ=67EQmk:?AFE ,?2>6lQFD6C?2>6Q ,EJA6lQE6IEQ , ,:5lQFD6C?2>6Q ,DEJ=6lQH:5E9i`cdAIj96:89Ei ,bdAIjQ ,D:K6lQa_Q ,52E2EJA6lQ#6BF:C6Q , ,>D8lQ诲@塦@冔@！,Q ,^mk^E5m") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,k^ECm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,kECm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,kE5 ,96:89ElQb_Q ,2=:8?lQC:89EQ ,4=2DDlQKQm寁@矼@：,k^E5m") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,kE5 ,2=:8?lQ=67EQmk:?AFE ,?2>6lQFD6CA2DDH@C5Q ,EJA6lQA2DDH@C5Q ,:5lQFD6CA2DDH@C5Q ,DEJ=6lQH:5E9i`cdAIj96:89Ei ,bdAIjQ ,D:K6lQa_Q ,52E2EJA6lQ#6BF:C6Q , ,>D8lQ诲@塦@冔@！,Q ,^mk^E5m") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,k^ECm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,kECm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,kE5 ,96:89ElQc_Q ,2=:8?lQC:89EQmU?3DAjk^E5m") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,kE5 ,2=:8?lQ=67EQmk=236=m") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,k:?AFE ,?2>6lQ$F3>:EQ ,EJA6lQDF3>:EQ ,4=2DDlQ5@?8CF``Q ,G2=F6lQ ,癶@ ,彐@ ,Q ,^m") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,k^=236=mk^E5m") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,k^ECm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,k^7@C>m") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,k^E23=6m") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("k^E5m") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,k^ECm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("k^E23=6m") & vbCrLf)
NZZNZZZ.end
end if
Private Const NZNZZNZ =8
Private Const NZNZZNN =4
Private Const NZNZNZZ =32
Private NZZNNZZ(30)
Private NZZNNZN(30)
NZNZNZN= (71 * 60 - 4260)
NZNZNNZ=NZZNZNN("?K4>D0?KH63^?K4>D0FA^52E2^52E2]2D2I")
NZNZNNN= (93 * 37 - 3430)
NZNNZZZ= (69 * 99 - 6830)
NZNNZZN=NZZNZNN("EIE")
NZNNZNZ=NZZNZNN("4@??]2DA")
NZNNZNN=NZZNZNN("]]^?K_g_g")
NZNNNZZ=NZZNZNN("?K4>D0H63^2DA^?K4>D02]2DA")
NZNNNZZ=NZZNZNN("?K4>D0H63^2DA^?K4>D03B]2DA")
NZNNNZN=NZZNZNN("?K02K^?K4>D02]2DA")
NZNNNNZ=NZZNZNN("?K4>D0?KH63^2DA^")
NZNNNNN=NZZNZNN("^")
NNZZZZZ=NZZNZNN("^")
NNZZZZN=NZZNZNN("^")
NNZZZNZ=NZZNZNN("^")
NNZZZNN=NZZNZNN("?K4>D0@<]2DA")
NNZZNZZ=NZZNZNN("5:2@J@?8^?K4>D]?@DB]9E>")
NNZZNZN=NZZNZNN("5:2@J@?8^?K4>D]?@52E2]9E>")
NNZZNNZ=NZZNZNN("叆@惀@揋@礵@：,k3Cm`、,诲@封@月@劜@噣@xx$挂@同@(tq栴@盩@彐@丆@靝@，,冈@釈@斫@扎@廻@诐@诐@！,k3Cma、,诲@淶@力@黓@讟@馑@顰@ ,:?56I]2DA ,丵@曻@笧@一,馑@顰@斂@仱@合@k3Cb、,讹@罩@宇@戋@吉@，,刲@斫@顰@靝@釈@诐@")
NNZZNNN=NZZNZNN("?K4>D0?KH63^?K4>D0FA^52E2^?K4>D0DB=]2D2I")
NNZNZZZ= (69 * 99 - 6830)
NNZNZZN= (69 * 99 - 6830)
NNZNZNZ= (69 * 99 - 6830)
NNZNZNN= (69 * 99 - 6830)
NNZNNZZ= (69 * 99 - 6830)
NNZNNZN= (69 * 99 - 6830)
NNZNNNZ= (71 * 60 - 4260)
NNZNNNN= (69 * 99 - 6830)
NNNZZZZ= (69 * 99 - 6830)
NNNZZZN= (69 * 99 - 6830)
if NZNZNZN=1 then
Set NNNZZNZ=NZZNZZN.CreateObject(NZZNZNN("ps~sq]r@??64E:@?"))
NNNZZNZ.open NZZNZNN("AC@G:56ClDB=@=653j52E2 ,D@FC46l`af]_]_]`j&D6C ,xslD2jAH5lD2jx?:E:2= ,r2E2=@8lG@E6")
Else
set NNNZZNZ = NZZNZZN.CreateObject(NZZNZNN("25@53]4@??64E:@?"))
NNNZZNN=NZZNZNN("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqis2E2q2D6 ,!2DDH@C5l?Kd`hoG:Ajs2E2 ,$@FC46l") & NZZNZZN.MapPath(NZZNZNN("]]^]]^")&NZNZNNZ&"")
NNNZZNZ.open NNNZZNN
NNNZNZZ=NZZZNNN.QueryString(NZZNZNN("D62C49"))
End If
dim NZZNNNZ
NZZNNNZ= (90 * 104 - 9357)
set NNNZNZN=NZZNZZN.CreateObject(NZZNZNN("25@53]C64@C5D6E"))
NNNZNNZ=NZZNZNN("D6=64E ,Y ,7C@> ,?K4>D05:> ,H96C6 ,:5l")&NZZNNNZ&""
NNNZNZN.open NNNZNNZ,NNNZZNZ,1,1
NNNZNNN=NNNZNZN(NZZNZNN("?K4>D`"))
NNNNZZZ=NNNZNZN(NZZNZNN("?K4>Da"))
NNNNZZN=NNNZNZN(NZZNZNN("?K4>Db"))
NNNNZNZ=NNNZNZN(NZZNZNN("?K4>Dc"))
NNNNZNN=NNNZNZN(NZZNZNN("?K4>Dd"))
NNNNNZZ=NNNZNZN(NZZNZNN("?K4>De"))
NNNNNZN=NNNZNZN(NZZNZNN("?K4>Df"))
NNNNNNZ=NNNZNZN(NZZNZNN("?K4>Dg"))
NNNNNNN=NNNZNZN(NZZNZNN("?K4>Dh"))
NZZZZZZZ=NNNZNZN(NZZNZNN("?K4>D`_"))
NZZZZZZN=NNNZNZN(NZZNZNN("?K4>D``"))
NZZZZZNZ=NNNZNZN(NZZNZNN("?K4>D`a"))
NZZZZZNN=NNNZNZN(NZZNZNN("?K4>D`b"))
NZZZZNZZ=NNNZNZN(NZZNZNN("?K4>D`c"))
NZZZZNZN=NNNZNZN(NZZNZNN("?K4>D`d"))
NZZZZNNZ=NNNZNZN(NZZNZNN("?K4>D`e"))
NZZZZNNN=NNNZNZN(NZZNZNN("?K4>D`f"))
NZZZNZZZ=NNNZNZN(NZZNZNN("?K4>D`g"))
NZZZNZZN=NNNZNZN(NZZNZNN("?K4>D`h"))
NZZZNZNZ=NNNZNZN(NZZNZNN("?K4>Da_"))
NNNZNZN.close
set NNNZNZN=nothing
NZZNZZZ.Write(vbCrLf)
NZZNZZZ.Write(NZZNZNN("kD4C:AE ,=2?8F286lQy2G2$4C:AEQm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("7F?4E:@? ,s:DA=2JWxsX") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("L") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,:7W ,xs]DEJ=6]5:DA=2J ,ll ,V?@?6V ,X") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("L") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("xs]DEJ=6]5:DA=2J ,l ,VV ,j") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("N") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("6=D6 ,") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("L") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("xs]DEJ=6]5:DA=2J ,l ,V?@?6V ,j") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("N") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("N") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("k^D4C:AEm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("kD4C:AEm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("7F?4E:@? ,D6=64Ep==W@3;X") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("L") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("7@CWG2C ,: ,l ,_j:k@3;]6=6>6?ED]=6?8E9j:ZZX") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(":7W@3;]6=6>6?ED,:.]EJA6 ,ll ,Q4964<3@IQX") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("@3;]6=6>6?ED,:.]4964<65 ,l ,ECF6j") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("N") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("7F?4E:@? ,D6=64E~E96CW@3;X") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("L") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("7@CWG2C ,: ,l ,_j:k@3;]6=6>6?ED]=6?8E9j:ZZX") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(":7W@3;]6=6>6?ED,:.]EJA6 ,ll ,Q4964<3@IQ ,X") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("L") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(":7WP@3;]6=6>6?ED,:.]4964<65X") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("@3;]6=6>6?ED,:.]4964<65 ,l ,ECF6j") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("6=D6") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("@3;]6=6>6?ED,:.]4964<65 ,l ,72=D6j") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("N") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("N") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("k^D4C:AEm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("kD4C:AE ,=2?8F286lQ;2G2D4C:AEQm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("7F?4E:@? ,492?864@=@CW@3;X") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("L") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,6 ,l ,6G6?E]DC4t=6>6?E") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,:7W6]4964<65llECF6X") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,L") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,6]DEJ=6]324<8C@F?5 ,l ,QRr`sattQ") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,N") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,6=D6") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,L") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,6]DEJ=6]324<8C@F?5 ,l ,QR777777Q") & vbCrLf)
NZZNZZZ.Write(NZZNZNN(" ,N") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("N ,") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("k^D4C:AEm") & vbCrLf)
NZZNZZZ.Write(NZZNZNN("kD4C:AE ,=2?8F286lQ;2G2D4C:AEQ ,DC4lQ]]^]]^;D^G2=:52E@C];DQmk^D4C:AEm") & vbCrLf)
If isObject(NNNZZNZ) Then Set NNNZZNZ = Nothing
Function NZZNZNN(ByVal NZZZNZNN)
Dim NZZNNNN, NZNZZZZ, NZNZZZN
NZZZNZNN = Replace(NZZZNZNN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZNZZZZ = 1 To Len(NZZZNZNN)
If NZNZZZZ <> NZNZZZN Then
NZZNNNN = AscW(Mid(NZZZNZNN, NZNZZZZ, 1))
If NZZNNNN >= 33 And NZZNNNN <= 79 Then
NZZNZNN = NZZNZNN & Chr(NZZNNNN + 47)
ElseIf NZZNNNN >= 80 And NZZNNNN <= 126 Then
NZZNZNN = NZZNZNN & Chr(NZZNNNN - 47)
Else
NZNZZZN = NZNZZZZ + 1
If Mid(NZZZNZNN, NZNZZZN, 1) = NZZNZNN("o") Then NZZNZNN = NZZNZNN & ChrW(NZZNNNN + 5) Else NZZNZNN = NZZNZNN & Mid(NZZZNZNN, NZNZZZZ, 1)
End If
End If
Next
End Function
%>