<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJC, CJJJJCJ,CJJJJCC, CJJJCJJ, CJJJCJC:Set CJJJJJC = server.CreateObject(CJJCCJJJ("ps~sq]r@??64E:@?")):CJJJJJC.open Application(CJJCCJJJ("r@??64E:@?$EC:?8")):Set CJJJJCJ=CJJJJJC::Dim CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ:Dim CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ:Dim CJCJCJC,CJCJCCJ,CJCJCCC:Dim CJCCJJJ:CJCCJJJ=Trim(Request.Cookies(CJJCCJJJ("!$*|t|qt#"))):if CJCCJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJCCJ>0 then
CJJJCJC=CJJCCJJJ("D6=64E ,E@A ,` ,:DD49@@=25>:?[:D4@?DF=E2?E[,C:89E.[EJA6[4FDE@>8C@FA[32=2?46[?F>36C[>@3:=6[>6>36C0EJA60A2E9[>6>36C0EJA60E@A[A9@E@[7246[286[C62=?2>6[EJA6?2>6[8C256 ,u#~| ,G0>6>36C ,H:E9 ,W?@=@4<X ,(wt#t ,!2DDH@C5lV") & CJJJCCC & CJJCCJJJ("V ,2?5 ,:5l") & CJJJCCJ
set CJJJJCC=CJJJJJC.execute(CJJJCJC):If CJJJJCC.EOF Then
Call ClearMemberCookie
Else
CJJCJJJ=CJJJJCC(2) & "":CJJCJJC=CJJJJCC(3):CJJCJCJ=CJJJJCC(5):CJJCJCC=CJJJJCC(6):CJJCCJJ=CJJJJCC(9):CJJCCJC=CJJJJCC(15):CJJCCCC=CJJJJCC(0):CJCJCCJ=CJJJJCC(1):CJCJCJC=CJJJJCC(11) & "":CJCJJJJ=CJJJJCC(10) & "":CJJCCCJ=CJJJJCC(12):CJCJJJC=CJJJJCC(14):CJCJJCJ=CJJJJCC(13):CJCJJCC=CJJJJCC(7) & "":CJCJCJJ=CJJJJCC(4):CJCJCCC=CJJJJCC(8):if isnull(CJJCCJC) then CJJCCJC=0
if isnull(CJJCCJJ) or CJJCCJJ=0 then CJJCCJJ=CJJCJJC
if isnull(CJCJCJJ) then CJCJCJJ=0
if isnull(CJJCJCJ) then CJJCJCJ=0
if instr(CJJCCJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCCC)>0 then Call RedirectMessage(CJJCCJJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJCCJ,CJJJCCC)
End IF
end if:Sub CheckRight(CCJJCCJ):dim CJCCJJC,CJCCJCJ:if CJJJCCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCCJJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJJJCCJJ(CCJJCCJ) then
Call RedirectMessage(CJJCCJJJ("朾@陋@W") & CCJJCCJ & CJJCCJJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJJJCCJJ(CCJJCCJ):dim CJCCJJC,CJCCJCJ:CJCCJCJ=split(CCJJCCJ,CJJCCJJJ("[")):CJJJCCJJ=False:for CJCCJJC=0 to ubound(CJCCJCJ):If Mid(CJJCJJJ,CJCCJCJ(CJCCJJC),1)="1" then
CJJJCCJJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJJCCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCJCC:CJCCJCC=trim(request.QueryString(CJJCCJJJ("D49@@="))):if isnumeric(CJCCJCC) then
response.Redirect CJJCCJJJ("^>^G2?E^R^D49@@=^") & CJCCJCC & CJJCCJJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJCCJJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJCCJJJ("!$*|t|qt#"))="":CJJJCCJ=0:CJJCJCC=0:CJJJCCC=Empty:CJJCJCJ=0:CJJCCJC=0:CJJCCJJ=0:CJJCJJC=0:CJJCCCC=False:CJCJCCJ=False:CJCJCCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCJJ,CJCCCJC,CJCCJJC,CJCCCCJ,CJCCCCC:CJCCCJJ=split(CJCCJJJ,CJJCCJJJ("]")):if ubound(CJCCCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCCJJ(0)) or len(CJCCCJJ(1))<>32 or len(CJCCCJJ(2))<>32 then
Call ClearMemberCookie
else
CJCCCJC=CJCCCJJ(1):for CJCCJJC=1 to len(CJCCCJC):CJCCCCJ=mid(CJCCCJC,CJCCJJC,1):if isnumeric(CJCCCCJ) then CJCCCCC=CJCCCCC & CJCCCCJ
if len(CJCCCCC)=7 then exit for
next:CJCCCJC=CJCCCJJ(2):if CJCCCCC<>mid(CJCCCJC,6,7) then
Call ClearMemberCookie
else
CJCCCCJ=mid(CJCCCJC,18,10)/2:if CJCCCCJ<DateDiff(CJJCCJJJ("D"), CJJCCJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJCCJ=Clng(CJCCCJJ(0)):CJJJCCC=CJCCCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCCJJC,CJJCCJCJ):dim CJCCJJC,CJCCCCJ,CJCCCCC:for CJCCJJC=1 to len(CJJCCJCJ):CJCCCCJ=mid(CJJCCJCJ,CJCCJJC,1):if isnumeric(CJCCCCJ) then CJCCCCC=CJCCCCC & CJCCCCJ
if len(CJCCCCC)=7 then exit for
next:CJCCCCC=CJJCCJJC & CJJCCJJJ("]") & CJJCCJCJ & CJJCCJJJ("]") & Fix(10000*(Rnd+1)) & CJCCCCC & Fix(10000*(Rnd+1)) & DateDiff(CJJCCJJJ("D"), CJJCCJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCCJJJ("!$*|t|qt#"))=CJCCCCC:End Sub:::Function IIf(CJJCCJCC, CJJCCCJJ, CJJCCCJC):if isnull(CJJCCJCC) or isempty(CJJCCJCC) then
IIf = CJJCCCJC
elseif CJJCCJCC Then
IIf = CJJCCCJJ
Else
IIf = CJJCCCJC
end if:End Function:Const CJJJCJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJJCCCCJ,CJJCCCCC):dim CJCCCJJ:CJCCCJJ=CJJCCCCJ & "=" & CJJCCCCC & CJJCCJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCCJJJ("$6E\r@@<:6"),CJCCCJJ):End Sub::::::sub ShowMessage(CJCJJJJJ):response.Charset=CJJCCJJJ("FE7\g"):Response.Write CJJCCJJJ("k3Cmk5:G ,2=:8?lV46?E6CVmk5:G ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5j ,E6IE\2=:8?i46?E6Cj ,3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,324<8C@F?5\4@=@CiRtgtgtgj ,A255:?8icAI ,aAI ,aAIj ,H:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CJCJJJJJ & CJJCCJJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJJJCCCJ(CCJCJJC):if isnull(CCJCJJC) or trim(CCJCJJC)="" or not isnumeric(CCJCJJC) then
CJJJCCCJ=false
else
Dim CCJJJJJ:Set CCJJJJJ = New RegExp:CCJJJJJ.Pattern = CJJCCJJJ("/-5ZS"):CCJJJJJ.IgnoreCase = True:CJJJCCCJ = CCJJJJJ.test(CCJCJJC):set CCJJJJJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJJJCCCC=nothing:set CJJCJJJJ=nothing:set CJJCJJJC=nothing:set CJJCJJCJ=nothing:CCJJCJC.close : set CCJJCJC=nothing:CJJJCJJ.Close : Set CJJJCJJ=Nothing:CJJJJCC.Close : Set CJJJJCC=Nothing:CJJCJJCC.Close : Set CJJCJJCC = Nothing:CJJJJJC.Close : Set CJJJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCCJJJ("!$*0|6DD286"),server.URLEncode(CJCJJJJJ)):Response.Redirect CJJCCJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJJCJCJJ(ByVal CJJCJCJC,style):if not isdate(CJJCJCJC) then
CJJCJCJJ=CJJCJCJC:exit function
end if:dim CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ:CJJCJCJC=cdate(CJJCJCJC):CCJJJJC=Year(CJJCJCJC):CCJJJCJ=Month(CJJCJCJC):CCJJJCC=Day(CJJCJCJC):select case style:case 0:CJJCJCJJ=CCJJJJC & CJJCCJJJ("\") & right(0 & CCJJJCJ,2) & CJJCCJJJ("\") & right(0 & CCJJJCC,2):case 1:CJJCJCJJ=CCJJJJC & right(0 & CCJJJCJ,2) & right(0 & CCJJJCC,2):case 2:CJJCJCJJ=right(CCJJJJC,2) & CJJCCJJJ("\") & right(0 & CCJJJCJ,2) & CJJCCJJJ("\") & right(0 & CCJJJCC,2):case 3:CJJCJCJJ=CCJJJJC & CJJCCJJJ("\") & right(0 & CCJJJCJ,2):case 4:CJJCJCJJ=right(0 & CCJJJCJ,2) & CJJCCJJJ("\") & right(0 & CCJJJCC,2):case 5:CJJCJCJJ=right(0 & CCJJJCC,2):case 6:CJJCJCJJ=CCJJJJC & CJJCCJJJ("幯@") & right(0 & CCJJJCJ,2) & CJJCCJJJ("會@") & right(0 & CCJJJCC,2) & CJJCCJJJ("无@"):case else
CJJCJCJJ=CJJCJCJC:end select:End Function:Function CJJCJCCJ(CJCJJJJC):Dim CCJJCJC, CCJJCCJ, str(), CJCCJJC,CJCCCCJ,CCJCJJJ:CCJCJJJ=UCase(CJCJJJJC):If Not IsArray(Application(CJJCCJJJ("!$*0") & CCJCJJJ)) Then
CJJJCJC=CJJCCJJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & CJCJJJJC & CJJCCJJJ(". ,@C56C ,3J ,D@CE[:5"):set CCJJCJC=server.createobject(CJJCCJJJ("25@53]C64@C5D6E")):CCJJCJC.open CJJJCJC,CJJJJJC,1:CCJJCCJ = CCJJCJC.RecordCount:ReDim str(CCJJCCJ, 2):If CCJJCCJ > 0 Then
For CJCCJJC = 1 To CCJJCCJ:for CJCCCCJ=0 to 2:str(CJCCJJC, CJCCCCJ) = CCJJCJC(CJCCCCJ):next:CCJJCJC.MoveNext:Next
End If:CCJJCJC.Close: Set CCJJCJC = Nothing:Application(CJJCCJJJ("!$*0") & CCJCJJJ) = str
End If:CJJCJCCJ = Application(CJJCCJJJ("!$*0") & CCJCJJJ):End Function:::::::::Sub CheckQueryTime(CJCJJJCJ,CJCJJJCC):dim str,CCJCJJC:str=CJJCCJJJ("!$*0") & Ucase(CJCJJJCJ):if Session(str)<>"" then
CCJCJJC=DateDiff(CJJCCJJJ("D"),Session(str),Time):if CCJCJJC<CJCJJJCC and CCJCJJC>0 then
Call ConnClose:Call ShowMessage(CJJCCJJJ("柠@话@闯@随@忀@顶@夢@争@ ,") & CJCJJJCC & CJJCCJJJ(" ,种@，,迓@剤@ ,") & CJCJJJCC-CCJCJJC & CJJCCJJJ(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJCJJCJJ):dim CJCCJJC,CJCCCCJ,CCJCJCJ,CCJCJCC:on error resume next:CCJCJCJ=ubound(CJCJJCJJ):CCJCJCC=ubound(CJCJJCJJ,2):if err.number<>0 then
err.clear:for CJCCJJC=0 to CCJCJCJ:CJCJJCJJ(CJCCJJC)=0:next
else
for CJCCJJC=0 to CCJCJCJ:for CJCCCCJ=0 to CCJCJCC:CJCJJCJJ(CJCCJJC,CJCCCCJ)=0:next:next
end if:End Sub:::::dim CJCCJCC:CJJJCJC=Request.ServerVariables(CJJCCJJJ("!p%w0x}u~")):if instr(CJJJCJC,CJJCCJJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCCCC and not CJCJCCJ then Call RedirectMessage(CJJCCJJJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJCCJCC=CJJCCJJ
elseif instr(CJJJCJC,CJJCCJJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJJJCJC,CJJCCJJJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCCJCC=CJJCCJJ
elseif instr(CJJJCJC,CJJCCJJJ("^D49@@="))>0 then
CJCCJCC=Request.QueryString(CJJCCJJJ("D49@@=")):if not CJJJCCCJ(CJCCJCC) then CJCCJCC=Request.QueryString(CJJCCJJJ("F"))
if not CJJJCCCJ(CJCCJCC) then CJCCJCC=Request.QueryString(CJJCCJJJ("D4"))
if not CJJJCCCJ(CJCCJCC) then Call RedirectMessage(CJJCCJJJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJCCJCC=csng(CJCCJCC)
end if:if CJCCJCC=0 then Call RedirectMessage(CJJCCJJJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CCJCCJJ:Call SetConfig:Sub SetConfig():dim CJCCJCJ,CCJJCJC:CJJJCJC=CJJCCJJJ("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[D>D0C646:G6C[766[C6E6DE52J[6IA:C652E6[E:E=6[K:IF?04=@D6052E6[JFJF60D>D0EA=[A:4EFC6[D>D[75D[D6>6DE6C0DE2CE052E6[K:IF?0E:>6D09:89=:89E[D2?5E23=6[4C:D:D[JJ52E6[6IA6CE[72>:=J[4C:D:D=3[4C:D:D@=5[vC@FAvF:52?46[q:@u665324<[<6JDEC[=@8@[K:46[:D?6H[JFJF60E6DE0=3[K:IF?0E:>6D0=:>:E[D>D0D:8?[DEF56?E0BF6DE:@?04@F?E[K:IF?E:>6[:?EC@[4@AJC:89E[4@?E24E[9@>6A286E@AA:4EFC6[>@5:?7@[9@>6=@8:?[K:IF?0?6657665324<[4@>A=6E60:?7@[E6DE:?EC@[8F6DE3@@<[9:560=30@FE@7286[JFJF602CC2?86[JFJF60367@C60E:>6[JFJF60E6DE052JD[JFJF60H66<0=:>:E[JFJF604964<65[K:IF?0?6657665324<0?6IE[4964<?6HDEF56?E[BB ,7C@> ,D49@@= ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CJCCJCC:set CCJJCJC=CJJJJJC.execute(CJJJCJC):if CCJJCJC.eof then Call RedirectMessage(CJJCCJJJ("患@W") & CJJJCCJ & CJJCCJJJ("X戻@圣@癿@卐@佈@W") & CJCCJCC & CJJCCJJJ("X朥@批@别@。,"))
ReDim CJCCJCJ(61):CJCCJCJ(0)=CCJJCJC(CJJCCJJJ(";:2@H6:")) & "":CJCCJCJ(1)=CCJJCJC(CJJCCJJJ("EJA6")):CJCCJCJ(2)=CCJJCJC(CJJCCJJJ("D>D")):CJCCJCJ(3)=CCJJCJC(CJJCCJJJ("4FDE@>8C@FA")) & "":CJCCJCJ(4)=CCJJCJC(CJJCCJJJ("D:5632C0@E96C")) & "":CJCCJCJ(5)=IIf(isnull(CCJJCJC(CJJCCJJJ("E6DEC6DF=EG:6H"))),0,CCJJCJC(CJJCCJJJ("E6DEC6DF=EG:6H"))):CJCCJCJ(6)=CCJJCJC(CJJCCJJJ("K:IF?E:>6")):CJCCJCJ(7)=CCJJCJC(CJJCCJJJ("766")):CJCCJCJ(8)=CCJJCJC(CJJCCJJJ("C6E6DE52J")):CJCCJCJ(9)=CCJJCJC(CJJCCJJJ("6IA:C652E6")):CJCCJCJ(10)=CCJJCJC(CJJCCJJJ("E:E=6")):CJCCJCJ(11)=CCJJCJC(CJJCCJJJ(":?EC@")) & "":CJCCJCJ(12)=CCJJCJC(CJJCCJJJ("A:4EFC6")) & "":CJCCJCJ(13)=CCJJCJC(CJJCCJJJ("72>:=J")):CJCCJCJ(14)=CCJJCJC(CJJCCJJJ("4@AJC:89E")) & "":CJCCJCJ(15)=IIf(isnull(CCJJCJC(CJJCCJJJ("D6>6DE6C0DE2CE052E6"))),CJJCCJJJ("`h__\`\`"),CCJJCJC(CJJCCJJJ("D6>6DE6C0DE2CE052E6"))):CJCCJCJ(16)=IIf(isnull(CCJJCJC(CJJCCJJJ("K:IF?0E:>6D09:89=:89E"))),0,CCJJCJC(CJJCCJJJ("K:IF?0E:>6D09:89=:89E"))):CJCCJCJ(17)=CCJJCJC(CJJCCJJJ("4@?E24E")) & "":CJCCJCJ(18)=CCJJCJC(CJJCCJJJ("D2?5E23=6")):CJCCJCJ(19)=CCJJCJC(CJJCCJJJ("4C:D:D")):CJCCJCJ(20)=CCJJCJC(CJJCCJJJ("JJ52E6")):CJCCJCJ(21)=CCJJCJC(CJJCCJJJ("BB")):CJCCJCJ(22)=CCJJCJC(CJJCCJJJ("JFJF60D>D0EA=")) & "":CJCCJCJ(23)=CCJJCJC(CJJCCJJJ("JFJF60E6DE0=3")) & "":CJCCJCJ(25)=CCJJCJC(CJJCCJJJ("6IA6CE")):CJCCJCJ(26)=CCJJCJC(CJJCCJJJ(">@5:?7@")):CJCCJCJ(27)=CCJJCJC(CJJCCJJJ("9@>6A286E@AA:4EFC6")) & "":CJCCJCJ(28)=CCJJCJC(CJJCCJJJ("4C:D:D=3")):CJCCJCJ(29)=IIf(CCJJCJC(CJJCCJJJ("4C:D:D@=5")),False,True):CJCCJCJ(30)=CCJJCJC(CJJCCJJJ("8C@FA8F:52?46")):CJCCJCJ(31)=CCJJCJC(CJJCCJJJ("3:@7665324<")):CJCCJCJ(32)=CCJJCJC(CJJCCJJJ("<6JDEC")):CJCCJCJ(33)=CCJJCJC(CJJCCJJJ("=@8@")) & "":CJCCJCJ(34)=CCJJCJC(CJJCCJJJ("K:46")):CJCCJCJ(35)=IIf(CCJJCJC(CJJCCJJJ(":D?6H")),True,False):CJCCJCJ(36)=121:CJCCJCJ(37)=111:CJCCJCJ(38)=160:CJCCJCJ(39)=CCJJCJC(CJJCCJJJ("8F6DE3@@<")):CJCCJCJ(40)=CCJJCJC(CJJCCJJJ("75D")):CJCCJCJ(42)=CCJJCJC(CJJCCJJJ("9@>6=@8:?")):CJCCJCJ(43)=CCJJCJC(CJJCCJJJ("K:IF?0?6657665324<")):CJCCJCJ(44)=CCJJCJC(CJJCCJJJ("K:IF?0E:>6D0=:>:E")):CJCCJCJ(45)=CCJJCJC(CJJCCJJJ("4@>A=6E60:?7@")):CJCCJCJ(46)=CCJJCJC(CJJCCJJJ("E6DE:?EC@")) & "":CJCCJCJ(47)=IIf(isnull(CCJJCJC(CJJCCJJJ("JFJF60367@C60E:>6"))),0,CCJJCJC(CJJCCJJJ("JFJF60367@C60E:>6"))):CJCCJCJ(49)=CCJJCJC(CJJCCJJJ("D>D0C646:G6C")):CJCCJCJ(50)=CCJJCJC(CJJCCJJJ("D>D0D:8?")) & "":CJCCJCJ(52)=CCJJCJC(CJJCCJJJ("JFJF602CC2?86")):CJCCJCJ(53)=IIf(isnull(CCJJCJC(CJJCCJJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCJJCJC(CJJCCJJJ("DEF56?E0BF6DE:@?04@F?E"))):CJCCJCJ(54)=CCJJCJC(CJJCCJJJ("9:560=30@FE@7286")):CJCCJCJ(55)=CCJJCJC(CJJCCJJJ("JFJF60E6DE052JD")):CJCCJCJ(56)=CCJJCJC(CJJCCJJJ("JFJF60H66<0=:>:E")):CJCCJCJ(57)=CCJJCJC(CJJCCJJJ("JFJF604964<65")):CJCCJCJ(58)=CCJJCJC(CJJCCJJJ("K:IF?0?6657665324<0?6IE")):CJCCJCJ(59)=CCJJCJC(CJJCCJJJ("4964<?6HDEF56?E")):CJCCJCJ(60)=CCJJCJC(CJJCCJJJ("K:IF?04=@D6052E6")):CCJJCJC.close : set CCJJCJC=nothing:if isNull(CJCCJCJ(8)) or CJCCJCJ(8)="" then CJCCJCJ(8)=0
if isdate(CJCCJCJ(9)) then
CJCCJCJ(9)=cdate(CJCCJCJ(9)):if CJCCJCJ(9)<Date then Call RedirectMessage(CJJCCJJJ("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CJCCJCJ(9) & CJJCCJJJ("X巭@迂@。,"))
end if:if not CJJJCCCJ(CJCCJCJ(20)) then CJCCJCJ(20)=7
select case CJCCJCJ(1):case 1,2,16:CJCCJCJ(36)=159:case 4,5,6,10,11:CJCCJCJ(36)=190:CJCCJCJ(37)=178:CJCCJCJ(38)=191:case 7,13:CJCCJCJ(36)=164:CJCCJCJ(37)=178:CJCCJCJ(38)=179:end select:CCJCCJJ=CJCCJCJ:End Sub:Function CJJCJJCJ(CJCJJJCJ):dim CJCCJCJ(7,1),CJCCJJC,CCJCCJC,CCJCCCJ:CCJCCJC=Array(CJJCCJJJ("$49@@="),CJJCCJJJ("$EF56?E"),CJJCCJJJ("s6AE"),CJJCCJJJ("vC256"),CJJCCJJJ("r=2DD>2E6"),CJJCCJJJ("}F>36C"),CJJCCJJJ("%62496C"),CJJCCJJJ("!2C6?E")):select case CCJCCJJ(1):case 1,2 : CCJCCCJ=Array(CJJCCJJJ("孡@栜@"),CJJCCJJJ("孡@甚@"),CJJCCJJJ("珨@红@"),CJJCCJJJ("幯@红@"),CJJCCJJJ("吇@孡@"),CJJCCJJJ("孡@史@"),CJJCCJJJ("敔@布@"),CJJCCJJJ("宱@镺@")):case 3,16 : CCJCCCJ=Array(CJJCCJJJ("孡@栜@"),CJJCCJJJ("孡@甚@"),CJJCCJJJ("陝@糶@"),CJJCCJJJ("幯@红@"),CJJCCJJJ("吇@孡@"),CJJCCJJJ("孡@史@"),CJJCCJJJ("敔@布@"),CJJCCJJJ("宱@镺@")):case 4 : CCJCCCJ=Array(CJJCCJJJ("匶@陝@"),CJJCCJJJ("杠@论@耀@"),CJJCCJJJ("卐@佈@"),CJJCCJJJ("幯@仸@"),CJJCCJJJ("吇@了@"),CJJCCJJJ("缑@史@"),CJJCCJJJ("匶@甚@"),CJJCCJJJ("宱@屙@")):case 5 : CCJCCCJ=Array(CJJCCJJJ("卐@佈@"),CJJCCJJJ("呓@巠@"),CJJCCJJJ("郣@闣@"),CJJCCJJJ("幯@仸@"),CJJCCJJJ("吇@了@"),CJJCCJJJ("缑@史@"),CJJCCJJJ("呓@巠@"),CJJCCJJJ("宱@屙@")):case 6 : CCJCCCJ=Array(CJJCCJJJ("卐@佈@"),CJJCCJJJ("杠@论@耀@"),CJJCCJJJ("线@刦@"),CJJCCJJJ("幯@仸@"),CJJCCJJJ("吇@了@"),CJJCCJJJ("缑@史@"),CJJCCJJJ("咣@话@布@"),CJJCCJJJ("宱@屙@")):case 7 : CCJCCCJ=Array(CJJCCJJJ("卐@佈@"),CJJCCJJJ("宓@兰@"),CJJCCJJJ("郣@闣@"),CJJCCJJJ("幯@仸@"),CJJCCJJJ("戓@叆@"),CJJCCJJJ("缑@史@"),CJJCCJJJ("咣@话@布@"),CJJCCJJJ("宱@屙@")):case 8 : CCJCCCJ=Array(CJJCCJJJ("卐@佈@"),CJJCCJJJ("杠@论@耀@"),CJJCCJJJ("卐@佈@"),CJJCCJJJ("兠@聇@幯@仸@"),CJJCCJJJ("吇@了@"),CJJCCJJJ("缑@史@"),CJJCCJJJ("咣@话@布@"),CJJCCJJJ("酈@偱@")):case 9 : CCJCCCJ=Array(CJJCCJJJ("卐@佈@"),CJJCCJJJ("敔@布@"),CJJCCJJJ("卐@佈@"),CJJCCJJJ("幯@仸@"),CJJCCJJJ("吇@了@"),CJJCCJJJ("缑@史@"),CJJCCJJJ("咣@话@布@"),CJJCCJJJ("酈@偱@")):case 10 : CCJCCCJ=Array(CJJCCJJJ("卐@佈@"),CJJCCJJJ("氌@譡@"),CJJCCJJJ("郣@闣@"),CJJCCJJJ("兠@譡@幯@仸@"),CJJCCJJJ("吇@了@"),CJJCCJJJ("缑@史@"),CJJCCJJJ("咣@话@布@"),CJJCCJJJ("宱@屙@")):case 11 : CCJCCCJ=Array(CJJCCJJJ("卐@佈@"),CJJCCJJJ("內@劜@呓@"),CJJCCJJJ("郣@闣@"),CJJCCJJJ("幯@仸@"),CJJCCJJJ("吇@了@"),CJJCCJJJ("缑@史@"),CJJCCJJJ("咣@话@布@"),CJJCCJJJ("宱@屙@")):case 12 : CCJCCCJ=Array(CJJCCJJJ("卐@佈@"),CJJCCJJJ("幭@譡@"),CJJCCJJJ("卐@佈@"),CJJCCJJJ("兠@譡@幯@仸@"),CJJCCJJJ("吇@了@"),CJJCCJJJ("缑@史@"),CJJCCJJJ("咣@话@布@"),CJJCCJJJ("宱@屙@")):case 13 : CCJCCCJ=Array(CJJCCJJJ("卐@佈@"),CJJCCJJJ("孡@呓@"),CJJCCJJJ("卐@佈@"),CJJCCJJJ("幯@仸@"),CJJCCJJJ("戓@叆@"),CJJCCJJJ("缑@史@"),CJJCCJJJ("敔@呓@"),CJJCCJJJ("宱@屙@")):case 14 : CCJCCCJ=Array(CJJCCJJJ("月@劜@炴@"),CJJCCJJJ("局@氌@"),CJJCCJJJ("线@刦@"),CJJCCJJJ("幯@仸@"),CJJCCJJJ("邶@采@"),CJJCCJJJ("缑@史@"),CJJCCJJJ("咣@话@布@"),CJJCCJJJ("宱@屙@")):case 15 : CCJCCCJ=Array(CJJCCJJJ("卐@佈@"),CJJCCJJJ("盌@独@氌@譡@"),CJJCCJJJ("卐@佈@"),CJJCCJJJ("兠@譡@幯@仸@"),CJJCCJJJ("吇@了@"),CJJCCJJJ("缑@史@"),CJJCCJJJ("咣@话@布@"),CJJCCJJJ("宱@屙@")):case else : CCJCCCJ=CCJCCJC
end select:for CJCCJJC=0 to Ubound(CJCCJCJ):CJCCJCJ(CJCCJJC,0)=CCJCCJC(CJCCJJC):CJCCJCJ(CJCCJJC,1)=CCJCCCJ(CJCCJJC):next:for CJCCJJC=0 to Ubound(CJCCJCJ):if CJCCJCJ(CJCCJJC,0)=CJCJJJCJ then
CJJCJJCJ=CJCCJCJ(CJCCJJC,1):exit for
end if:next:End Function::Call CheckRight(18):dim CCJCCCC,CCCJJJJ,CCCJJJC,CCCJJCJ,CCCJJCC,CJCCJJC,CJCCJCJ,CCCJCJJ,CCCJCJC,CCCJCCJ:CCCJJCC=Date:CCCJCJC=false:CCCJCCJ=false:CCJCCCC=request.QueryString(CJJCCJJJ("5`")):CCCJJJJ=request.QueryString(CJJCCJJJ("5a")):CCCJJJC=request.QueryString(CJJCCJJJ("8C256")):CCCJJCJ=request.QueryString(CJJCCJJJ("8C@FA")):if CCJCCCC="" then CCJCCCC=CJJCJCJJ(year(CCCJJCC) & CJJCCJJJ("\") & month(CCCJJCC) & "-1",0)
if CCCJJJJ="" then CCCJJJJ=CJJCJCJJ(CCCJJCC,0)
dim CCCJCCC:CJCCJCJ=CJJCJCCJ(CJJCCJJJ(">6>36C08C256")):for CJCCJJC=1 to ubound(CJCCJCJ):if CJCCJCJ(CJCCJJC,2)=CJCCJCC then CCCJCCC=CCCJCCC & CJJCCJJJ("M") & CJCCJCJ(CJCCJJC,0) & CJJCCJJJ("M") & CJCCJCJ(CJCCJJC,1)
next:if CCCJCCC<>"" then CCCJCCC=split(mid(CCCJCCC,2),CJJCCJJJ("M"))
dim CCCCJJJ:CJCCJCJ=CJJCJCCJ(CJJCCJJJ(">6>36C04FDE@>8C@FA")):for CJCCJJC=1 to ubound(CJCCJCJ):if CJCCJCJ(CJCCJJC,2)=CJCCJCC then CCCCJJJ=CCCCJJJ & CJJCCJJJ("M") & CJCCJCJ(CJCCJJC,0) & CJJCCJJJ("M") & CJCCJCJ(CJCCJJC,1)
next:if CCCCJJJ<>"" then CCCCJJJ=split(mid(CCCCJJJ,2),CJJCCJJJ("M"))
Response.Write(vbCrLf):Response.Write(CJJCCJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCCJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCCJJJ("k9625m") & vbCrLf):Response.Write(CJJCCJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCCJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCCJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCCJJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJCCJJJ("kE:E=6m咣@话@惀@冰@绚@讜@求@怶@k^E:E=6m") & vbCrLf):Response.Write(CJJCCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJCCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CJJCCJJJ("kDEJ=6m") & vbCrLf):Response.Write(CJJCCJJJ("2CE:4=6L>2C8:?\E@AidAIjN") & vbCrLf):Response.Write(CJJCCJJJ("2CE:4=6 ,E5[2CE:4=6 ,E9 ,L7@?E\D:K6i`aAIjN") & vbCrLf):Response.Write(CJJCCJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJCCJJJ("k^9625m") & vbCrLf):Response.Write(CJJCCJJJ("kE3@5Jm") & vbCrLf):Response.Write(CJJCCJJJ("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CJJCCJJJ(" ,k=:mk2 ,9C67lQ>@?E9=J0KI]2DAQm怶@低@惀@冰@绚@讜@k^2mk^=:m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQK:IF?0DF>>2CJ]2DAQm咣@话@惀@冰@求@怶@k^2mk^=:m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k=:mk2 ,9C67lQK:IF?0D6C:@FD]2DAQm釈@炴@惀@冰@求@怶@k^2mk^=:m") & vbCrLf):Response.Write(CJJCCJJJ("k^F=m") & vbCrLf):Response.Write(CJJCCJJJ("k7@C> ,>6E9@5lQ86EQm") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJCCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5 ,4=2DDlQ=236=Q ,?@HC2Am无@朚@赲@k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,?2>6lQ5`Q ,G2=F6lQ")):Response.Write  CJJCJCJJ(CCJCCCC,0):Response.Write(CJJCCJJJ("Q ,2FE@4@>A=6E6lQ@77Q ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,")):if isarray(CCCJCCC) then
Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,kE5 ,4=2DDlQ=236=Q ,?@HC2Am昹@礵@")):Response.Write  CJJCJJCJ(CJJCCJJJ("vC256")):Response.Write(CJJCCJJJ("k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k=236=mk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ43\4964<2==\8C256Qm兣@逄@k^=236=m") & vbCrLf):Response.Write(CJJCCJJJ(" ,")):for CJCCJJC=0 to ubound(CCCJCCC)-1 step 2:CCCJCJJ=CCCJCCC(CJCCJJC) & CJJCCJJJ("M") & CCCJCCC(CJCCJJC+1):Response.Write CJJCCJJJ(" ,k=236=mk:?AFE ,EJA6lV4964<3@IV ,?2>6lV8C256V ,G2=F6lV") & CCCJCJJ & CJJCCJJJ("V")
if instr(CCCJJJC,CCCJCJJ)>0 then Response.Write CJJCCJJJ(" ,4964<65")
Response.Write CJJCCJJJ("m") & CCCJCCC(CJCCJJC+1) & CJJCCJJJ("k^=236=m"):next:Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5 ,4=2DDlQ=236=Qm无@朚@歝@k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,?2>6lQ5aQ ,G2=F6lQ")):Response.Write  CJJCJCJJ(CCCJJJJ,0):Response.Write(CJJCCJJJ("Q ,2FE@4@>A=6E6lQ@77Q ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,")):if isarray(CCCCJJJ) then
Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,kE5 ,4=2DDlQ=236=Qm昹@礵@")):Response.Write  CCJCCJJ(3):Response.Write(CJJCCJJJ("k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k=236=mk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ43\4964<2==\8C@FAQm兣@逄@k^=236=m") & vbCrLf):Response.Write(CJJCCJJJ(" ,")):for CJCCJJC=0 to ubound(CCCCJJJ)-1 step 2:CCCJCJJ=CCCCJJJ(CJCCJJC) & CJJCCJJJ("M") & CCCCJJJ(CJCCJJC+1):Response.Write CJJCCJJJ(" ,k=236=mk:?AFE ,EJA6lV4964<3@IV ,?2>6lV8C@FAV ,G2=F6lV") & CCCJCJJ & CJJCCJJJ("V")
if instr(CCCJJCJ,CCCJCJJ)>0 then Response.Write CJJCCJJJ(" ,4964<65")
Response.Write CJJCCJJJ("m") & CCCCJJJ(CJCCJJC+1) & CJJCCJJJ("k^=236=m"):next:Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k5:G ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CJJCCJJJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ柠@ ,眆@Qm") & vbCrLf):Response.Write(CJJCCJJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\6I46=Q ,G2=F6lQ孓@丵@tI46=Qm") & vbCrLf):Response.Write(CJJCCJJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJJCCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCCJJJ("k^7@C>m") & vbCrLf)::If request.QueryString(CJJCCJJJ("A@DE"))=1 Then
Call CheckQueryTime(CJJCCJJJ("+:IF?$F>>2CJ"),15):dim CJCCCCJ,CJCCCCC,CCCCJJC,CCJJJCJ,CCJCJJC:CCCJJJJ=cdate(CCCJJJJ)+1:if CCCJJJC<>"" then
CCCJCJC=true:CCCJJJC=replace(CCCJJJC,CJJCCJJJ(" ,"),""):CCCJJJC=replace(CCCJJJC,CJJCCJJJ("["),CJJCCJJJ("M")):CCCJJJC=split(CCCJJJC,CJJCCJJJ("M"))
end if:if CCCJJCJ<>"" then
CCCJCCJ=true:CCCJJCJ=replace(CCCJJCJ,CJJCCJJJ(" ,"),""):CCCJJCJ=replace(CCCJJCJ,CJJCCJJJ("["),CJJCCJJJ("M")):CCCJJCJ=split(CCCJJCJ,CJJCCJJJ("M"))
end if:dim CCCCJCJ(8):CCCCJCJ(0)=Array(CJJCCJJJ("孡@丕@闩@颓@"),0,CJJCCJJJ("孡@丕@戋@尬@囫@扫@"),CJJCCJJJ("与@丕@讟@吇@囫@扫@"),CJJCCJJJ("缎@考,访@伫@"),CJJCCJJJ("伌@孡@夈@孡@访@伫@")):CCCCJCJ(1)=Array(CJJCCJJJ("惀@愚@闩@颓@"),4,CJJCCJJJ("恆@爬@囫@扫@"),CJJCCJJJ("怢@囫@扫@"),CJJCCJJJ("怢@发@同@")):CCCCJCJ(2)=Array(CJJCCJJJ("亵@陀@闩@颓@"),7,CJJCCJJJ("吇@伯@亵@陀@"),CJJCCJJJ("宱@庨@亵@陀@"),CJJCCJJJ("三@辀@寷@呓@亵@陀@"),CJJCCJJJ("三@敔@布@亵@陀@")):CCCCJCJ(3)=Array(CJJCCJJJ("双@屐@闩@颓@"),11,CJJCCJJJ("尬@丕@囫@扫@"),CJJCCJJJ("了@丕@掝@紝@"),CJJCCJJJ("仲@倷@愚@三@愊@乄@愚@"),CJJCCJJJ("宇@羉@惀@绎@")):CCCCJCJ(4)=Array(CJJCCJJJ("惀@绥@闩@颓@"),15,CJJCCJJJ("無@虌@惀@绥@"),CJJCCJJJ("抌@邼@惀@绥@"),CJJCCJJJ("無@虌@抌@邼@惀@绥@")):CCCCJCJ(5)=Array(CJJCCJJJ("躦@徾@三@衇@丵@闩@颓@"),18,CJJCCJJJ("睜@眛@闩@颓@"),CJJCCJJJ("迖@飚@闩@颓@"),CJJCCJJJ("躦@徾@闩@颓@"),CJJCCJJJ("田@脌@侘@赑@"),CJJCCJJJ("張@迦@闩@颓@"),CJJCCJJJ("咼@衇@闩@颓@")):CCCCJCJ(6)=Array(CJJCCJJJ("共@仑@"),24,CJJCCJJJ("旛@敀@朥@别@"),CJJCCJJJ("揋@剈@发@涃@")):CCCCJCJ(7)=Array(CJJCCJJJ("卬@朵@幭@顿@"),26,CJJCCJJJ("b红@"),CJJCCJJJ("c红@"),CJJCCJJJ("d红@")):CCCCJCJ(8)=Array(CJJCCJJJ("伕@啁@"),29,CJJCCJJJ("三@辀@寷@呓@"),CJJCCJJJ("三@敔@布@"),CJJCCJJJ("三@宱@屙@"),CJJCCJJJ("三@吇@孡@"),CJJCCJJJ("三@咣@话@布@"),CJJCCJJJ("聏@帨@伕@让@")):dim CCJJCCJ():CJJJCJC=CJJCCJJJ("D6=64E ,8C256[4FDE@>8C@FA[D6I[AC@3=6>[AC@3=6>0DF3[D6C:@FD[>6>36C ,7C@> ,G0KI ,H96C6 ,DE2EFDmlc ,2?5 ,>6>36C0EJA60E@Al") & CJCCJCC & CJJCCJJJ(" ,2?5 ,KIE:>6mlV") & CCJCCCC & CJJCCJJJ("V ,2?5 ,KIE:>6kV") & CCCJJJJ & CJJCCJJJ("V")
Set CJJJJCC = Server.CreateObject(CJJCCJJJ("ps~sq]#64@C5D6E")):CJJJJCC.open CJJJCJC,CJJJJJC,1:if CJJJJCC.eof then Call RedirectMessage(CJJCCJJJ("寴@丈@赲@，,彎@剈@苾@囯@沜@朄@咣@话@讫@彐@。,"))
redim CCJJCCJ(CJJJJCC.RecordCount,6):Call ArrayInit(CCJJCCJ):for CJCCJJC=1 to CJJJJCC.recordcount:for CJCCCCJ=0 to 6:CCJJCCJ(CJCCJJC,CJCCCCJ)=CJJJJCC(CJCCCCJ):next:CJJJJCC.movenext:next:dim CCCCJCC():CJJJCJC=CJJCCJJJ("D6=64E ,>6>36C08C256[4FDE@>8C@FA[D6I[EJA6[>6>36C ,7C@> ,G04@?DF=E2E:@? ,H96C6 ,>6>36C0EJA60E@Al") & CJCCJCC & CJJCCJJJ(" ,2?5 ,52E6mlV") & CCJCCCC & CJJCCJJJ("V ,2?5 ,52E6kV") & CCCJJJJ & CJJCCJJJ("V")
Set CJJJJCC = Server.CreateObject(CJJCCJJJ("ps~sq]#64@C5D6E")):CJJJJCC.open CJJJCJC,CJJJJJC,1:redim CCCCJCC(CJJJJCC.RecordCount,4):Call ArrayInit(CCCCJCC):for CJCCJJC=1 to CJJJJCC.recordcount:for CJCCCCJ=0 to 4:CCCCJCC(CJCCJJC,CJCCCCJ)=CJJJJCC(CJCCCCJ):next:CJJJJCC.movenext:next:dim CCCCCJJ:dim CCCCCJC,CCCCCCJ,CCCCCCC(34,17),CJJJJJJJ(34,5),CJJJJJJC(34,1),CJJJJJCJ(34):dim CJJJJJCC(8,5),CJJJJCJJ(8,1),CJJJJCJC(8):dim CJJJJCCJ(8,5),CJJJJCCC(8,1):CCCCCJC=ubound(CCJJCCJ):CCCCCCJ=ubound(CCCCJCC):Call ArrayInit(CCCCCCC):Call ArrayInit(CJJJJJJJ):Call ArrayInit(CJJJJJJC):Call ArrayInit(CJJJJJCJ):Call ArrayInit(CJJJJJCC):Call ArrayInit(CJJJJCJJ):Call ArrayInit(CJJJJCJC):Call ArrayInit(CJJJJCCJ):Call ArrayInit(CJJJJCCC):for CJCCJJC=1 to CCCCCJC:for CJCCCCJ=0 to 6:CJCCJCJ=CCCCJCJ(CJCCCCJ):if CCJJCCJ(CJCCJJC,3)=CJCCJCJ(0) then
for CJCCCCC=2 to ubound(CJCCJCJ):if CCJJCCJ(CJCCJJC,4)=CJCCJCJ(CJCCCCC) then
CCJJJCJ=CJCCJCJ(1)+CJCCCCC-2:if CCCJCJC then
for CCCCJJC=0 to ubound(CCCJJJC) step 2:if CCJJCCJ(CJCCJJC,0) & ""=CCCJJJC(CCCCJJC) then
CCJCJJC=CCCCJJC/2:CCCCCCC(CCJJJCJ,CCJCJJC)=CCCCCCC(CCJJJCJ,CCJCJJC)+1:exit for
end if:next
end if:if CCCJCCJ then
for CCCCJJC=0 to ubound(CCCJJCJ) step 2:if CCJJCCJ(CJCCJJC,1) & ""=CCCJJCJ(CCCCJJC) then
CCJCJJC=CCCCJJC/2:CJJJJJJJ(CCJJJCJ,CCJCJJC)=CJJJJJJJ(CCJJJCJ,CCJCJJC)+1:exit for
end if:next
end if:CCJCJJC=IIf(CCJJCCJ(CJCCJJC,2),0,1):CJJJJJJC(CCJJJCJ,CCJCJJC)=CJJJJJJC(CCJJJCJ,CCJCJJC)+1:CJJJJJCJ(CCJJJCJ)=CJJJJJCJ(CCJJJCJ)+1:exit for
end if:next:if CCCJCCJ then
for CJCCCCC=0 to ubound(CCCJJCJ) step 2:if CCJJCCJ(CJCCJJC,1) & ""=CCCJJCJ(CJCCCCC) then
CCJCJJC=CJCCCCC/2:CJJJJJCC(CJCCCCJ,CCJCJJC)=CJJJJJCC(CJCCCCJ,CCJCJJC)+1:exit for
end if:next
end if:CCJCJJC=IIf(CCJJCCJ(CJCCJJC,2),0,1):CJJJJCJJ(CJCCCCJ,CCJCJJC)=CJJJJCJJ(CJCCCCJ,CCJCJJC)+1:CJJJJCJC(CJCCCCJ)=CJJJJCJC(CJCCCCJ)+1:exit for
end if:next:if CCJJCCJ(CJCCJJC,5)>=3 then
CCJJJCJ=23+CCJJCCJ(CJCCJJC,5):if CCCJCJC then
for CCCCJJC=0 to ubound(CCCJJJC) step 2:if CCJJCCJ(CJCCJJC,0) & ""=CCCJJJC(CCCCJJC) then
CCJCJJC=CCCCJJC/2:CCCCCCC(CCJJJCJ,CCJCJJC)=CCCCCCC(CCJJJCJ,CCJCJJC)+1:exit for
end if:next
end if:if CCCJCCJ then
for CCCCJJC=0 to ubound(CCCJJCJ) step 2:if CCJJCCJ(CJCCJJC,1) & ""=CCCJJCJ(CCCCJJC) then
CCJCJJC=CCCCJJC/2:CJJJJJJJ(CCJJJCJ,CCJCJJC)=CJJJJJJJ(CCJJJCJ,CCJCJJC)+1:exit for
end if:next
end if:CCJCJJC=IIf(CCJJCCJ(CJCCJJC,2),0,1):CJJJJJJC(CCJJJCJ,CCJCJJC)=CJJJJJJC(CCJJJCJ,CCJCJJC)+1:CJJJJJCJ(CCJJJCJ)=CJJJJJCJ(CCJJJCJ)+1:CJCCCCJ=7:if CCCJCCJ then
for CJCCCCC=0 to ubound(CCCJJCJ) step 2:if CCJJCCJ(CJCCJJC,1) & ""=CCCJJCJ(CJCCCCC) then
CCJCJJC=CJCCCCC/2:CJJJJJCC(CJCCCCJ,CCJCJJC)=CJJJJJCC(CJCCCCJ,CCJCJJC)+1:exit for
end if:next
end if:CCJCJJC=IIf(CCJJCCJ(CJCCJJC,2),0,1):CJJJJCJJ(CJCCCCJ,CCJCJJC)=CJJJJCJJ(CJCCCCJ,CCJCJJC)+1:CJJJJCJC(CJCCCCJ)=CJJJJCJC(CJCCCCJ)+1
end if:for CJCCCCJ=0 to 6:CJCCJCJ=CCCCJCJ(CJCCCCJ):if CCJJCCJ(CJCCJJC,3)=CJCCJCJ(0) then
CCCCCJJ=true:for CJCCCCC=1 to CJCCJJC-1:if CCJJCCJ(CJCCCCC,6)=CCJJCCJ(CJCCJJC,6) and CCJJCCJ(CJCCCCC,3)=CCJJCCJ(CJCCJJC,3) then
CCCCCJJ=false:exit for
end if:next:if CCCCCJJ then
if CCCJCCJ then
for CJCCCCC=0 to ubound(CCCJJCJ) step 2:if CCJJCCJ(CJCCJJC,1) & ""=CCCJJCJ(CJCCCCC) then
CCJCJJC=CJCCCCC/2:CJJJJCCJ(CJCCCCJ,CCJCJJC)=CJJJJCCJ(CJCCCCJ,CCJCJJC)+1:exit for
end if:next
end if:CCJCJJC=IIf(CCJJCCJ(CJCCJJC,2),0,1):CJJJJCCC(CJCCCCJ,CCJCJJC)=CJJJJCCC(CJCCCCJ,CCJCJJC)+1
end if
end if:next:if CCJJCCJ(CJCCJJC,5)>=3 then
CCCCCJJ=true:for CJCCCCJ=1 to CJCCJJC-1:if CCJJCCJ(CJCCCCJ,6)=CCJJCCJ(CJCCJJC,6) and CCJJCCJ(CJCCCCJ,5)>=3 then
CCCCCJJ=false:exit for
end if:next:if CCCCCJJ then
CJCCCCJ=7:if CCCJCCJ then
for CJCCCCC=0 to ubound(CCCJJCJ) step 2:if CCJJCCJ(CJCCJJC,1) & ""=CCCJJCJ(CJCCCCC) then
CCJCJJC=CJCCCCC/2:CJJJJCCJ(CJCCCCJ,CCJCJJC)=CJJJJCCJ(CJCCCCJ,CCJCJJC)+1:exit for
end if:next
end if:CCJCJJC=IIf(CCJJCCJ(CJCCJJC,2),0,1):CJJJJCCC(CJCCCCJ,CCJCJJC)=CJJJJCCC(CJCCCCJ,CCJCJJC)+1
end if
end if:next:for CJCCJJC=1 to CCCCCCJ:CJCCJCJ=CCCCJCJ(8):for CJCCCCJ=2 to ubound(CJCCJCJ):if Instr(CCCCJCC(CJCCJJC,3),CJCCJCJ(CJCCCCJ))>0 then
CCJJJCJ=27+CJCCCCJ:if CCCJCJC then
for CCCCJJC=0 to ubound(CCCJJJC) step 2:if CCCCJCC(CJCCJJC,0) & ""=CCCJJJC(CCCCJJC) then
CCJCJJC=CCCCJJC/2:CCCCCCC(CCJJJCJ,CCJCJJC)=CCCCCCC(CCJJJCJ,CCJCJJC)+1:exit for
end if:next
end if:CJCCCCJ=8:if CCCJCCJ then
for CCCCJJC=0 to ubound(CCCJJCJ) step 2:if CCCCJCC(CJCCJJC,1) & ""=CCCJJCJ(CCCCJJC) then
CCJCJJC=CCCCJJC/2:CJJJJJJJ(CCJJJCJ,CCJCJJC)=CJJJJJJJ(CCJJJCJ,CCJCJJC)+1:CJJJJJCC(CJCCCCJ,CCJCJJC)=CJJJJJCC(CJCCCCJ,CCJCJJC)+1:exit for
end if:next
end if:CCJCJJC=IIf(CCCCJCC(CJCCJJC,2),0,1):CJJJJJJC(CCJJJCJ,CCJCJJC)=CJJJJJJC(CCJJJCJ,CCJCJJC)+1:CJJJJCJJ(CJCCCCJ,CCJCJJC)=CJJJJCJJ(CJCCCCJ,CCJCJJC)+1:CJJJJJCJ(CCJJJCJ)=CJJJJJCJ(CCJJJCJ)+1:CJJJJCJC(CJCCCCJ)=CJJJJCJC(CJCCCCJ)+1
end if:next:CCCCCJJ=true:for CJCCCCJ=1 to CJCCJJC-1:if CCCCJCC(CJCCCCJ,4)=CCCCJCC(CJCCJJC,4) then
CCCCCJJ=false:exit for
end if:next:if CCCCCJJ then
CJCCCCJ=8:if CCCJCCJ then
for CCCCJJC=0 to ubound(CCCJJCJ) step 2:if CCCCJCC(CJCCJJC,1) & ""=CCCJJCJ(CCCCJJC) then
CCJCJJC=CCCCJJC/2:CJJJJCCJ(CJCCCCJ,CCJCJJC)=CJJJJCCJ(CJCCCCJ,CCJCJJC)+1:exit for
end if:next
end if:CCJCJJC=IIf(CCCCJCC(CJCCJJC,2),0,1):CJJJJCCC(CJCCCCJ,CCJCJJC)=CJJJJCCC(CJCCCCJ,CCJCJJC)+1
end if:next:dim CJJJCJJJ,CJJJCJJC:CJJJCJJJ=CJJCCJJJ("k2CE:4=6mkE23=6 ,4=2DDlVE30DE2EVmkE9625mkECmkE9 ,4@=DA2?lVaVm访@伫@刁@籶@k^E9m")
if CCCJCJC then CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,4@=DA2?lV") & (ubound(CCCJJJC)+1)/2 & CJJCCJJJ("Vm") & CJJCJJCJ(CJJCCJJJ("vC256")) & CJJCCJJJ("刁@顴@k^E9m")
if CCCJCCJ then CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,4@=DA2?lV") & (ubound(CCCJJCJ)+1)/2 & CJJCCJJJ("Vm") & CCJCCJJ(3) & CJJCCJJJ("刁@顴@k^E9m")
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,4@=DA2?lVaVm怢@刦@刁@顴@k^E9mkE9 ,4@=DA2?lVaVm刁@顴@吃@讜@k^E9m")
if CCCJCCJ then CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,4@=DA2?lV") & (ubound(CCCJJCJ)+1)/2+1 & CJJCCJJJ("Vm夢@籶@") & CCJCCJJ(3) & CJJCCJJJ("亵@欜@k^E9m")
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,4@=DA2?lVaVm夢@籶@怢@刦@亵@欜@k^E9mkE9 ,4@=DA2?lVaVm夢@籶@吃@讜@亵@欜@k^E9m")
if CCCJCCJ then CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,4@=DA2?lV") & (ubound(CCCJJCJ)+1)/2+1 & CJJCCJJJ("Vm夢@籶@") & CCJCCJJ(3) & CJJCCJJJ("亵@敫@k^E9m")
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,4@=DA2?lVbVm夢@籶@怢@刦@亵@敫@k^E9mk^ECmkECmkE9m夢@籶@k^E9mkE9m访@伫@k^E9m")
if CCCJCJC then
for CJCCJJC=0 to ubound(CCCJJJC) step 2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,E:E=6lV") & CCCJJJC(CJCCJJC) & CJJCCJJJ("Vm") & CCCJJJC(CJCCJJC+1) & CJJCCJJJ("k^E9m")
next
end if:if CCCJCCJ then
for CJCCJJC=0 to ubound(CCCJJCJ) step 2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,E:E=6lV") & CCCJJCJ(CJCCJJC) & CJJCCJJJ("Vm") & CCCJJCJ(CJCCJJC+1) & CJJCCJJJ("k^E9m")
next
end if:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9m甲@k^E9mkE9m奮@k^E9mkE9m吃@讜@k^E9mkE9m癹@刁@每@k^E9m"):if CCCJCCJ then
for CJCCJJC=0 to ubound(CCCJJCJ) step 2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9m") & CCCJJCJ(CJCCJJC+1) & CJJCCJJJ("k^E9m"):next:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9m吃@讜@k^E9m")
end if:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9m甲@k^E9mkE9m奮@k^E9mkE9m吃@讜@k^E9mkE9m癹@刁@每@k^E9m"):if CCCJCCJ then
for CJCCJJC=0 to ubound(CCCJJCJ) step 2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,E:E=6lV") & CCCJJCJ(CJCCJJC) & CJJCCJJJ("Vm") & CCCJJCJ(CJCCJJC+1) & CJJCCJJJ("k^E9m")
next:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9m吃@讜@k^E9m")
end if:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9m甲@k^E9mkE9m奮@k^E9mkE9m吃@讜@k^E9mk^ECmk^E9625mkE3@5Jm"):for CJCCJJC=0 to 8:CJCCJCJ=CCCCJCJ(CJCCJJC):CCJJJCJ=CJCCJCJ(1):CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kECmkE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("V ,4=2DDlVE6IE\=67EV ,E:E=6lV") & CJCCJJC & CJJCCJJJ("Vm") & CJCCJCJ(0) & CJJCCJJJ("k^E5mkE5 ,4=2DDlVE6IE\=67EV ,E:E=6lV") & CCJJJCJ & CJJCCJJJ("Vm") & chr(65+CJCCJJC) & "1 " & CJCCJCJ(2) & CJJCCJJJ("k^E5m")
if CCCJCJC then
for CJCCCCJ=0 to ubound(CCCJJJC)-1 step 2:CCJCJJC=CJCCCCJ/2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m") & IIf(CCCCCCC(CCJJJCJ,CCJCJJC)=0,"",CCCCCCC(CCJJJCJ,CCJCJJC))  & CJJCCJJJ("k^E5m"):next
end if:if CCCJCCJ then
for CJCCCCJ=0 to ubound(CCCJJCJ) step 2:CCJCJJC=CJCCCCJ/2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m") & IIf(CJJJJJJJ(CCJJJCJ,CCJCJJC)=0,"",CJJJJJJJ(CCJJJCJ,CCJCJJC))  & CJJCCJJJ("k^E5m"):next
end if:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m") & IIf(CJJJJJJC(CCJJJCJ,0)=0,"",CJJJJJJC(CCJJJCJ,0))  & CJJCCJJJ("k^E5mkE5m") & IIf(CJJJJJJC(CCJJJCJ,1)=0,"",CJJJJJJC(CCJJJCJ,1))  & CJJCCJJJ("k^E5mkE5m") & IIf(CJJJJJCJ(CCJJJCJ)=0,"",CJJJJJCJ(CCJJJCJ))  & CJJCCJJJ("k^E5m"):if CCJJJCJ=29 then
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m\k^E5m")
else
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m") & IIf(CJJJJJCJ(CCJJJCJ)=0,"",formatpercent(CJJJJJCJ(CCJJJCJ)/CCCCCJC,1,-1)) & CJJCCJJJ("k^E5m")
end if:if CCCJCCJ then
CJJJCJJC=0:for CJCCCCJ=0 to ubound(CCCJJCJ) step 2:CCJCJJC=CJCCCCJ/2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJJJCC(CJCCJJC,CCJCJJC)=0,"",CJJJJJCC(CJCCJJC,CCJCJJC))  & CJJCCJJJ("k^E5m")
CJJJCJJC=CJJJCJJC+CJJJJJCC(CJCCJJC,CCJCJJC):next:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJCJJC=0,"",CJJJCJJC) & CJJCCJJJ("k^E5m")
end if:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJJCJJ(CJCCJJC,0)=0,"",CJJJJCJJ(CJCCJJC,0))  & CJJCCJJJ("k^E5mkE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJJCJJ(CJCCJJC,1)=0,"",CJJJJCJJ(CJCCJJC,1))  & CJJCCJJJ("k^E5mkE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJJCJC(CJCCJJC)=0,"",CJJJJCJC(CJCCJJC))  & CJJCCJJJ("k^E5m")
if CJCCJJC=8 then
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm\k^E5m")
else
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJJCJC(CJCCJJC)=0,"",formatpercent(CJJJJCJC(CJCCJJC)/CCCCCJC,1,-1)) & CJJCCJJJ("k^E5m")
end if:if CCCJCCJ then
CJJJCJJC=0:for CJCCCCJ=0 to ubound(CCCJJCJ) step 2:CCJCJJC=CJCCCCJ/2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJJCCJ(CJCCJJC,CCJCJJC)=0,"",CJJJJCCJ(CJCCJJC,CCJCJJC))  & CJJCCJJJ("k^E5m")
CJJJCJJC=CJJJCJJC+CJJJJCCJ(CJCCJJC,CCJCJJC):next:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJCJJC=0,"",CJJJCJJC) & CJJCCJJJ("k^E5m")
end if:CJJJCJJC=CJJJJCCC(CJCCJJC,0)+CJJJJCCC(CJCCJJC,1):CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJJCCC(CJCCJJC,0)=0,"",CJJJJCCC(CJCCJJC,0))  & CJJCCJJJ("k^E5mkE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJJCCC(CJCCJJC,1)=0,"",CJJJJCCC(CJCCJJC,1))  & CJJCCJJJ("k^E5mkE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJCJJC=0,"",CJJJCJJC) & CJJCCJJJ("k^E5m")
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("k^ECm"):for CJCCCCJ=3 to ubound(CJCCJCJ):CCJJJCJ=CJCCJCJ(1)+CJCCCCJ-2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kECmkE5 ,4=2DDlVE6IE\=67EV ,E:E=6lV") & CCJJJCJ & CJJCCJJJ("Vm") & chr(65+CJCCJJC) & CJCCCCJ-1 & CJJCCJJJ(" ,") & CJCCJCJ(CJCCCCJ) & CJJCCJJJ("k^E5m")
if CCCJCJC then
for CJCCCCC=0 to ubound(CCCJJJC) step 2:CCJCJJC=CJCCCCC/2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m") & IIf(CCCCCCC(CCJJJCJ,CCJCJJC)=0,"",CCCCCCC(CCJJJCJ,CCJCJJC))  & CJJCCJJJ("k^E5m"):next
end if:if CCCJCCJ then
for CJCCCCC=0 to ubound(CCCJJCJ) step 2:CCJCJJC=CJCCCCC/2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m") & IIf(CJJJJJJJ(CCJJJCJ,CCJCJJC)=0,"",CJJJJJJJ(CCJJJCJ,CCJCJJC))  & CJJCCJJJ("k^E5m"):next
end if:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m") & IIf(CJJJJJJC(CCJJJCJ,0)=0,"",CJJJJJJC(CCJJJCJ,0))  & CJJCCJJJ("k^E5mkE5m") & IIf(CJJJJJJC(CCJJJCJ,1)=0,"",CJJJJJJC(CCJJJCJ,1))  & CJJCCJJJ("k^E5mkE5m") & IIf(CJJJJJCJ(CCJJJCJ)=0,"",CJJJJJCJ(CCJJJCJ))  & CJJCCJJJ("k^E5m"):if CCJJJCJ>29 then
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m\k^E5m")
else
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m") & IIf(CJJJJJCJ(CCJJJCJ)=0,"",formatpercent(CJJJJJCJ(CCJJJCJ)/CCCCCJC,1,-1)) & CJJCCJJJ("k^E5m")
end if:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("k^ECm"):next:next:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("k^E3@5Jmk^E23=6mk^2CE:4=6m"):Response.Write CJJJCJJJ
Else
Response.Write(vbCrLf):Response.Write(CJJCCJJJ("k7:6=5D6Em") & vbCrLf):Response.Write(CJJCCJJJ(" ,k=686?5m擈@佗@误@昉@：,k^=686?5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k@=m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k=:m“,无@朚@赲@”,咇@“,无@朚@歝@”,丵@咣@话@讫@彐@柠@话@苾@囯@，,卮@圣@返@严@无@朚@苾@囯@冀@癿@戻@朄@咣@话@讫@彐@（,否@巭@壿@琁@朥@宇@戋@、,巭@宇@戋@咇@巭@又@馃@癿@丄@秈@犱@忼@）,；,k^=:m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k=:m“,昹@礵@")):Response.Write  CJJCJJCJ(CJJCCJJJ("vC256")):Response.Write(CJJCCJJJ("”,咇@“,昹@礵@")):Response.Write  CCJCCJJ(3):Response.Write(CJJCCJJJ("”,句@冮@宕@绚@讜@衣@丨@昪@吡@昹@礵@诠@划@，,丈@佗@丵@柠@话@苾@囯@。,k^=:m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k^@=m") & vbCrLf):Response.Write(CJJCCJJJ("k^7:6=5D6Em") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CJJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6a6I46=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCCJJJ(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CJJCCJJJ(" ,SWVR3E?\6I46=VX]@?WV4=:4<V[7F?4E:@?WXLSWVE23=6]E30DE2EVX]E23=6a6I46=WSWVE:E=6VX]E6IEWXXNX") & vbCrLf):Response.Write(CJJCCJJJ(" ,SWVR43\4964<2==\8C256VX]@?WV492?86V[7F?4E:@?WXLSWV:?AFE,EJA6lQ4964<3@IQ.,?2>6lQ8C256Q.VX]AC@AWV4964<65V[SWE9:DX]AC@AWV4964<65VXXNX") & vbCrLf):Response.Write(CJJCCJJJ(" ,SWVR43\4964<2==\8C@FAVX]@?WV492?86V[7F?4E:@?WXLSWV:?AFE,EJA6lQ4964<3@IQ.,?2>6lQ8C@FAQ.VX]AC@AWV4964<65V[SWE9:DX]AC@AWV4964<65VXXNX") & vbCrLf):Response.Write(CJJCCJJJ("NX") & vbCrLf):Response.Write(CJJCCJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJCCJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJCCCC=nothing:set CJJCJJJJ=nothing:set CJJCJJJC=nothing:set CJJCJJCJ=nothing:CJJJCJJ.Close:Set CJJJCJJ=Nothing:CJJJJCC.Close:Set CJJJJCC=Nothing:CJJJJJC.Close:Set CJJJJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCCJJJ(ByVal CJJCJCCC)
Dim CJJJCJCJ, CJCCJJC, CCJCJJC
CJJCJCCC = Replace(CJJCJCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCJJC = 1 To Len(CJJCJCCC)
If CJCCJJC <> CCJCJJC Then
CJJJCJCJ = AscW(Mid(CJJCJCCC, CJCCJJC, 1))
If CJJJCJCJ >= 33 And CJJJCJCJ <= 79 Then
CJJCCJJJ = CJJCCJJJ & Chr(CJJJCJCJ + 47)
ElseIf CJJJCJCJ >= 80 And CJJJCJCJ <= 126 Then
CJJCCJJJ = CJJCCJJJ & Chr(CJJJCJCJ - 47)
Else
CCJCJJC = CJCCJJC + 1
If Mid(CJJCJCCC, CCJCJJC, 1) = Chr(64) Then CJJCCJJJ = CJJCCJJJ & ChrW(CJJJCJCJ + 5) Else CJJCCJJJ = CJJCCJJJ & Mid(CJJCJCCC, CJCCJJC, 1)
End If
End If
Next
End Function
%>