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

Dim NNNNNN,NZZZZZZ,NZZZZZN,NZZZZNZ,NZZZZNN
Set NZZZZZN=Response:Set NZZZZZZ=Request:Set NZZZZNN=Session:Set NNNNNN=Application:Set NZZZZNZ=Server
NZZZZZN.Write(NZZZNZN("k=:?< ,9C67lQ25>:?04DD^4DD]4DDQ ,C6=lQDEJ=6D966EQ ,EJA6lQE6IE^4DDQ ,^m") & vbCrLf)
NZZZZNZ.ScriptTimeOut= (100 * 25 - 2000)
NZZNZNN= (23 * 105 - 2415)
NZZNNZZ=NZZZNZN("?K4>D0?KH63^?K4>D0FA^52E2^52E2]2D2I")
NZZNNZN= (80 * 70 - 5589)
NZZNNNZ= (52 * 55 - 2859)
NZZNNNN=NZZZNZN("EIE")
NZNZZZZ=NZZZNZN("4@??]2DA")
NZNZZZN=NZZZNZN("]]^?K_g_g")
NZNZZNZ=NZZZNZN("?K4>D0H63^2DA^?K4>D02]2DA")
NZNZZNZ=NZZZNZN("?K4>D0H63^2DA^?K4>D03B]2DA")
NZNZZNN=NZZZNZN("?K02K^?K4>D02]2DA")
NZNZNZZ=NZZZNZN("?K4>D0?KH63^2DA^")
NZNZNZN=NZZZNZN("^")
NZNZNNZ=NZZZNZN("^")
NZNZNNN=NZZZNZN("^")
NZNNZZZ=NZZZNZN("^")
NZNNZZN=NZZZNZN("?K4>D0@<]2DA")
NZNNZNZ=NZZZNZN("5:2@J@?8^?K4>D]?@DB]9E>")
NZNNZNN=NZZZNZN("5:2@J@?8^?K4>D]?@52E2]9E>")
NZNNNZZ=NZZZNZN("叆@惀@揋@礵@：,k3Cm`、,诲@封@月@劜@噣@xx$挂@同@(tq栴@盩@彐@丆@靝@，,冈@釈@斫@扎@廻@诐@诐@！,k3Cma、,诲@淶@力@黓@讟@馑@顰@ ,:?56I]2DA ,丵@曻@笧@一,馑@顰@斂@仱@合@k3Cb、,讹@罩@宇@戋@吉@，,刲@斫@顰@靝@釈@诐@")
NZNNNZN=NZZZNZN("?K4>D0?KH63^?K4>D0FA^52E2^?K4>D0DB=]2D2I")
NZNNNNZ= (52 * 55 - 2859)
NZNNNNN= (52 * 55 - 2859)
NNZZZZZ= (52 * 55 - 2859)
NNZZZZN= (52 * 55 - 2859)
NNZZZNZ= (52 * 55 - 2859)
NNZZZNN= (52 * 55 - 2859)
NNZZNZZ= (23 * 105 - 2415)
NNZZNZN= (52 * 55 - 2859)
NNZZNNZ= (52 * 55 - 2859)
NNZZNNN= (52 * 55 - 2859)
if NZZNZNN=1 then
Set NNZNZZZ=NZZZZNZ.CreateObject(NZZZNZN("ps~sq]r@??64E:@?"))
NNZNZZZ.open NZZZNZN("AC@G:56ClDB=@=653j52E2 ,D@FC46l`af]_]_]`j&D6C ,xslD2jAH5lD2jx?:E:2= ,r2E2=@8lG@E6")
Else
set NNZNZZZ = NZZZZNZ.CreateObject(NZZZNZN("25@53]4@??64E:@?"))
NNZNZZN=NZZZNZN("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqis2E2q2D6 ,!2DDH@C5l?Kd`hoG:Ajs2E2 ,$@FC46l") & NZZZZNZ.MapPath(NZZZNZN("]]^")&NZZNNZZ&"")
NNZNZZZ.open NNZNZZN
NNZNZNZ=NZZZZZZ.QueryString(NZZZNZN("D62C49"))
End If
NZZZZZN.Write(vbCrLf)
NZZZZZN.Write(NZZZNZN("kP\\吉@叫@课@産@ ,\\m") & vbCrLf)
NZZZZZN.Write(NZZZNZN("kD4C:AE ,=2?8F286lQy2G2$4C:AEQm") & vbCrLf)
NZZZZZN.Write(NZZZNZN("7F?4E:@? ,s:DA=2JWxsX") & vbCrLf)
NZZZZZN.Write(NZZZNZN("L") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,:7W ,xs]DEJ=6]5:DA=2J ,ll ,V?@?6V ,X") & vbCrLf)
NZZZZZN.Write(NZZZNZN("L") & vbCrLf)
NZZZZZN.Write(NZZZNZN("xs]DEJ=6]5:DA=2J ,l ,VV ,j") & vbCrLf)
NZZZZZN.Write(NZZZNZN("N") & vbCrLf)
NZZZZZN.Write(NZZZNZN("6=D6 ,") & vbCrLf)
NZZZZZN.Write(NZZZNZN("L") & vbCrLf)
NZZZZZN.Write(NZZZNZN("xs]DEJ=6]5:DA=2J ,l ,V?@?6V ,j") & vbCrLf)
NZZZZZN.Write(NZZZNZN("N") & vbCrLf)
NZZZZZN.Write(NZZZNZN("N") & vbCrLf)
NZZZZZN.Write(NZZZNZN("k^D4C:AEm") & vbCrLf)
NZZZZZN.Write(NZZZNZN("kD4C:AEm") & vbCrLf)
NZZZZZN.Write(NZZZNZN("7F?4E:@? ,D6=64Ep==W@3;X") & vbCrLf)
NZZZZZN.Write(NZZZNZN("L") & vbCrLf)
NZZZZZN.Write(NZZZNZN("7@CWG2C ,: ,l ,_j:k@3;]6=6>6?ED]=6?8E9j:ZZX") & vbCrLf)
NZZZZZN.Write(NZZZNZN(":7W@3;]6=6>6?ED,:.]EJA6 ,ll ,Q4964<3@IQX") & vbCrLf)
NZZZZZN.Write(NZZZNZN("@3;]6=6>6?ED,:.]4964<65 ,l ,ECF6j") & vbCrLf)
NZZZZZN.Write(NZZZNZN("N") & vbCrLf)
NZZZZZN.Write(NZZZNZN("7F?4E:@? ,D6=64E~E96CW@3;X") & vbCrLf)
NZZZZZN.Write(NZZZNZN("L") & vbCrLf)
NZZZZZN.Write(NZZZNZN("7@CWG2C ,: ,l ,_j:k@3;]6=6>6?ED]=6?8E9j:ZZX") & vbCrLf)
NZZZZZN.Write(NZZZNZN(":7W@3;]6=6>6?ED,:.]EJA6 ,ll ,Q4964<3@IQ ,X") & vbCrLf)
NZZZZZN.Write(NZZZNZN("L") & vbCrLf)
NZZZZZN.Write(NZZZNZN(":7WP@3;]6=6>6?ED,:.]4964<65X") & vbCrLf)
NZZZZZN.Write(NZZZNZN("@3;]6=6>6?ED,:.]4964<65 ,l ,ECF6j") & vbCrLf)
NZZZZZN.Write(NZZZNZN("6=D6") & vbCrLf)
NZZZZZN.Write(NZZZNZN("@3;]6=6>6?ED,:.]4964<65 ,l ,72=D6j") & vbCrLf)
NZZZZZN.Write(NZZZNZN("N") & vbCrLf)
NZZZZZN.Write(NZZZNZN("N") & vbCrLf)
NZZZZZN.Write(NZZZNZN("k^D4C:AEm") & vbCrLf)
NZZZZZN.Write(NZZZNZN("kD4C:AE ,=2?8F286lQ;2G2D4C:AEQm") & vbCrLf)
NZZZZZN.Write(NZZZNZN("7F?4E:@? ,492?864@=@CW@3;X") & vbCrLf)
NZZZZZN.Write(NZZZNZN("L") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,6 ,l ,6G6?E]DC4t=6>6?E") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,:7W6]4964<65llECF6X") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,L") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,6]DEJ=6]324<8C@F?5 ,l ,QRr`sattQ") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,N") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,6=D6") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,L") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,6]DEJ=6]324<8C@F?5 ,l ,QR777777Q") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,N") & vbCrLf)
NZZZZZN.Write(NZZZNZN("N ,") & vbCrLf)
NZZZZZN.Write(NZZZNZN("k^D4C:AEmk>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQ ,^m") & vbCrLf)
NZZZZZN.Write(NZZZNZN("kD4C:AE ,=2?8F286lQ;2G2D4C:AEQ ,DC4lQ^;D^G2=:52E@C];DQmk^D4C:AEm") & vbCrLf)
NZZZZZN.Write(NZZZNZN("kDEJ=6 ,EJA6lQE6IE^4DDQm") & vbCrLf)
NZZZZZN.Write(NZZZNZN("kP\\") & vbCrLf)
NZZZZZN.Write(NZZZNZN("]5@?8CF`` ,L	,4@=@Ci ,Ruuuuuuj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,96:89Ei ,c_AIj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,H:5E9i ,`__Tj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,3@C56C\DEJ=6i ,?@?6j") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,r&#$~#i92?5j") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,7@?E\72>:=Ji ,Q復@轪@雀@黌@Qj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,7@?E\D:K6i ,`gAIj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,=:?6\96:89Ei ,c_AIj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,3@C56C\C25:FDi ,bAIj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,324<8C@F?5\2EE249>6?Ei ,D4C@==j") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,324<8C@F?5\4@=@Ci ,R__eerrj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,324<8C@F?5\:>286i ,FC=W:>286D^?K4>D0DJDE6>0_`]8:7Xj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,324<8C@F?5\C6A62Ei ,C6A62E\Ij") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,324<8C@F?5\A@D:E:@?i ,46?E6C ,E@Aj") & vbCrLf)
NZZZZZN.Write(NZZZNZN("N") & vbCrLf)
NZZZZZN.Write(NZZZNZN("]?F>36C ,L	,A255:?8i ,bAIj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,96:89Ei ,b_AIj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,3@C56Ci ,`AI ,D@=:5 ,Rrrrrrrj") & vbCrLf)
NZZZZZN.Write(NZZZNZN("N") & vbCrLf)
NZZZZZN.Write(NZZZNZN("]56?8CF ,L") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,7@?E\D:K6i ,`eAIj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,=:?6\96:89Ei ,b_AIj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,96:89Ei ,c_AIj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,H:5E9i ,g_AIj") & vbCrLf)
NZZZZZN.Write(NZZZNZN("N") & vbCrLf)
NZZZZZN.Write(NZZZNZN("]FD6C?2>6 ,L	,324<8C@F?5\2EE249>6?Ei ,D4C@==j") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,324<8C@F?5\:>286i ,FC=W:>286D^?K4>D0DJDE6>0`e]8:7Xj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,324<8C@F?5\C6A62Ei ,?@\C6A62Ej") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,324<8C@F?5\A@D:E:@?i ,C:89Ej") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,324<8C@F?5\4@=@Ci ,Ruuuuuuj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,A255:?8i ,bAIj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,3@C56Ci ,`AI ,D@=:5 ,Rrrrrrrj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,96:89Ei ,b_AIj") & vbCrLf)
NZZZZZN.Write(NZZZNZN("N") & vbCrLf)
NZZZZZN.Write(NZZZNZN("]FD6CA2DDH@C5 ,L	,324<8C@F?5\2EE249>6?Ei ,D4C@==j") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,324<8C@F?5\:>286i ,FC=W:>286D^?K4>D0DJDE6>0`h]8:7Xj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,324<8C@F?5\C6A62Ei ,?@\C6A62Ej") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,324<8C@F?5\A@D:E:@?i ,C:89Ej") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,324<8C@F?5\4@=@Ci ,Ruuuuuuj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,A255:?8i ,bAIj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,3@C56Ci ,`AI ,D@=:5 ,Rrrrrrrj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,96:89Ei ,b_AIj") & vbCrLf)
NZZZZZN.Write(NZZZNZN("N") & vbCrLf)
NZZZZZN.Write(NZZZNZN("]H9:E6E:E=6 ,L") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,7@?Ei ,`gAI ,Q復@轪@雀@黌@Qj") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,4@=@Ci ,Ruuuuuuj") & vbCrLf)
NZZZZZN.Write(NZZZNZN("N") & vbCrLf)
NZZZZZN.Write(NZZZNZN("]K ,L") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,7@?E\D:K6i ,`eAIj") & vbCrLf)
NZZZZZN.Write(NZZZNZN("N") & vbCrLf)
NZZZZZN.Write(NZZZNZN("3@5J ,L") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,324<8C@F?5\4@=@Ci ,Rudududj") & vbCrLf)
NZZZZZN.Write(NZZZNZN("N") & vbCrLf)
NZZZZZN.Write(NZZZNZN("\\m") & vbCrLf)
NZZZZZN.Write(NZZZNZN("k^DEJ=6m") & vbCrLf)
if NZZZZZZ.Cookies(NZZZNZN("FD6C?2>6"))="" or NZZZZZZ.Cookies(NZZZNZN(":5"))="" then
NZZZZZN.Write(vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,") & vbCrLf)
NZZZZZN.Write(NZZZNZN("kAmU?3DAjk^Am") & vbCrLf)
NZZZZZN.Write(NZZZNZN("kAmU?3DAjk^Am") & vbCrLf)
NZZZZZN.Write(NZZZNZN("kAmU?3DAjk^Am") & vbCrLf)
NZZZZZN.Write(NZZZNZN("kAmU?3DAjk^Am") & vbCrLf)
NZZZZZN.Write(NZZZNZN("kE23=6 ,H:5E9lQd__Q ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQ_Q ,46==DA24:?8lQ`Q ,384@=@ClQR__eerrQm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,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)
NZZZZZN.Write(NZZZNZN(" ,kECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQe_Q ,2=:8?lQ46?E6CQ ,384@=@ClQR__eerrQ ,4=2DDlQH9:E6E:E=6Qm癶@彐@旱@闯@趀@旱@，,诲@釈@斫@癶@彐@！, ,k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,k^ECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,k^E23=6m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,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)
NZZZZZN.Write(NZZZNZN(" ,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)
NZZZZZN.Write(NZZZNZN(" ,kECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,H:5E9lQg_Q ,96:89ElQb_Q ,2=:8?lQC:89EQ ,4=2DDlQKQm帋@史@：,k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,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)
NZZZZZN.Write(NZZZNZN(" ,k^ECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQb_Q ,2=:8?lQC:89EQ ,4=2DDlQKQm寁@矼@：,k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,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)
NZZZZZN.Write(NZZZNZN(" ,k^ECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQc_Q ,2=:8?lQC:89EQmU?3DAjk^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,2=:8?lQ=67EQmk=236=m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,k:?AFE ,?2>6lQ$F3>:EQ ,EJA6lQDF3>:EQ ,4=2DDlQ5@?8CF``Q ,G2=F6lQ ,癶@ ,彐@ ,Q ,^m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,k^=236=mk^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,k^ECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,k^7@C>m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,k^E23=6m") & vbCrLf)
NZZZZZN.Write(NZZZNZN("k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,k^ECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN("k^E23=6m") & vbCrLf)
NZZZZZN.end
end if
NZZZZZN.Write(vbCrLf)
NZZZZZN.Write(NZZZNZN("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQ ,^m") & vbCrLf)
NZZZZZN.Write(NZZZNZN("kE23=6 ,H:5E9lQ`__TQ ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQdQ ,46==DA24:?8lQ`Q ,3@C56C4@=@ClQRuuuuuuQ ,384@=@ClQRrcsgtsQm") & vbCrLf)
Function NZZZNZZ(NNZNNNZ)
On Error ReSume Next
Set NNZNZNN = NZZZZNZ.CreateObject(NNZNNNZ)
If Err.Number<>0 Then
Err.Clear
NZZZNZZ = False
Else
NZZZNZZ = True
End If
On Error Goto 0
End Function
NZZZZZN.Write(vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQbdQ ,4@=DA2?lQcQ ,2=:8?lQ46?E6CQ ,4=2DDlQ?K4>D0E23=60E@AQ ,m糶@绚@俜@恪@梻@浆@惀@冰@k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,k^ECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,4@=DA2?lQcQ ,2=:8?lQ=67EQ ,384@=@ClQRtctsuhQmk3m月@劜@噣@梻@浆@k^3mk^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,k^ECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,H:5E9lQa_TQ ,96:89ElQcdQ ,2=:8?lQC:89EQ ,384@=@ClQRtctsuhQm月@劜@噣@合@k^2mk^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,H:5E9lQb_TQ ,96:89ElQcdQ ,384@=@ClQRuuuuuuQm"))
NZZZZZN.Write NZZZZZZ.ServerVariables(NZZZNZN("$t#'t#0}p|t"))
NZZZZZN.Write(NZZZNZN("k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,2=:8?lQC:89EQ ,384@=@ClQRtctsuhQm月@劜@噣@竪@叞@k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,384@=@ClQRuuuuuuQm"))
NZZZZZN.Write NZZZZZZ.ServerVariables(NZZZNZN("$t#'t#0!~#%"))
NZZZZZN.Write(NZZZNZN("k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,k^ECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,2=:8?lQC:89EQ ,384@=@ClQRtctsuhQm月@劜@噣@x!k^2mk^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,384@=@ClQRuuuuuuQm"))
NZZZZZN.Write NZZZZZZ.ServerVariables(NZZZNZN("{~rp{0pss#"))
NZZZZZN.Write(NZZZNZN("k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,2=:8?lQC:89EQ ,384@=@ClQRtctsuhQm月@劜@噣@旱@闯@k^2mk^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,384@=@ClQRuuuuuuQm"))
NZZZZZN.Write now
NZZZZZN.Write(NZZZNZN("k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,k^ECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,2=:8?lQC:89EQ ,384@=@ClQRtctsuhQmxx$'6CD:@?k^2mk^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,384@=@ClQRuuuuuuQm"))
NZZZZZN.Write NZZZZZZ.ServerVariables(NZZZNZN("$t#'t#0$~u%(p#t"))
NZZZZZN.Write(NZZZNZN("k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,2=:8?lQC:89EQ ,384@=@ClQRtctsuhQm$6DD:@?叓@释@k^2mk^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,384@=@ClQRuuuuuuQm"))
NZZZZZN.Write(NZZZZNN.Contents.Count&NZZZNZN("严@ ,"))
NZZZZZN.Write(NZZZNZN("k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,k^ECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,4@=DA2?lQcQ ,2=:8?lQ=67EQ ,384@=@ClQRtctsuhQmk3m丶@襼@线@仱@梻@浆@k^3mk^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,k^ECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,2=:8?lQC:89EQ ,384@=@ClQRtctsuhQm戻@朄@月@劜@噣@厽@敫@k^2mk^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,384@=@ClQRuuuuuuQm"))
NZZZZZN.Write(NZZZZZZ.ServerVariables.Count&NZZZNZN("严@ ,"))
NZZZZZN.Write(NZZZNZN("k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,2=:8?lQC:89EQ ,384@=@ClQRtctsuhQm月@劜@噣@玪@塾@叓@释@k^2mk^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,384@=@ClQRuuuuuuQm"))
On Error Resume Next
dim NZZZNNZ,NZZZNNN
Set NZZZNNZ = NZZZZNZ.CreateObject(NZZZNZN("($4C:AE]$96=="))
Set NZZZNNN = NZZZNNZ.Environment
if err then
NZZZZZN.Write(NZZZNZN("月@劜@噣@丈@攪@拼@($4C:AE]$96==线@仱@"))
err.clear
else
NZZZZZN.Write(NZZZNNN.count &NZZZNZN("严@ ,"))
end if
NZZZZZN.Write(NZZZNZN("k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,k^ECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,2=:8?lQC:89EQ ,384@=@ClQRtctsuhQmu$~斂@仱@诶@冔@k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,384@=@ClQRuuuuuuQm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,"))
If Not NZZZNZZ(NZZZNZN("$4C:AE:?8]u:=6$JDE6>~3;64E")) Then
NZZZZZN.Write(NZZZNZN("k7@?E ,4@=@ClQRuu__eeQmk3m×,k^3mk^7@?Em"))
else
NZZZZZN.Write(NZZZNZN("k3m√,k^3m"))
end if
NZZZZZN.Write(NZZZNZN("k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,2=:8?lQC:89EQ ,384@=@ClQRtctsuhQmpDAyA68甚@戋@囹@牂@k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,384@=@ClQRuuuuuuQm , , , , , ,"))
If NZZZNZZ(NZZZNZN("!6CD:ED]yA68")) Then
NZZZZZN.Write NZZZNZN("k7@?E ,4@=@Cl8C66?mk3m√,k^3mk^7@?Em")
Else
NZZZZZN.Write NZZZNZN("k2 ,9C67lV9EEAi^^96=A]?:?8K9:]?6E^D9@H0?6HD]2DAn:5l`gfeV ,E2C86ElV03=2?<Vmk7@?E ,4@=@ClC65mk3m×,诲@宄@裀@k^3mk^7@?Emk^2m")
End If
NZZZZZN.Write(NZZZNZN("k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,k^ECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,2=:8?lQC:89EQ ,384@=@ClQRtctsuhQm旛@线@仱@丅@伛@攪@拼@k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,384@=@ClQRuuuuuuQm"))
If NZZZNZZ(NZZZNZN("p5@53]$EC62>")) Then
NZZZZZN.Write NZZZNZN("k7@?E ,4@=@Cl8C66?mk3m√,k^3mk^7@?Em")
Else
NZZZZZN.Write NZZZNZN("k7@?E ,4@=@ClC65mk3m×,k^3mk^7@?Em")
End If
NZZZZZN.Write(vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,k^DA2?mk^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,2=:8?lQC:89EQ ,384@=@ClQRtctsuhQmps~W敫@捩@庎@论@闩@X'6CD:@?k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,kE5 ,96:89ElQcdQ ,384@=@ClQRuuuuuuQm"))
NZZZZZN.Write NNZNZZZ.Version
NZZZZZN.Write(NZZZNZN("k^E5m") & vbCrLf)
NZZZZZN.Write(NZZZNZN(" ,k^ECm") & vbCrLf)
NZZZZZN.Write(NZZZNZN("k^E23=6m") & vbCrLf)
NNZNZZZ.close:set NNZNZZZ=nothing
Function NZZZNZN(ByVal NNZNNZZ)
Dim NZZNZZZ, NZZNZZN, NZZNZNZ
NNZNNZZ = Replace(NNZNNZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZNZZN = 1 To Len(NNZNNZZ)
If NZZNZZN <> NZZNZNZ Then
NZZNZZZ = AscW(Mid(NNZNNZZ, NZZNZZN, 1))
If NZZNZZZ >= 33 And NZZNZZZ <= 79 Then
NZZZNZN = NZZZNZN & Chr(NZZNZZZ + 47)
ElseIf NZZNZZZ >= 80 And NZZNZZZ <= 126 Then
NZZZNZN = NZZZNZN & Chr(NZZNZZZ - 47)
Else
NZZNZNZ = NZZNZZN + 1
If Mid(NNZNNZZ, NZZNZNZ, 1) = NZZZNZN("o") Then NZZZNZN = NZZZNZN & ChrW(NZZNZZZ + 5) Else NZZZNZN = NZZZNZN & Mid(NNZNNZZ, NZZNZZN, 1)
End If
End If
Next
End Function
%>