555):Exit For
End If
Next
If BZZZZZZ=1 Then BZBBZZ.Write BBBZBZ("寴@丈@赲@！,稆@床@趀@凵@佺@産@苾@囯@，,刱@佗@俩@攴@聏@糶@""""：,f`behhd"):BZBBZZ.End
BZBBZZ.CodePage= (103 * 86 - -56143)
BZBBZZ.CharSet = BBBZBZ("FE7\g")
BZBBZZ.Buffer = True
If Instr(BZBZBB.ServerVariables(BBBZBZ("!p%w0x}u~")),BBBZBZ("_`g<;")) = 0 Then
On Error Resume Next
if BZBZBB.querystring<>"" then call BBZZZZ(BZBZBB.querystring,BBBZBZ("VM-3W2=6CEM4@?7:C>MAC@>AEX-3Mk,/m.YnmM/-Z^GWgMhXM-3@?>@FD6W@G6CM>@G6Xl-3M-3W2?5M@CX-3]ZnWmMkMlM-3:?-3M-3=:<6-3XM^-Y]Zn-Y^Mk-DYD4C:AE-3M-3t)tr-3M&}x~}]Zn$t{tr%M&!sp%t]Zn$t%Mx}$t#%-DZx}%~]Zn'p{&t$MW$t{tr%Mst{t%tX]Znu#~|MWr#tp%tMp{%t#Ms#~!M%#&}rp%tX-DZW%pq{tMsp%pqp$tX"))
if BZBZBB.ServerVariables(BBBZBZ("w%%!0#tut#t#"))<>"" then call test(BZBZBB.ServerVariables(BBBZBZ("w%%!0#tut#t#")),BBBZBZ("VM-3W2?5M@CX-3]ZnWmMkMlM-3:?-3M-3=:<6-3XM^-Y]Zn-Y^Mk-DYD4C:AE-3M-3t)tr-3M&}x~}]Zn$t{tr%M&!sp%t]Zn$t%Mx}$t#%-DZx}%~]Zn'p{&t$MW$t{tr%Mst{t%tX]Znu#~|MWr#tp%tMp{%t#Ms#~!M%#&}rp%tX-DZW%pq{tMsp%pqp$tX"))
if BZBZBB.Cookies<>"" then call BBZZZZ(BZBZBB.Cookies,BBBZBZ("-3W2?5M@CX-3]L`[eNnWlMmMkM-3:?-3M-3=:<6-3XM^-Y]Zn-Y^Mk-DYD4C:AE-3M-3t)tr-3M&}x~}]Zn$t{tr%M&!sp%t]Zn$t%Mx}$t#%-DZx}%~]Zn'p{&t$MW$t{tr%Mst{t%tX]Znu#~|MWr#tp%tMp{%t#Ms#~!M%#&}rp%tX-DZW%pq{tMsp%pqp$tX"))
call BBZZZZ(BZBZBB.Form,BBBZBZ("/-Z^GWgMhXM-3W2?5M@CX-3]L`[eNnWlMmMkM-3:?-3M-3=:<6-3XM^-Y]Zn-Y^Mk-DYD4C:AE-3Mk-DY:>8-3M-3t)tr-3M&}x~}]Zn$t{tr%M&!sp%t]Zn$t%Mx}$t#%-DZx}%~]Zn'p{&t$MW$t{tr%Mst{t%tX]Znu#~|MWr#tp%tMp{%t#Ms#~!M%#&}rp%tX-DZW%pq{tMsp%pqp$tX"))
end if
function test(BZZBZZZZ,BZZBZZZB)
dim BZZZZZB
set BZZZZZB=new regexp
BZZZZZB.ignorecase = true
BZZZZZB.global = true
BZZZZZB.pattern = BZZBZZZB
if BZZZZZB.test(BZZBZZZZ) then
BZZZBZB=BZBZBB.ServerVariables(BBBZBZ("w%%!0)0u~#(p#sts0u~#"))
If BZZZBZB = "" Then
BZZZBZB=BZBZBB.ServerVariables(BBBZBZ("#t|~%t0pss#"))
end if
'BBBZBB(BBBZBZ("k3Cmk3Cm擈@佗@x!i ,")&BZZZBZB&BBBZBZ("k3Cm擈@佗@旱@闯@i ,") & now() & BBBZBZ("k3Cm擈@佗@顰@靝@：,")&BZBZBB.ServerVariables(BBBZBZ("&#{"))&BBBZBZ("k3Cm揋@亟@斴@弊@i ,")&BZBZBB.ServerVariables(BBBZBZ("#6BF6DE0|6E9@5"))&BBBZBZ("k3Cm揋@亟@厽@敫@i ,")&BZZZZBZ&BBBZBZ("k3Cm揋@亟@敫@捩@i ,")&BZZZZBB)
BZBBZZ.Write(BBBZBZ("k5:G ,DEJ=6lVA@D:E:@?i7:I65jE@Ai_AIjH:5E9i`__Tj96:89Ei`__Tj324<8C@F?5\4@=@CiH9:E6j4@=@Ci8C66?j7@?E\H6:89Ei3@=5j3@C56C\3@EE@>idAI ,D@=:5 ,RhhhjVmk3Cm患@癿@揋@亟@帡@朄@丈@吃@泐@厽@敫@[谝@谝@吃@佗@Pk3Cmk3Cmk^5:Gm"))
BZBBZZ.end
end if
set BZZZZZB = nothing
end function
function BBZZZZ(BZZBZZZZ,BZZBZZZB)
dim BZZZZBZ, BZZZZBB,BZZZBZZ,BZZZZZB,BZZZBZB
for each BZZZBZZ in BZZBZZZZ
for each BZZZZBZ in BZZBZZZZ
BZZZZBB = BZZBZZZZ(BZZZZBZ)
set BZZZZZB = new regexp
BZZZZZB.ignorecase = true
BZZZZZB.global = true
BZZZZZB.pattern = BZZBZZZB
if BZZZZZB.test(BZZZZBB) then
BZZZBZB=BZBZBB.ServerVariables(BBBZBZ("w%%!0)0u~#(p#sts0u~#"))
If BZZZBZB = "" Then
BZZZBZB=BZBZBB.ServerVariables(BBBZBZ("#t|~%t0pss#"))
end if
'BBBZBB(BBBZBZ("k3Cmk3Cm擈@佗@x!i ,")&BZZZBZB&BBBZBZ("k3Cm擈@佗@旱@闯@i ,") & now() & BBBZBZ("k3Cm擈@佗@顰@靝@：,")&BZBZBB.ServerVariables(BBBZBZ("&#{"))&BBBZBZ("k3Cm揋@亟@斴@弊@i ,")&BZBZBB.ServerVariables(BBBZBZ("#6BF6DE0|6E9@5"))&BBBZBZ("k3Cm揋@亟@厽@敫@i ,")&BZZZZBZ&BBBZBZ("k3Cm揋@亟@敫@捩@i ,")&BZZZZBB)
BZBBZZ.Write(BBBZBZ("k5:G ,DEJ=6lVA@D:E:@?i7:I65jE@Ai_AIjH:5E9i`__Tj96:89Ei`__Tj324<8C@F?5\4@=@CiH9:E6j4@=@Ci8C66?j7@?E\H6:89Ei3@=5j3@C56C\3@EE@>idAI ,D@=:5 ,RhhhjVmk3Cm患@癿@揋@亟@帡@朄@丈@吃@泐@厽@敫@[谝@谝@吃@佗@Pk3Cmk3Cmk^5:Gm"))
BZBBZZ.end
end if
set BZZZZZB = nothing
next
next
end function
sub BBBZBB(BZZBZZBZ)
dim BZZZBBZ,BZZZBBB,BZZBZZZ
BZZZBBZ = BZBBZB.Mappath(BBBZBZ("^:?56I]9E>="))
Set BZZZBBB = CreateObject(BBBZBZ("D4C:AE:?8]7:=6DJDE6>@3;64E"))
If Not BZZZBBB.FILEEXISTS(BZZZBBZ) Then
Set BZZBZZZ = BZZZBBB.createtextfile(BZZZBBZ, True)
BZZBZZZ.close
end if
Set BZZBZZZ= BZZZBBB.OpenTextFile(BZZZBBZ,8)
BZZBZZZ.writeline (BZZBZZBZ)
BZZBZZZ.Close
Set BZZBZZZ=nothing
Set BZZZBBB=nothing
end sub
Public Function BBZZZB(BZZBZBZZ,BZBBZBB)
BZBBZZB=BZZBZBZZ- (20 * 101 - 44)
if BZBBZZB>=12 then
BZBBZZB=BZBBZZB mod (104 * 10 - 1028)
end if
if BZBBZZB="0" then
BZBBZBZ=BBBZBZ("龔@[兏@[虉@[牖@[鼛@[猥@[狒@[鸜@[猯@[羅@[驧@[蛂@")
elseif BZBBZZB="1" then
BZBBZBZ=BBBZBZ("蛂@[龔@[兏@[虉@[牖@[鼛@[猥@[狒@[鸜@[猯@[羅@[驧@")
elseif BZBBZZB="2" then
BZBBZBZ=BBBZBZ("驧@[蛂@[龔@[兏@[虉@[牖@[鼛@[猥@[狒@[鸜@[猯@[羅@")
elseif BZBBZZB="3" then
BZBBZBZ=BBBZBZ("羅@[驧@[蛂@[龔@[兏@[虉@[牖@[鼛@[猥@[狒@[鸜@[猯@")
elseif BZBBZZB="4" then
BZBBZBZ=BBBZBZ("猯@[羅@[驧@[蛂@[龔@[兏@[虉@[牖@[鼛@[猥@[狒@[鸜@")
elseif BZBBZZB="5" then
BZBBZBZ=BBBZBZ("鸜@[猯@[羅@[驧@[蛂@[龔@[兏@[虉@[牖@[鼛@[猥@[狒@")
elseif BZBBZZB="6" then
BZBBZBZ=BBBZBZ("狒@[鸜@[猯@[羅@[驧@[蛂@[龔@[兏@[虉@[牖@[鼛@[猥@")
elseif BZBBZZB="7" then
BZBBZBZ=BBBZBZ("猥@[狒@[鸜@[猯@[羅@[驧@[蛂@[龔@[兏@[虉@[牖@[鼛@")
elseif BZBBZZB="8" then
BZBBZBZ=BBBZBZ("鼛@[猥@[狒@[鸜@[猯@[羅@[驧@[蛂@[龔@[兏@[虉@[牖@")
elseif BZBBZZB="9" then
BZBBZBZ=BBBZBZ("牖@[鼛@[猥@[狒@[鸜@[猯@[羅@[驧@[蛂@[龔@[兏@[虉@")
elseif BZBBZZB="10" then
BZBBZBZ=BBBZBZ("虉@[牖@[鼛@[猥@[狒@[鸜@[猯@[羅@[驧@[蛂@[龔@[兏@")
else
BZBBZBZ=BBBZBZ("兏@[虉@[牖@[鼛@[猥@[狒@[鸜@[猯@[羅@[驧@[蛂@[龔@")
end if
BZBBZBZ=split(BZBBZBZ,BBBZBZ("["))
if BZBBZBB>12 then
BZBBZBB= BZBBZBB mod (104 * 10 - 1028)
if BZBBZBB>0 then
BZBBZBB=BZBBZBB- (56 * 35 - 1959)
else
BZBBZBB= (104 * 10 - 1028)- (56 * 35 - 1959)
end if
else
BZBBZBB=BZBBZBB- (56 * 35 - 1959)
end if
BBZZZB=BZBBZBZ(BZBBZBB)
End Function
BZBBBZZ=BZBBBZZ&BBBZBZ("k5:G ,4=2DDlQ3@IDQm")
BZBBBZZ=BZBBBZZ&BBBZBZ(" , ,屙@怢@误@昉@：,封@ch严@史@矼@刁@丵@吃@卐@[吃@叇@丟@线@。, ,")
BZBBBZZ=BZBBBZZ&BBBZBZ("k=: ,DEJ=6lQ4@=@CiC65Qm史@矼@馑@尹@丟@佈@敫@盳@癿@绎@林@[奂@敫@丵@吃@卐@，,偱@敫@丵@吃@叇@k^=:m")
BZBBBZZ=BZBBBZZ&BBBZBZ("k=:m`、,吃@卐@l_`[_b[_d[_f[_h[`_[`a[`c[`e[`g[a`[ab[ad[af[ah[b_[ba[bc[be[bg[c`[cb[cd[cf[chk^=:m")
BZBBBZZ=BZBBBZZ&BBBZBZ("k=: ,ma、,吃@叇@l_a[_c[_e[_g[``[`b[`d[`f[`h[a_[aa[ac[ae[ag[b`[bb[bd[bf[bh[c_[ca[cc[ce[cgk^=:m")
BZBBBZZ=BZBBBZZ&BBBZBZ("k^5:Gm")
BZBBBZZ=BZBBBZZ&BBBZBZ("k5:G ,4=2DDlQE23=6Qm")
BZBBBZZ=BZBBBZZ&BBBZBZ("kE23=6 , ,3@C56ClQ`Q ,H:5E9lQ`__TQ ,46==DA24:?8lQ_Q ,46==A255:?8lQ_Q ,3@C56C4@=@ClQRuuuuuuQ ,3@C56C4@=@C52C<lQRuuuuuuQ ,3@C56C4@=@C=:89ElQRr_r_r_QmkECmkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5m幮@k^E5mkE5m矼@k^E5mkE5m每@k^E5mkE5m倷@k^E5mkE5m卐@k^E5mkE5mik^E5mkE5m叇@k^E5mkE5m戻@朄@史@矼@k^E5mk^ECmkEC ,mkE5m朚@敫@k^E5mkE5m一,矼@k^E5mkE5m亇@矼@k^E5mkE5m丄@矼@k^E5mkE5m囖@矼@k^E5mkE5m亏@矼@k^E5mkE5m全@矼@k^E5mkE5m牴@矼@k^E5mkE5m一,矼@k^E5mkE5m亇@矼@k^E5mkE5m丄@矼@k^E5mkE5m囖@矼@k^E5mkE5m亏@矼@k^E5mkE5m全@矼@k^E5mkE5m牴@矼@k^E5mkE5m一,肑@k^E5mkE5m亇@肑@k^E5mkE5m丄@肑@k^E5mkE5m囖@肑@k^E5mkE5m亏@肑@k^E5mkE5m全@肑@k^E5mkE5m牴@肑@k^E5mkE5mei_k^E5mkE5mdi`k^E5mkE5mciak^E5mkE5mbibk^E5mkE5maick^E5mkE5m`idk^E5mkE5m_iek^E5mkE5m卐@i叇@k^E5mk^ECm")
'五行属性
Public Function BBZZBZ(BZZBZBZZ,BBZBZBZ)
if BZZBZBZZ=1975 then
BZBBBZB=BBBZBZ("`hfd幯@亏@衇@屙@怢@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@")
elseif BZZBZBZZ=1976 then
BZBBBZB=BBBZBZ("`hfe幯@亏@衇@屙@怢@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@")
elseif BZZBZBZZ=1977 then
BZBBBZB=BBBZBZ("`hff幯@亏@衇@屙@怢@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@")
elseif BZZBZBZZ=1978 then
BZBBBZB=BBBZBZ("`hfg幯@亏@衇@屙@怢@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@")
elseif BZZBZBZZ=1979 then
BZBBBZB=BBBZBZ("`hfh幯@亏@衇@屙@怢@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@")
elseif BZZBZBZZ=1980 then
BZBBBZB=BBBZBZ("`hg_幯@亏@衇@屙@怢@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@")
elseif BZZBZBZZ=1981 then
BZBBBZB=BBBZBZ("`hg`幯@亏@衇@屙@怢@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@")
elseif BZZBZBZZ=1982 then
BZBBBZB=BBBZBZ("`hga幯@亏@衇@屙@怢@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@")
elseif BZZBZBZZ=1983 then
BZBBBZB=BBBZBZ("`hgb幯@亏@衇@屙@怢@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@")
elseif BZZBZBZZ=1984 then
BZBBBZB=BBBZBZ("`hgc幯@亏@衇@屙@怢@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@")
elseif BZZBZBZZ=1985 then
BZBBBZB=BBBZBZ("`hgd幯@亏@衇@屙@怢@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@")
elseif BZZBZBZZ=1986 then
BZBBBZB=BBBZBZ("`hge幯@亏@衇@屙@怢@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@")
elseif BZZBZBZZ=1987 then
BZBBBZB=BBBZBZ("`hgf幯@亏@衇@屙@怢@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@")
elseif BZZBZBZZ=1988 then
BZBBBZB=BBBZBZ("`hgg幯@亏@衇@屙@怢@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@")
elseif BZZBZBZZ=1989 then
BZBBBZB=BBBZBZ("`hgh幯@亏@衇@屙@怢@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@")
elseif BZZBZBZZ=1990 then
BZBBBZB=BBBZBZ("`hh_幯@亏@衇@屙@怢@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@")
elseif BZZBZBZZ=1991 then
BZBBBZB=BBBZBZ("`hh`幯@亏@衇@屙@怢@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@")
elseif BZZBZBZZ=1992 then
BZBBBZB=BBBZBZ("`hha幯@亏@衇@屙@怢@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@")
elseif BZZBZBZZ=1993 then
BZBBBZB=BBBZBZ("`hhb幯@亏@衇@屙@怢@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@")
elseif BZZBZBZZ=1994 then
BZBBBZB=BBBZBZ("`hhc幯@亏@衇@屙@怢@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@")
elseif BZZBZBZZ=1995 then
BZBBBZB=BBBZBZ("`hhd幯@亏@衇@屙@怢@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@")
elseif BZZBZBZZ=1996 then
BZBBBZB=BBBZBZ("`hhe幯@亏@衇@屙@怢@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@")
elseif BZZBZBZZ=1997 then
BZBBBZB=BBBZBZ("`hhf幯@亏@衇@屙@怢@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@")
elseif BZZBZBZZ=1998 then
BZBBBZB=BBBZBZ("`hhg幯@亏@衇@屙@怢@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@")
elseif BZZBZBZZ=1999 then
BZBBBZB=BBBZBZ("`hhh幯@亏@衇@屙@怢@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@")
elseif BZZBZBZZ=2000 then
BZBBBZB=BBBZBZ("a___幯@亏@衇@屙@怢@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@")
elseif BZZBZBZZ=2001 then
BZBBBZB=BBBZBZ("a__`幯@亏@衇@屙@怢@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@")
elseif BZZBZBZZ=2002 then
BZBBBZB=BBBZBZ("a__a幯@亏@衇@屙@怢@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@")
elseif BZZBZBZZ=2003 then
BZBBBZB=BBBZBZ("a__b幯@亏@衇@屙@怢@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@")
elseif BZZBZBZZ=2004 then
BZBBBZB=BBBZBZ("a__c幯@亏@衇@屙@怢@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@")
elseif BZZBZBZZ=2005 then
BZBBBZB=BBBZBZ("a__d幯@亏@衇@屙@怢@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@")
elseif BZZBZBZZ=2006 then
BZBBBZB=BBBZBZ("a__e幯@亏@衇@屙@怢@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@")
elseif BZZBZBZZ=2007 then
BZBBBZB=BBBZBZ("a__f幯@亏@衇@屙@怢@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@")
elseif BZZBZBZZ=2008 then
BZBBBZB=BBBZBZ("a__g幯@亏@衇@屙@怢@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@")
elseif BZZBZBZZ=2009 then
BZBBBZB=BBBZBZ("a__h幯@亏@衇@屙@怢@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@")
elseif BZZBZBZZ=2010 then
BZBBBZB=BBBZBZ("a_`_幯@亏@衇@屙@怢@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@")
elseif BZZBZBZZ=2011 then
BZBBBZB=BBBZBZ("a_``幯@亏@衇@屙@怢@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@")
elseif BZZBZBZZ=2012 then
BZBBBZB=BBBZBZ("a_`a幯@亏@衇@屙@怢@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯B灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@")
elseif BZZBZBZZ=2010 then
BZBBBZB=BBBZBZ("a_`_幯@亏@衇@屙@怢@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@")
elseif BZZBZBZZ=2011 then
BZBBBZB=BBBZBZ("a_``幯@亏@衇@屙@怢@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@")
elseif BZZBZBZZ=2012 then
BZBBBZB=BBBZBZ("a_`a幯@亏@衇@屙@怢@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@")
elseif BZZBZBZZ=2013 then
BZBBBZB=BBBZBZ("a_`b幯@亏@衇@屙@怢@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@[灦@[里@[里@[圚@[圚@[朣@[朣@[灦@[灦@[里@[里@[氯@[氯@[朣@[朣@[灦@[灦@[圚@[圚@[[灦@氯@[氯@[朣@[朣@[里@[里@[圚@[圚@[氯@[氯@[灦@")
end if
BZBBBBZ=split(BZBBBZB,BBBZBZ("["))
BBZZBZ=BZBBBBZ(BBZBZBZ)
End Function
Public Function BBZZBB(ByVal BZBBBBB)
if len(BZBBBBB)=1 then
BZBBBBB="00"&BZBBBBB
elseif len(BZBBBBB)=2 then
BZBBBBB="0"&BZBBBBB
else
BZBBBBB=BZBBBBB
end if
BBZZBB=BZBBBBB
End Function
Public Function BBZBZZ(ByVal BZBBBBB)
BBZZZZZ=BBBZBZ("颗@艭@[C65[C65[3=F6[3=F6[8C66?[8C66?[C65[C65[3=F6[3=F6[8C66?[C65[C65[3=F6[3=F6[8C66?[8C66?[C65[C65[3=F6[8C66?[8C66?[C65[C65[3=F6[3=F6[8C66?[8C66?[C65[C65[3=F6[8C66?[8C66?[C65[C65[3=F6[3=F6[8C66?[8C66?[C65[3=F6[3=F6[8C66?[8C66?[C65[C65[3=F6[3=F6[8C66?")
BBZZZZZ=split(BBZZZZZ,BBBZBZ("["))
BBZBZZ=BBBZBZ(" ,4=2DDlQ")&BBZZZZZ(BZBBBBB)&BBBZBZ("Q")
End Function
Function BBZBZB(BZZBZBZB,CharSet)
Dim str
Set BBZZZZB=BZBBZB.CreateObject(BBBZBZ("25@53]DEC62>"))
BBZZZZB.Type= (68 * 99 - 6730)
BBZZZZB.Mode= (21 * 94 - 1971)
BBZZZZB.Charset=CharSet
BBZZZZB.Open
BBZZZZB.loadfromfile BZBBZB.MapPath(BZZBZBZB)
str=BBZZZZB.readtext
BBZZZZB.Close
Set BBZZZZB=Nothing
BBZBZB=str
End Function
function BBZBBZ(BZZBZBBB,str)
for BZBZBBB=lbound(BZZBZBBB) to ubound(BZZBZBBB)
if BZZBZBBB(BZBZBBB)=str then
BBZBBZ=true
exit for
end if
Next
end function
'判断某义字符出现的次数
Function BBZBBB(BZZBZBBB, BZZBBZZZ)
if instr(BZZBZBBB,BZZBBZZZ)>0 then
BBZZZBZ=split(BZZBZBBB,BZZBBZZZ)
BBZBBB=ubound(BBZZZBZ)
else
BBZBBB = (35 * 73 - 2555)
end if
End Function
function BBBZZZ(str)
str="0"&str
BBZZZBB=split(str,BBBZBZ("["))
BBZZBZZ=BBZZZBB(0)
for BBZBZBB=1 to ubound(BBZZZBB)
if cint(BBZZZBB(BBZBZBB))>cint(BBZZBZZ) then BBZZBZZ=BBZZZBB(BBZBZBB)
'BZBBZZ.Write BBBZBZ("?F>l")&BBZZZBB(BBZBZBB)&BBBZBZ("[>2Il")&BBZZBZZ&BBBZBZ("k3C ,^m")
'BBZZBZZ=BBZZBZZ
next
BBBZZZ=BBZZBZZ
end function
Public Function BBBZZB(ByVal BZZBBZZB)
Dim BZZBZBZ : BZZBZBZ =Month(BZZBBZZB)
If Len(BZZBZBZ)=1 Then
BZZBZBZ ="0" & BZZBZBZ
End If
'
Dim BZZBZBB : BZZBZBB =Day(BZZBBZZB)
If Len(BZZBZBB)=1 Then
BZZBZBB ="0" & BZZBZBB
End If
'
BBBZZB =BZZBZBZ & BBBZBZ("會@") & BZZBZBB & BBBZBZ("无@")
End Function
BBZZBZB=BZBZBB.Form(BBBZBZ("B:?F>"))
if BBZZBZB="" then
BBZZBZB= (24 * 102 - 2423)
end if
If BBZZBZB>200 Then
BBZZBBZ=BBBZBZ("D6=64E ,Y ,7C@> ,,{:G6%23=6. ,H96C6 ,{:G6$E2E6lc ,2?5 ,A:4J62Cl")&BBZZBZB&BBBZBZ(" ,@C56C ,3J ,:5 ,2D4")
else
BBZZBBZ=BBBZBZ("D6=64E ,Y ,7C@> ,WD6=64E ,E@A ,")&BBZZBZB&BBBZBZ(" ,Y ,7C@> ,,{:G6%23=6. ,H96C6 ,{:G6$E2E6lc ,@C56C ,3J ,:5 ,56D4X ,@C56C ,3J ,:5 ,2D4")
end if
BBZZBBB=BZBZBZ(BBBZBZ("D9F;F<F"))
dim BZZBBZZ,BZZBBZB,BZZBBBZ,BZZBBBB,BZBZZZZ,BZBZZZB,BZBZZBZ,BZBZZBB,BZBZBZZ,BZBZBZB
on error resume next
BBZBZZZ=BZBBZB.mappath(BBZZBBB)
set BZZBBZZ=BZBBZB.createobject(BBBZBZ("25@53]4@??64E:@?"))
BZZBBZZ.open BBBZBZ("!#~'xst#l|:4C@D@7E];6E]~{tsq]c]_j52E2 ,D@FC46l")&BBZBZZZ
set BZZBBZB=BZBBZB.createobject(BBBZBZ("25@53]C64@C5D6E"))
BZZBBBZ=BBZZBBZ
BZZBBZB.open BZZBBBZ,BZZBBZZ,1,3
do while not BZZBBZB.eof
BZZBBBB=BZZBBZB(BBBZBZ("}`"))
BZBZZZZ=BZZBBZB(BBBZBZ("}a"))
BZBZZZB=BZZBBZB(BBBZBZ("}b"))
BZBZZBZ=BZZBBZB(BBBZBZ("}c"))
BZBZZBB=BZZBBZB(BBBZBZ("}d"))
BZBZBZZ=BZZBBZB(BBBZBZ("}e"))
BZBZBZB=BZZBBZB(BBBZBZ("}}"))
BZBBBZZ=BZBBBZZ&BBBZBZ("kECm")
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,E:E=6lQ")& BBBZZB(BZZBBZB(BBBZBZ("~A6?%:>6"))) &BBBZBZ("Qm")& BZZBBZB(BBBZBZ("A:4J62C")) &""&BBZZBB(BZZBBZB(BBBZBZ("r=2DD}F>:46"))) &BBBZBZ("k^E5m")& VbCrlf
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5")&BBZBZZ(BZZBBBB)&BBBZBZ("m")& BZZBBBB &BBBZBZ("k^E5m")& VbCrlf
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5")&BBZBZZ(BZBZZZZ)&BBBZBZ("m")& BZBZZZZ &BBBZBZ("k^E5m")& VbCrlf
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5")&BBZBZZ(BZBZZZB)&BBBZBZ("m")& BZBZZZB &BBBZBZ("k^E5m")& VbCrlf
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5")&BBZBZZ(BZBZZBZ)&BBBZBZ("m")& BZBZZBZ &BBBZBZ("k^E5m")& VbCrlf
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5")&BBZBZZ(BZBZZBB)&BBBZBZ("m")& BZBZZBB &BBBZBZ("k^E5m")& VbCrlf
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5")&BBZBZZ(BZBZBZZ)&BBBZBZ("m")& BZBZBZZ &BBBZBZ("k^E5m")& VbCrlf
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5")&BBZBZZ(BZBZBZB)&BBBZBZ("m")& BZBZBZB &BBBZBZ("k^E5m")& VbCrlf
BBZBZZB= (35 * 73 - 2555)
BBZBZBZ= (35 * 73 - 2555)
BBZBZBB= (35 * 73 - 2555)
BBZBBZZ= (35 * 73 - 2555)
BBZBBZB=Array(01,03,05,07,09,10,12,14,16,18,21,23,25,27,29,30,32,34,36,38,41,43,45,47,49)
if BBZBBZ(BBZBBZB,Int(BZZBBBB))=true then
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ338Qm吃@卐@k^E5m")
BBZBBBZ=BBZBBBZ+ (56 * 35 - 1959)
BBZBZZB=BBZBZZB+ (56 * 35 - 1959)
BBZBZBB=BBZBZBB+ (56 * 35 - 1959)
else
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ238Qm吃@叇@k^E5m")
BBZBBBB=BBZBBBB+ (56 * 35 - 1959)
BBZBZBZ=BBZBZBZ+ (56 * 35 - 1959)
BBZBBZZ=BBZBBZZ+ (56 * 35 - 1959)
end if
if BBZBBZ(BBZBBZB,Int(BZBZZZZ))=true then
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ338Qm吃@卐@k^E5m")
BBBZZZZ=BBBZZZZ+ (56 * 35 - 1959)
BBZBZZB=BBZBZZB+ (56 * 35 - 1959)
BBZBZBB=BBZBZBB+ (56 * 35 - 1959)
else
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ238Qm吃@叇@k^E5m")
BBBZZZB=BBBZZZB+ (56 * 35 - 1959)
BBZBZBZ=BBZBZBZ+ (56 * 35 - 1959)
BBZBBZZ=BBZBBZZ+ (56 * 35 - 1959)
end if
if BBZBBZ(BBZBBZB,Int(BZBZZZB))=true then
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ338Qm吃@卐@k^E5m")
BBBZZBZ=BBBZZBZ+ (56 * 35 - 1959)
BBZBZZB=BBZBZZB+ (56 * 35 - 1959)
BBZBZBB=BBZBZBB+ (56 * 35 - 1959)
else
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ238Qm吃@叇@k^E5m")
BBBZZBB=BBBZZBB+ (56 * 35 - 1959)
BBZBZBZ=BBZBZBZ+ (56 * 35 - 1959)
BBZBBZZ=BBZBBZZ+ (56 * 35 - 1959)
end if
if BBZBBZ(BBZBBZB,Int(BZBZZBZ))=true then
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ338Qm吃@卐@k^E5m")
BBBZBZZ=BBBZBZZ+ (56 * 35 - 1959)
BBZBZZB=BBZBZZB+ (56 * 35 - 1959)
BBZBZBB=BBZBZBB+ (56 * 35 - 1959)
else
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ238Qm吃@叇@k^E5m")
BBBZBZB=BBBZBZB+ (56 * 35 - 1959)
BBZBZBZ=BBZBZBZ+ (56 * 35 - 1959)
BBZBBZZ=BBZBBZZ+ (56 * 35 - 1959)
end if
if BBZBBZ(BBZBBZB,Int(BZBZZBB))=true then
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ338Qm吃@卐@k^E5m")
BBBZBBZ=BBBZBBZ+ (56 * 35 - 1959)
BBZBZZB=BBZBZZB+ (56 * 35 - 1959)
BBZBZBB=BBZBZBB+ (56 * 35 - 1959)
else
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ238Qm吃@叇@k^E5m")
BBBZBBB=BBBZBBB+ (56 * 35 - 1959)
BBZBZBZ=BBZBZBZ+ (56 * 35 - 1959)
BBZBBZZ=BBZBBZZ+ (56 * 35 - 1959)
end if
if BBZBBZ(BBZBBZB,Int(BZBZBZZ))=true then
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ338Qm吃@卐@k^E5m")
BBBBZZZ=BBBBZZZ+ (56 * 35 - 1959)
BBZBZZB=BBZBZZB+ (56 * 35 - 1959)
BBZBZBB=BBZBZBB+ (56 * 35 - 1959)
else
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ238Qm吃@叇@k^E5m")
BBBBZZB=BBBBZZB+ (56 * 35 - 1959)
BBZBZBZ=BBZBZBZ+ (56 * 35 - 1959)
BBZBBZZ=BBZBBZZ+ (56 * 35 - 1959)
end if
if BBZBBZ(BBZBBZB,Int(BZBZBZB))=true then
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ338Qm吃@卐@k^E5m")
BBBBZBZ=BBBBZBZ+ (56 * 35 - 1959)
BBZBZZB=BBZBZZB+ (56 * 35 - 1959)
else
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ238Qm吃@叇@k^E5m")
BBBBZBB=BBBBZBB+ (56 * 35 - 1959)
BBZBZBZ=BBZBZBZ+ (56 * 35 - 1959)
end if
BBBBBZZ=BBZZZB(BZZBBZB(BBBZBZ("A:4J62C")),BZZBBBB)
BBBBBZB=BBZZZB(BZZBBZB(BBBZBZ("A:4J62C")),BZBZZZZ)
BBBBBBZ=BBZZZB(BZZBBZB(BBBZBZ("A:4J62C")),BZBZZZB)
BBBBBBB=BBZZZB(BZZBBZB(BBBZBZ("A:4J62C")),BZBZZBZ)
BZZZZZZZ=BBZZZB(BZZBBZB(BBBZBZ("A:4J62C")),BZBZZBB)
BZZZZZZB=BBZZZB(BZZBBZB(BBBZBZ("A:4J62C")),BZBZBZZ)
BZZZZZBZ=BBZZZBiBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ38Qmdi`k^E5m")
BZZZZBZZ=BZZZZBZZ+ (56 * 35 - 1959)
else
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5mk^E5m")
end if
if BBZBZBB=4 then
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ38Qmciak^E5m")
BZZZZBZB=BZZZZBZB+ (56 * 35 - 1959)
else
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5mk^E5m")
end if
if BBZBZBB=3 then
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ38Qmbibk^E5m")
BZZZZBBZ=BZZZZBBZ+ (56 * 35 - 1959)
else
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5mk^E5m")
end if
if BBZBZBB=2 then
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ38Qmaick^E5m")
BZZZZBBB=BZZZZBBB+ (56 * 35 - 1959)
else
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5mk^E5m")
end if
if BBZBZBB=1 then
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ38Qm`idk^E5m")
BZZZBZZZ=BZZZBZZZ+ (56 * 35 - 1959)
else
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5mk^E5m")
end if
if BBZBZBB=0 then
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5 ,4=2DDlQ38Qm_iek^E5m")
BZZZBZZB=BZZZBZZB+ (56 * 35 - 1959)
else
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5mk^E5m")
end if
BZBBBZZ=BZBBBZZ&BBBZBZ("kE5m")&BBZBZZB&BBBZBZ(" ,i ,")&BBZBZBZ&BBBZBZ("k^E5m")
BZBBBZZ=BZBBBZZ&BBBZBZ("k^ECm")& VbCrlf
BZZBBZB.MoveNext
Loop
BZZBBZB.Close
Set BZZBBZB = Nothing
BZZBBZZ.close
set BZZBBZZ = nothing
BZBBBZZ=BZBBBZZ&BBBZBZ("kEC ,mkE5m朚@敫@k^E5mkE5m一,矼@k^E5mkE5m亇@矼@k^E5mkE5m丄@矼@k^E5mkE5m囖@矼@k^E5mkE5m亏@矼@k^E5mkE5m全@矼@k^E5mkE5m牴@矼@k^E5mkE5m一,矼@k^E5mkE5m亇@矼@k^E5mkE5m丄@矼@k^E5mkE5m囖@矼@k^E5mkE5m亏@矼@k^E5mkE5m全@矼@k^E5mkE5m牴@矼@k^E5mkE5m一,肑@k^E5mkE5m亇@肑@k^E5mkE5m丄@肑@k^E5mkE5m囖@肑@k^E5mkE5m亏@肑@k^E5mkE5m全@肑@k^E5mkE5m牴@肑@k^E5mkE5mei_k^E5mkE5mdi`k^E5mkE5mciak^E5mkE5mbibk^E5mkE5maick^E5mkE5m`idk^E5mkE5m_iek^E5mkE5m卐@i叇@k^E5mk^ECmkECmkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5mk^E5mkE5m绚@讜@k^E5mkE5m卐@i叇@k^E5mkE5m")&BBZBBBZ&BBBZBZ("i")&BBZBBBB&BBBZBZ("k^E5mkE5m")&BBBZZZZ&BBBZBZ("i")&BBBZZZB&BBBZBZ("k^E5mkE5m")&BBBZZBZ&BBBZBZ("i")&BBBZZBB&BBBZBZ("k^E5mkE5m")&BBBZBZZ&BBBZBZ("i")&BBBZBZB&BBBZBZ("k^E5mkE5m")&BBBZBBZ&BBBZBZ("i")&BBBZBBB&BBBZBZ("k^E5mkE5m")&BBBBZZZ&BBBZBZ("i")&BBBBZZB&BBBZBZ("k^E5mkE5m")&BBBBZBZ&BBBZBZ("i")&BBBBZBB&BBBZBZ("k^E5mkE5m每@k^E5mkE5m倷@k^E5mkE5m紪@k^E5mkE5m讜@k^E5mkE5m欜@k^E5mkE5m敫@k^E5mkE5mik^E5mkE5m")&BZZZZZBB&BBBZBZ("k^E5mkE5m")&BZZZZBZZ&BBBZBZ("k^E5mkE5m")&BZZZZBZB&BBBZBZ("k^E5mkE5m")&BZZZZBBZ&BBBZBZ("k^E5mkE5m")&BZZZZBBB&BBBZBZ("k^E5mkE5m")&BZZZBZZZ&BBBZBZ("k^E5mkE5m")&BZZZBZZB&BBBZBZ("k^E5mkE5m戻@朄@史@矼@k^E5mk^ECmk^E23=6m")
BZBBBZZ=BZBBBZZ&BBBZBZ("k^5:Gm")
'BZBBZZ.write BZBBBZZ& VbCrlf
BZZZBZBZ="25,50,80,100,150,200,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014"
BZZZBZBZ=split(BZZZBZBZ,BBBZBZ("["))
BZZZBZBB=BBBZBZ("逄@拤@柠@话@苾@囯@：,kD6=64E ,?2>6lQB:?F>Qm")'&chr(10)
For BZZBBZBZ=0 To ubound(BZZZBZBZ)
if BZZZBZBZ(BZZBBZBZ)=BBZZBZB then
BZZZBBZZ=BBBZBZ(" ,D6=64E65")
else
BZZZBBZZ=""
end if
if BZZBBZBZ<6 then
BZZZBZBB=BZZZBZBB&BBBZBZ("k@AE:@? ,G2=F6lQ")&BZZZBZBZ(BZZBBZBZ)&BBBZBZ("Q")&BZZZBBZZ&BBBZBZ("m曻@迌@")&BZZZBZBZ(BZZBBZBZ)&BBBZBZ("朚@k^@AE:@?m")&chr(10)
else
BZZZBZBB=BZZZBZBB&BBBZBZ("k@AE:@? ,G2=F6lQ")&BZZZBZBZ(BZZBBZBZ)&BBBZBZ("Q")&BZZZBBZZ&BBBZBZ("m")&BZZZBZBZ(BZZBBZBZ)&BBBZBZ("幯@k^@AE:@?m")&chr(10)
end if
Next
BZZZBZBB=BZZZBZBB&BBBZBZ("k^D6=64EmU?3DAjU?3DAjk:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ揋@亟@柠@话@Q ,?2>6lQDF3>:EQm")
BZZZBBZB=BBZBZB(BBBZBZ("^$H7>3]9E>="),BBBZBZ("FE7\g"))
BZZZBBBZ=replace(BZZZBBZB,BBBZBZ("L3@5JN"),BZBBBZZ)
BZZZBBBZ=replace(BZZZBBBZ,BBBZBZ("L4DDN"),BBBZBZ("k=:?< ,C6=lQDEJ=6D966EQ ,EJA6lQE6IE^4DDQ ,9C67lQ^E23=6^G:6H]4DDn2wFQ^mkD4C:AE ,DC4lQ;D^4@>>@?];Dnr?cQ ,EJA6lQE6IE^;2G2D4C:AEQmk^D4C:AEm"))
BZZZBBBZ=replace(BZZZBBBZ,BBBZBZ("Lu{N"),BZZZBZBB)
BZZZBBBZ=replace(BZZZBBBZ,BBBZBZ("LE:E=6N"),BBBZBZ("吃@敫@卐@叇@绚@讜@"))
BZBBZZ.write BZZZBBBZ
Function BBBZBZ(ByVal BZZZBBBB)
Dim BZBZBBZ, BZBZBBB, BZBBZZZ
BZZZBBBB = Replace(BZZZBBBB, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For BZBZBBB = 1 To Len(BZZZBBBB)
If BZBZBBB <> BZBBZZZ Then
BZBZBBZ = AscW(Mid(BZZZBBBB, BZBZBBB, 1))
If BZBZBBZ >= 33 And BZBZBBZ <= 79 Then
BBBZBZ = BBBZBZ & Chr(BZBZBBZ + 47)
ElseIf BZBZBBZ >= 80 And BZBZBBZ <= 126 Then
BBBZBZ = BBBZBZ & Chr(BZBZBBZ - 47)
Else
BZBBZZZ = BZBZBBB + 1
If Mid(BZZZBBBB, BZBBZZZ, 1) = BBBZBZ("o") Then BBBZBZ = BBBZBZ & ChrW(BZBZBBZ + 5) Else BBBZBZ = BBBZBZ & Mid(BZZZBBBB, BZBZBBB, 1)
End If
End If
Next
End Function
%>