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

Dim NNZNNZ,NNZNNN,NNNZZZ,NNNZZN,NNNZNZ
Set NNNZZZ=Response:Set NNZNNN=Request:Set NNNZNZ=Session:Set NNZNNZ=Application:Set NNNZZN=Server
NNNZZZ.Write(NNNZNN("k%x%{tm竔@炴@俜@恪@揋@醍@k^%x%{tm") & vbCrLf)
NNNZZZ.Write(NNNZNN("k|t%p ,9EEA\6BF:Glr@?E6?E\%JA6 ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQm") & vbCrLf)
NNNZZZ.Write(NNNZNN("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQ ,^m") & vbCrLf)
NNNZZZ.Write(NNNZNN("kD4C:AE ,=2?8F286lQ;2G2D4C:AEQ ,DC4lQ^;D^G2=:52E@C];DQmk^D4C:AEm") & vbCrLf)
NNNZZZ.Write(NNNZNN("kDEJ=6 ,EJA6lQE6IE^4DDQm") & vbCrLf)
NNNZZZ.Write(NNNZNN("kP\\") & vbCrLf)
NNNZZZ.Write(NNNZNN("]5@?8CF`` ,L	,4@=@Ci ,Ruuuuuuj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,96:89Ei ,c_AIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,H:5E9i ,`__Tj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,3@C56C\DEJ=6i ,?@?6j") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,r&#$~#i92?5j") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,7@?E\72>:=Ji ,Q復@轪@雀@黌@Qj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,7@?E\D:K6i ,`gAIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,=:?6\96:89Ei ,c_AIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,3@C56C\C25:FDi ,bAIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,324<8C@F?5\2EE249>6?Ei ,D4C@==j") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,324<8C@F?5\4@=@Ci ,R__eerrj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,324<8C@F?5\:>286i ,FC=W:>286D^?K4>D0DJDE6>0_`]8:7Xj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,324<8C@F?5\C6A62Ei ,C6A62E\Ij") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,324<8C@F?5\A@D:E:@?i ,46?E6C ,E@Aj") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("]?F>36C ,L	,A255:?8i ,bAIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,96:89Ei ,b_AIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,3@C56Ci ,`AI ,D@=:5 ,Rrrrrrrj") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("]56?8CF ,L") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,7@?E\D:K6i ,`eAIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,=:?6\96:89Ei ,b_AIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,96:89Ei ,c_AIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,H:5E9i ,g_AIj") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("]FD6C?2>6 ,L	,324<8C@F?5\2EE249>6?Ei ,D4C@==j") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,324<8C@F?5\:>286i ,FC=W:>286D^?K4>D0DJDE6>0`e]8:7Xj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,324<8C@F?5\C6A62Ei ,?@\C6A62Ej") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,324<8C@F?5\A@D:E:@?i ,C:89Ej") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,324<8C@F?5\4@=@Ci ,Ruuuuuuj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,A255:?8i ,bAIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,3@C56Ci ,`AI ,D@=:5 ,Rrrrrrrj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,96:89Ei ,b_AIj") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("]FD6CA2DDH@C5 ,L	,324<8C@F?5\2EE249>6?Ei ,D4C@==j") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,324<8C@F?5\:>286i ,FC=W:>286D^?K4>D0DJDE6>0`h]8:7Xj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,324<8C@F?5\C6A62Ei ,?@\C6A62Ej") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,324<8C@F?5\A@D:E:@?i ,C:89Ej") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,324<8C@F?5\4@=@Ci ,Ruuuuuuj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,A255:?8i ,bAIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,3@C56Ci ,`AI ,D@=:5 ,Rrrrrrrj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,96:89Ei ,b_AIj") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("]H9:E6E:E=6 ,L") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,7@?Ei ,`gAI ,Q復@轪@雀@黌@Qj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,4@=@Ci ,Ruuuuuuj") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("]K ,L") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,7@?E\D:K6i ,`eAIj") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("3@5J ,L") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,324<8C@F?5\4@=@Ci ,Rudududj") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("\\m") & vbCrLf)
NNNZZZ.Write(NNNZNN("k^DEJ=6m") & vbCrLf)
if NNZNNN.Cookies(NNNZNN("FD6C?2>6"))="" or NNZNNN.Cookies(NNNZNN(":5"))="" then
NNNZZZ.Write(vbCrLf)
NNNZZZ.Write(NNNZNN(" ,") & vbCrLf)
NNNZZZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NNNZZZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NNNZZZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NNNZZZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NNNZZZ.Write(NNNZNN("kE23=6 ,H:5E9lQd__Q ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQ_Q ,46==DA24:?8lQ`Q ,384@=@ClQR__eerrQm") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,kECm") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,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)
NNNZZZ.Write(NNNZNN(" ,kECm") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,kE5 ,96:89ElQe_Q ,2=:8?lQ46?E6CQ ,384@=@ClQR__eerrQ ,4=2DDlQH9:E6E:E=6Qm癶@彐@旱@闯@趀@旱@，,诲@釈@斫@癶@彐@！, ,k^E5m") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,k^ECm") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,k^E23=6m") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,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)
NNNZZZ.Write(NNNZNN(" ,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)
NNNZZZ.Write(NNNZNN(" ,kECm") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,kE5 ,H:5E9lQg_Q ,96:89ElQb_Q ,2=:8?lQC:89EQ ,4=2DDlQKQm帋@史@：,k^E5m") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,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)
NNNZZZ.Write(NNNZNN(" ,k^ECm") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,kECm") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,kE5 ,96:89ElQb_Q ,2=:8?lQC:89EQ ,4=2DDlQKQm寁@矼@：,k^E5m") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,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)
NNNZZZ.Write(NNNZNN(" ,k^ECm") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,kECm") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,kE5 ,96:89ElQc_Q ,2=:8?lQC:89EQmU?3DAjk^E5m") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,kE5 ,2=:8?lQ=67EQmk=236=m") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,k:?AFE ,?2>6lQ$F3>:EQ ,EJA6lQDF3>:EQ ,4=2DDlQ5@?8CF``Q ,G2=F6lQ ,癶@ ,彐@ ,Q ,^m") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,k^=236=mk^E5m") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,k^ECm") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,k^7@C>m") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,k^E23=6m") & vbCrLf)
NNNZZZ.Write(NNNZNN("k^E5m") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,k^ECm") & vbCrLf)
NNNZZZ.Write(NNNZNN("k^E23=6m") & vbCrLf)
NNNZZZ.end
end if
Private Const NZZZZNZ =8
Private Const NZZZZNN =4
Private Const NZZZNZZ =32
Private NNNNZZ(30)
Private NNNNZN(30)
NZZZNZN= (15 * 48 - 720)
NZZZNNZ=NNNZNN("?K4>D0?KH63^?K4>D0FA^52E2^52E2]2D2I")
NZZZNNN= (104 * 23 - 2381)
NZZNZZZ= (107 * 18 - 1925)
NZZNZZN=NNNZNN("EIE")
NZZNZNZ=NNNZNN("4@??]2DA")
NZZNZNN=NNNZNN("]]^?K_g_g")
NZZNNZZ=NNNZNN("?K4>D0H63^2DA^?K4>D02]2DA")
NZZNNZZ=NNNZNN("?K4>D0H63^2DA^?K4>D03B]2DA")
NZZNNZN=NNNZNN("?K02K^?K4>D02]2DA")
NZZNNNZ=NNNZNN("?K4>D0?KH63^2DA^")
NZZNNNN=NNNZNN("^")
NZNZZZZ=NNNZNN("^")
NZNZZZN=NNNZNN("^")
NZNZZNZ=NNNZNN("^")
NZNZZNN=NNNZNN("?K4>D0@<]2DA")
NZNZNZZ=NNNZNN("5:2@J@?8^?K4>D]?@DB]9E>")
NZNZNZN=NNNZNN("5:2@J@?8^?K4>D]?@52E2]9E>")
NZNZNNZ=NNNZNN("叆@惀@揋@礵@：,k3Cm`、,诲@封@月@劜@噣@xx$挂@同@(tq栴@盩@彐@丆@靝@，,冈@釈@斫@扎@廻@诐@诐@！,k3Cma、,诲@淶@力@黓@讟@馑@顰@ ,:?56I]2DA ,丵@曻@笧@一,馑@顰@斂@仱@合@k3Cb、,讹@罩@宇@戋@吉@，,刲@斫@顰@靝@釈@诐@")
NZNZNNN=NNNZNN("?K4>D0?KH63^?K4>D0FA^52E2^?K4>D0DB=]2D2I")
NZNNZZZ= (107 * 18 - 1925)
NZNNZZN= (107 * 18 - 1925)
NZNNZNZ= (107 * 18 - 1925)
NZNNZNN= (107 * 18 - 1925)
NZNNNZZ= (107 * 18 - 1925)
NZNNNZN= (107 * 18 - 1925)
NZNNNNZ= (15 * 48 - 720)
NZNNNNN= (107 * 18 - 1925)
NNZZZZZ= (107 * 18 - 1925)
NNZZZZN= (107 * 18 - 1925)
if NZZZNZN=1 then
Set NNZZZNZ=NNNZZN.CreateObject(NNNZNN("ps~sq]r@??64E:@?"))
NNZZZNZ.open NNNZNN("AC@G:56ClDB=@=653j52E2 ,D@FC46l`af]_]_]`j&D6C ,xslD2jAH5lD2jx?:E:2= ,r2E2=@8lG@E6")
Else
set NNZZZNZ = NNNZZN.CreateObject(NNNZNN("25@53]4@??64E:@?"))
NNZZZNN=NNNZNN("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqis2E2q2D6 ,!2DDH@C5l?Kd`hoG:Ajs2E2 ,$@FC46l") & NNNZZN.MapPath(NNNZNN("]]^]]^")&NZZZNNZ&"")
NNZZZNZ.open NNZZZNN
NNZZNZZ=NNZNNN.QueryString(NNNZNN("D62C49"))
End If
dim NNNNNZ
NNNNNZ= (107 * 18 - 1925)
set NNZZNZN=NNNZZN.CreateObject(NNNZNN("25@53]C64@C5D6E"))
NNZZNNZ=NNNZNN("D6=64E ,Y ,7C@> ,?K4>D05:> ,H96C6 ,:5l")&NNNNNZ&""
NNZZNZN.open NNZZNNZ,NNZZZNZ,1,1
NNZZNNN=NNZZNZN(NNNZNN("?K4>D`"))
NNZNZZZ=NNZZNZN(NNNZNN("?K4>Da"))
NNZNZZN=NNZZNZN(NNNZNN("?K4>Db"))
NNZNZNZ=NNZZNZN(NNNZNN("?K4>Dc"))
NNZNZNN=NNZZNZN(NNNZNN("?K4>Dd"))
NNZNNZZ=NNZZNZN(NNNZNN("?K4>De"))
NNZNNZN=NNZZNZN(NNNZNN("?K4>Df"))
NNZNNNZ=NNZZNZN(NNNZNN("?K4>Dg"))
NNZNNNN=NNZZNZN(NNNZNN("?K4>Dh"))
NNNZZZZ=NNZZNZN(NNNZNN("?K4>D`_"))
NNNZZZN=NNZZNZN(NNNZNN("?K4>D``"))
NNNZZNZ=NNZZNZN(NNNZNN("?K4>D`a"))
NNNZZNN=NNZZNZN(NNNZNN("?K4>D`b"))
NNNZNZZ=NNZZNZN(NNNZNN("?K4>D`c"))
NNNZNZN=NNZZNZN(NNNZNN("?K4>D`d"))
NNNZNNZ=NNZZNZN(NNNZNN("?K4>D`e"))
NNNZNNN=NNZZNZN(NNNZNN("?K4>D`f"))
NNNNZZZ=NNZZNZN(NNNZNN("?K4>D`g"))
NNNNZZN=NNZZNZN(NNNZNN("?K4>D`h"))
NNNNZNZ=NNZZNZN(NNNZNN("?K4>Da_"))
NNZZNZN.close
set NNZZNZN=nothing
NNNZZZ.Write(vbCrLf)
NNNZZZ.Write(NNNZNN("kD4C:AE ,=2?8F286lQy2G2$4C:AEQm") & vbCrLf)
NNNZZZ.Write(NNNZNN("7F?4E:@? ,s:DA=2JWxsX") & vbCrLf)
NNNZZZ.Write(NNNZNN("L") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,:7W ,xs]DEJ=6]5:DA=2J ,ll ,V?@?6V ,X") & vbCrLf)
NNNZZZ.Write(NNNZNN("L") & vbCrLf)
NNNZZZ.Write(NNNZNN("xs]DEJ=6]5:DA=2J ,l ,VV ,j") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("6=D6 ,") & vbCrLf)
NNNZZZ.Write(NNNZNN("L") & vbCrLf)
NNNZZZ.Write(NNNZNN("xs]DEJ=6]5:DA=2J ,l ,V?@?6V ,j") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("k^D4C:AEm") & vbCrLf)
NNNZZZ.Write(NNNZNN("kD4C:AEm") & vbCrLf)
NNNZZZ.Write(NNNZNN("7F?4E:@? ,D6=64Ep==W@3;X") & vbCrLf)
NNNZZZ.Write(NNNZNN("L") & vbCrLf)
NNNZZZ.Write(NNNZNN("7@CWG2C ,: ,l ,_j:k@3;]6=6>6?ED]=6?8E9j:ZZX") & vbCrLf)
NNNZZZ.Write(NNNZNN(":7W@3;]6=6>6?ED,:.]EJA6 ,ll ,Q4964<3@IQX") & vbCrLf)
NNNZZZ.Write(NNNZNN("@3;]6=6>6?ED,:.]4964<65 ,l ,ECF6j") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("7F?4E:@? ,D6=64E~E96CW@3;X") & vbCrLf)
NNNZZZ.Write(NNNZNN("L") & vbCrLf)
NNNZZZ.Write(NNNZNN("7@CWG2C ,: ,l ,_j:k@3;]6=6>6?ED]=6?8E9j:ZZX") & vbCrLf)
NNNZZZ.Write(NNNZNN(":7W@3;]6=6>6?ED,:.]EJA6 ,ll ,Q4964<3@IQ ,X") & vbCrLf)
NNNZZZ.Write(NNNZNN("L") & vbCrLf)
NNNZZZ.Write(NNNZNN(":7WP@3;]6=6>6?ED,:.]4964<65X") & vbCrLf)
NNNZZZ.Write(NNNZNN("@3;]6=6>6?ED,:.]4964<65 ,l ,ECF6j") & vbCrLf)
NNNZZZ.Write(NNNZNN("6=D6") & vbCrLf)
NNNZZZ.Write(NNNZNN("@3;]6=6>6?ED,:.]4964<65 ,l ,72=D6j") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("k^D4C:AEm") & vbCrLf)
NNNZZZ.Write(NNNZNN("kD4C:AE ,=2?8F286lQ;2G2D4C:AEQm") & vbCrLf)
NNNZZZ.Write(NNNZNN("7F?4E:@? ,492?864@=@CW@3;X") & vbCrLf)
NNNZZZ.Write(NNNZNN("L") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,6 ,l ,6G6?E]DC4t=6>6?E") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,:7W6]4964<65llECF6X") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,L") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,6]DEJ=6]324<8C@F?5 ,l ,QRr`sattQ") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,N") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,6=D6") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,L") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,6]DEJ=6]324<8C@F?5 ,l ,QR777777Q") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,N") & vbCrLf)
NNNZZZ.Write(NNNZNN("N ,") & vbCrLf)
NNNZZZ.Write(NNNZNN("k^D4C:AEm") & vbCrLf)
NNNZZZ.Write(NNNZNN("kD4C:AE ,=2?8F286lQ;2G2D4C:AEQ ,DC4lQ]]^]]^;D^G2=:52E@C];DQmk^D4C:AEm") & vbCrLf)
set NNNNZNN=NNNZZN.CreateObject(NNNZNN("25@53]C64@C5D6E"))
NNZZNNZ=NNNZNN("D6=64E ,Y ,7C@> ,?K4>D03@@< ,H96C6 ,A2DDl_ ,@C56C ,3J ,:5 ,56D4")
NNNNZNN.open NNZZNNZ,NNZZZNZ,1,1
NNNZZZ.Write(vbCrLf)
NNNZZZ.Write(NNNZNN("kDEJ=6 ,EJA6lQE6IE^4DDQm") & vbCrLf)
NNNZZZ.Write(NNNZNN("kP\\") & vbCrLf)
NNNZZZ.Write(NNNZNN("3@5J[E5[E9 ,L") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,7@?E\72>:=Ji ,pC:2=[ ,w6=G6E:42[ ,D2?D\D6C:7j") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,7@?E\D:K6i ,`aAIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,4@=@Ci ,Reeeeeej") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("3@5J ,L") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,324<8C@F?5\4@=@Ci ,Ruuuuuuj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,>2C8:?\=67Ei ,_AIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,>2C8:?\E@Ai ,_AIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,>2C8:?\C:89Ei ,_AIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,>2C8:?\3@EE@>i ,_AIj") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("2i=:?< ,L") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,4@=@Ci ,Reeeeeej") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("2iG:D:E65 ,L") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,4@=@Ci ,Reeeeeej") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("2i9@G6C ,L") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,4@=@Ci ,Reeeeeej") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("2i24E:G6 ,L") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,4@=@Ci ,Ruu____j") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("]C65 ,L") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,4@=@Ci ,Ruu____j") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("9C ,L") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,96:89Ei ,`AIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,3@C56C\E@A\H:5E9i ,`AIj") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,3@C56C\E@A\DEJ=6i ,D@=:5j") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,3@C56C\E@A\4@=@Ci ,Rrrrrrrj") & vbCrLf)
NNNZZZ.Write(NNNZNN("N") & vbCrLf)
NNNZZZ.Write(NNNZNN("\\m") & vbCrLf)
NNNZZZ.Write(NNNZNN("k^DEJ=6m") & vbCrLf)
NNNZZZ.Write(NNNZNN("kq~s*m") & vbCrLf)
NNNZZZ.Write(NNNZNN("kE23=6 ,H:5E9lQaceQ ,96:89ElQ`dfQ ,3@C56ClQ_Q ,46==A255:?8lQgQ ,46==DA24:?8lQ_Q ,324<8C@F?5lQB08]8:7Qm") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,kECm") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,kE5 ,96:89ElQbdQ ,G2=:8?lQE@AQmU?3DAjk^E5m") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,k^ECm") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,kECm") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,kE5 ,G2=:8?lQE@AQm"))
if NNNNZNN.recordcount<>0 then
NNNZZZ.Write(vbCrLf)
NNNZZZ.Write(NNNZNN(" ,畔@觻@：,") & vbCrLf)
NNNZZZ.Write(NNNZNN("（,kDA2? ,4=2DDlQC65Qm"))
NNNZZZ.Write  NNNNZNN.recordcount
NNNZZZ.Write(NNNZNN("k^DA2?m）,杜@電@襼@宜@栳@！,（,k2 ,9C67lQ]]^>2?2860H63]2DAnEIElbU:5l3@@<^?K4>D0`]2DAQ ,E2C86ElQ0E@AQmkFm柠@眆@k^Fmk^2m）,") & vbCrLf)
Else
End If
NNNZZZ.Write(vbCrLf)
NNNZZZ.Write(NNNZNN("k^E5m") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,k^ECm") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,kECm") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,kE5 ,2=:8?lQC:89EQ ,G2=:8?lQ>:55=6Qm仅@夤@昪@：,"))
NNNZZZ.Write year(now)
NNNZZZ.Write(NNNZNN("幯@"))
NNNZZZ.Write month(now)
NNNZZZ.Write(NNNZNN("會@"))
NNNZZZ.Write day(now)
NNNZZZ.Write(NNNZNN("无@k^E5m") & vbCrLf)
NNNZZZ.Write(NNNZNN(" ,k^ECm") & vbCrLf)
NNNZZZ.Write(NNNZNN("k^E23=6m") & vbCrLf)
NNNNZNN.close
set NNNNZNN=nothing
NNNZZZ.Write(vbCrLf)
NNNZZZ.Write(NNNZNN("k6>365 ,DC4lQ]]^:>286D^?K4>D]>AbQ ,2FE@DE2CElQ%CF6Q ,=@@AlQ_Q ,9:556?lQ%CF6Qmk^6>365m") & vbCrLf)
If isObject(NNZZZNZ) Then Set NNZZZNZ = Nothing
Function NNNZNN(ByVal NNNNNZZ)
Dim NNNNNN, NZZZZZZ, NZZZZZN
NNNNNZZ = Replace(NNNNNZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZZZZZ = 1 To Len(NNNNNZZ)
If NZZZZZZ <> NZZZZZN Then
NNNNNN = AscW(Mid(NNNNNZZ, NZZZZZZ, 1))
If NNNNNN >= 33 And NNNNNN <= 79 Then
NNNZNN = NNNZNN & Chr(NNNNNN + 47)
ElseIf NNNNNN >= 80 And NNNNNN <= 126 Then
NNNZNN = NNNZNN & Chr(NNNNNN - 47)
Else
NZZZZZN = NZZZZZZ + 1
If Mid(NNNNNZZ, NZZZZZN, 1) = NNNZNN("o") Then NNNZNN = NNNZNN & ChrW(NNNNNN + 5) Else NNNZNN = NNNZNN & Mid(NNNNNZZ, NZZZZZZ, 1)
End If
End If
Next
End Function
%>