<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJJJCCJ, CJJJCCC,CJJCJJJ, CJJCJJC, CJJCJCJ:Set CJJJCCJ = server.CreateObject(CJJCJCCC("ps~sq]r@??64E:@?")):CJJJCCJ.open Application(CJJCJCCC("r@??64E:@?$EC:?8")):Set CJJJCCC=CJJJCCJ::Dim CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC:Dim CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ,CJCCJJC:Dim CJCCJCJ,CJCCJCC,CJCCCJJ:Dim CJCCCJC:CJCCCJC=Trim(Request.Cookies(CJJCJCCC("!$*|t|qt#"))):if CJCCCJC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJJCJCC>0 then CJJCJCJ=CJJCJCCC("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?@=@40 then Call RedirectMessage(CJJCJCCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CJJCJCC,CJJCCJJ) End IF end if:Sub CheckRight(CCJCJCC):dim CJCCCCJ,CJCCCCC:if CJJCJCC=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCJCCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) elseIf not CJJJCJCC(CCJCJCC) then Call RedirectMessage(CJJCJCCC("朾@陋@W") & CCJCJCC & CJJCJCCC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CJJJCJCC(CCJCJCC):dim CJCCCCJ,CJCCCCC:CJCCCCC=split(CCJCJCC,CJJCJCCC("[")):CJJJCJCC=False:for CJCCCCJ=0 to ubound(CJCCCCC):If Mid(CJJCCJC,CJCCCCC(CJCCCCJ),1)="1" then CJJJCJCC=True:exit function end if:next:End Function:Sub CheckLogined():if CJJCJCC=0 then Call ClearMemberCookie:Call ConnClose:dim CCJJJJJ:CCJJJJJ=trim(request.QueryString(CJJCJCCC("D49@@="))):if isnumeric(CCJJJJJ) then response.Redirect CJJCJCCC("^>^G2?E^R^D49@@=^") & CCJJJJJ & CJJCJCCC("^DEF56?E^=@8:?nC65:C64El") & url else Call RedirectMessage(CJJCJCCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJCJCCC("!$*|t|qt#"))="":CJJCJCC=0:CJCJJJJ=0:CJJCCJJ=Empty:CJJCCCC=0:CJCJJCJ=0:CJCJJJC=0:CJJCCCJ=0:CJCJCJJ=False:CJCCJCC=False:CJCCCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CCJJJJC,CCJJJCJ,CJCCCCJ,CCJJJCC,CCJJCJJ:CCJJJJC=split(CJCCCJC,CJJCJCCC("]")):if ubound(CCJJJJC)<>2 then Call ClearMemberCookie elseif not isnumeric(CCJJJJC(0)) or len(CCJJJJC(1))<>32 or len(CCJJJJC(2))<>32 then Call ClearMemberCookie else CCJJJCJ=CCJJJJC(1):for CJCCCCJ=1 to len(CCJJJCJ):CCJJJCC=mid(CCJJJCJ,CJCCCCJ,1):if isnumeric(CCJJJCC) then CCJJCJJ=CCJJCJJ & CCJJJCC if len(CCJJCJJ)=7 then exit for next:CCJJJCJ=CCJJJJC(2):if CCJJCJJ<>mid(CCJJJCJ,6,7) then Call ClearMemberCookie else CCJJJCC=mid(CCJJJCJ,18,10)/2:if CCJJJCC6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJJCJJCC(ByVal CJJCJCJJ,style):if not isdate(CJJCJCJJ) then CJJCJJCC=CJJCJCJJ:exit function end if:dim CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC:CJJCJCJJ=cdate(CJJCJCJJ):CCJJCCJ=Year(CJJCJCJJ):CCJJCCC=Month(CJJCJCJJ):CCJCJJJ=Day(CJJCJCJJ):select case style:case 0:CJJCJJCC=CCJJCCJ & CJJCJCCC("\") & right(0 & CCJJCCC,2) & CJJCJCCC("\") & right(0 & CCJCJJJ,2):case 1:CJJCJJCC=CCJJCCJ & right(0 & CCJJCCC,2) & right(0 & CCJCJJJ,2):case 2:CJJCJJCC=right(CCJJCCJ,2) & CJJCJCCC("\") & right(0 & CCJJCCC,2) & CJJCJCCC("\") & right(0 & CCJCJJJ,2):case 3:CJJCJJCC=CCJJCCJ & CJJCJCCC("\") & right(0 & CCJJCCC,2):case 4:CJJCJJCC=right(0 & CCJJCCC,2) & CJJCJCCC("\") & right(0 & CCJCJJJ,2):case 5:CJJCJJCC=right(0 & CCJCJJJ,2):case 6:CJJCJJCC=CCJJCCJ & CJJCJCCC("幯@") & right(0 & CCJJCCC,2) & CJJCJCCC("會@") & right(0 & CCJCJJJ,2) & CJJCJCCC("无@"):case else CJJCJJCC=CJJCJCJJ:end select:End Function:Function CJJCJCJC(CJCJJJJJ):Dim CCJCJCJ, CCJCJCC, str(), CJCCCCJ,CCJJJCC,CCJCCJC:CCJCCJC=UCase(CJCJJJJJ):If Not IsArray(Application(CJJCJCCC("!$*0") & CCJCCJC)) Then CJJCJCJ=CJJCJCCC("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & CJCJJJJJ & CJJCJCCC(". ,@C56C ,3J ,D@CE[:5"):set CCJCJCJ=server.createobject(CJJCJCCC("25@53]C64@C5D6E")):CCJCJCJ.open CJJCJCJ,CJJJCCJ,1:CCJCJCC = CCJCJCJ.RecordCount:ReDim str(CCJCJCC, 2):If CCJCJCC > 0 Then For CJCCCCJ = 1 To CCJCJCC:for CCJJJCC=0 to 2:str(CJCCCCJ, CCJJJCC) = CCJCJCJ(CCJJJCC):next:CCJCJCJ.MoveNext:Next End If:CCJCJCJ.Close: Set CCJCJCJ = Nothing:Application(CJJCJCCC("!$*0") & CCJCCJC) = str End If:CJJCJCJC = Application(CJJCJCCC("!$*0") & CCJCCJC):End Function:::::::::Sub CheckQueryTime(CJCJJJJC,CJCJJJCJ):dim str,CCJCCCJ:str=CJJCJCCC("!$*0") & Ucase(CJCJJJJC):if Session(str)<>"" then CCJCCCJ=DateDiff(CJJCJCCC("D"),Session(str),Time):if CCJCCCJ0 then Call ConnClose:Call ShowMessage(CJJCJCCC("柠@话@闯@随@忀@顶@夢@争@ ,") & CJCJJJCJ & CJJCJCCC(" ,种@，,迓@剤@ ,") & CJCJJJCJ-CCJCCCJ & CJJCJCCC(" ,种@！,")):response.End() else Session.Contents.Remove(str) end if end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJCJJJCC):dim CJCCCCJ,CCJJJCC,CCJCCCC,CCCJJJJ:on error resume next:CCJCCCC=ubound(CJCJJJCC):CCCJJJJ=ubound(CJCJJJCC,2):if err.number<>0 then err.clear:for CJCCCCJ=0 to CCJCCCC:CJCJJJCC(CJCCCCJ)=0:next else for CJCCCCJ=0 to CCJCCCC:for CCJJJCC=0 to CCCJJJJ:CJCJJJCC(CJCCCCJ,CCJJJCC)=0:next:next end if:End Sub:::::dim CCJJJJJ:CJJCJCJ=Request.ServerVariables(CJJCJCCC("!p%w0x}u~")):if instr(CJJCJCJ,CJJCJCCC("^D49@@=^25>:?^"))>0 then Call CheckLogined:if not CJCJCJJ and not CJCCJCC then Call RedirectMessage(CJJCJCCC("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,")) CCJJJJJ=CJCJJJC elseif instr(CJJCJCJ,CJJCJCCC("^>^D49@@=^DEF56?E^"))>0 or instr(CJJCJCJ,CJJCJCCC("^DEF56?E^"))>0 then Call CheckLogined:CCJJJJJ=CJCJJJC elseif instr(CJJCJCJ,CJJCJCCC("^D49@@="))>0 then CCJJJJJ=Request.QueryString(CJJCJCCC("D49@@=")):if not CJJJCCJC(CCJJJJJ) then CCJJJJJ=Request.QueryString(CJJCJCCC("F")) if not CJJJCCJC(CCJJJJJ) then CCJJJJJ=Request.QueryString(CJJCJCCC("D4")) if not CJJJCCJC(CCJJJJJ) then Call RedirectMessage(CJJCJCCC("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,")) CCJJJJJ=csng(CCJJJJJ) end if:if CCJJJJJ=0 then Call RedirectMessage(CJJCJCCC("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,")) Dim CCCJJJC:Call SetConfig:Sub SetConfig():dim CJCCCCC,CCJCJCJ:CJJCJCJ=CJJCJCCC("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 ,D49@@= ,H:E9 ,W?@=@4D")):CJCCCCC(3)=CCJCJCJ(CJJCJCCC("4FDE@>8C@FA")) & "":CJCCCCC(4)=CCJCJCJ(CJJCJCCC("D:5632C0@E96C")) & "":CJCCCCC(5)=IIf(isnull(CCJCJCJ(CJJCJCCC("E6DEC6DF=EG:6H"))),0,CCJCJCJ(CJJCJCCC("E6DEC6DF=EG:6H"))):CJCCCCC(6)=CCJCJCJ(CJJCJCCC("K:IF?E:>6")):CJCCCCC(7)=CCJCJCJ(CJJCJCCC("766")):CJCCCCC(8)=CCJCJCJ(CJJCJCCC("C6E6DE52J")):CJCCCCC(9)=CCJCJCJ(CJJCJCCC("6IA:C652E6")):CJCCCCC(10)=CCJCJCJ(CJJCJCCC("E:E=6")):CJCCCCC(11)=CCJCJCJ(CJJCJCCC(":?EC@")) & "":CJCCCCC(12)=CCJCJCJ(CJJCJCCC("A:4EFC6")) & "":CJCCCCC(13)=CCJCJCJ(CJJCJCCC("72>:=J")):CJCCCCC(14)=CCJCJCJ(CJJCJCCC("4@AJC:89E")) & "":CJCCCCC(15)=IIf(isnull(CCJCJCJ(CJJCJCCC("D6>6DE6C0DE2CE052E6"))),CJJCJCCC("`h__\`\`"),CCJCJCJ(CJJCJCCC("D6>6DE6C0DE2CE052E6"))):CJCCCCC(16)=IIf(isnull(CCJCJCJ(CJJCJCCC("K:IF?0E:>6D09:89=:89E"))),0,CCJCJCJ(CJJCJCCC("K:IF?0E:>6D09:89=:89E"))):CJCCCCC(17)=CCJCJCJ(CJJCJCCC("4@?E24E")) & "":CJCCCCC(18)=CCJCJCJ(CJJCJCCC("D2?5E23=6")):CJCCCCC(19)=CCJCJCJ(CJJCJCCC("4C:D:D")):CJCCCCC(20)=CCJCJCJ(CJJCJCCC("JJ52E6")):CJCCCCC(21)=CCJCJCJ(CJJCJCCC("BB")):CJCCCCC(22)=CCJCJCJ(CJJCJCCC("JFJF60D>D0EA=")) & "":CJCCCCC(23)=CCJCJCJ(CJJCJCCC("JFJF60E6DE0=3")) & "":CJCCCCC(25)=CCJCJCJ(CJJCJCCC("6IA6CE")):CJCCCCC(26)=CCJCJCJ(CJJCJCCC(">@5:?7@")):CJCCCCC(27)=CCJCJCJ(CJJCJCCC("9@>6A286E@AA:4EFC6")) & "":CJCCCCC(28)=CCJCJCJ(CJJCJCCC("4C:D:D=3")):CJCCCCC(29)=IIf(CCJCJCJ(CJJCJCCC("4C:D:D@=5")),False,True):CJCCCCC(30)=CCJCJCJ(CJJCJCCC("8C@FA8F:52?46")):CJCCCCC(31)=CCJCJCJ(CJJCJCCC("3:@7665324<")):CJCCCCC(32)=CCJCJCJ(CJJCJCCC("<6JDEC")):CJCCCCC(33)=CCJCJCJ(CJJCJCCC("=@8@")) & "":CJCCCCC(34)=CCJCJCJ(CJJCJCCC("K:46")):CJCCCCC(35)=IIf(CCJCJCJ(CJJCJCCC(":D?6H")),True,False):CJCCCCC(36)=121:CJCCCCC(37)=111:CJCCCCC(38)=160:CJCCCCC(39)=CCJCJCJ(CJJCJCCC("8F6DE3@@<")):CJCCCCC(40)=CCJCJCJ(CJJCJCCC("75D")):CJCCCCC(42)=CCJCJCJ(CJJCJCCC("9@>6=@8:?")):CJCCCCC(43)=CCJCJCJ(CJJCJCCC("K:IF?0?6657665324<")):CJCCCCC(44)=CCJCJCJ(CJJCJCCC("K:IF?0E:>6D0=:>:E")):CJCCCCC(45)=CCJCJCJ(CJJCJCCC("4@>A=6E60:?7@")):CJCCCCC(46)=CCJCJCJ(CJJCJCCC("E6DE:?EC@")) & "":CJCCCCC(47)=IIf(isnull(CCJCJCJ(CJJCJCCC("JFJF60367@C60E:>6"))),0,CCJCJCJ(CJJCJCCC("JFJF60367@C60E:>6"))):CJCCCCC(49)=CCJCJCJ(CJJCJCCC("D>D0C646:G6C")):CJCCCCC(50)=CCJCJCJ(CJJCJCCC("D>D0D:8?")) & "":CJCCCCC(52)=CCJCJCJ(CJJCJCCC("JFJF602CC2?86")):CJCCCCC(53)=IIf(isnull(CCJCJCJ(CJJCJCCC("DEF56?E0BF6DE:@?04@F?E"))),0,CCJCJCJ(CJJCJCCC("DEF56?E0BF6DE:@?04@F?E"))):CJCCCCC(54)=CCJCJCJ(CJJCJCCC("9:560=30@FE@7286")):CJCCCCC(55)=CCJCJCJ(CJJCJCCC("JFJF60E6DE052JD")):CJCCCCC(56)=CCJCJCJ(CJJCJCCC("JFJF60H66<0=:>:E")):CJCCCCC(57)=CCJCJCJ(CJJCJCCC("JFJF604964<65")):CJCCCCC(58)=CCJCJCJ(CJJCJCCC("K:IF?0?6657665324<0?6IE")):CJCCCCC(59)=CCJCJCJ(CJJCJCCC("49642E6"),CJJCJCCC("}F>36C"),CJJCJCCC("%62496C"),CJJCJCCC("!2C6?E")):select case CCCJJJC(1):case 1,2 : CCCJJCC=Array(CJJCJCCC("孡@栜@"),CJJCJCCC("孡@甚@"),CJJCJCCC("珨@红@"),CJJCJCCC("幯@红@"),CJJCJCCC("吇@孡@"),CJJCJCCC("孡@史@"),CJJCJCCC("敔@布@"),CJJCJCCC("宱@镺@")):case 3,16 : CCCJJCC=Array(CJJCJCCC("孡@栜@"),CJJCJCCC("孡@甚@"),CJJCJCCC("陝@糶@"),CJJCJCCC("幯@红@"),CJJCJCCC("吇@孡@"),CJJCJCCC("孡@史@"),CJJCJCCC("敔@布@"),CJJCJCCC("宱@镺@")):case 4 : CCCJJCC=Array(CJJCJCCC("匶@陝@"),CJJCJCCC("杠@论@耀@"),CJJCJCCC("卐@佈@"),CJJCJCCC("幯@仸@"),CJJCJCCC("吇@了@"),CJJCJCCC("缑@史@"),CJJCJCCC("匶@甚@"),CJJCJCCC("宱@屙@")):case 5 : CCCJJCC=Array(CJJCJCCC("卐@佈@"),CJJCJCCC("呓@巠@"),CJJCJCCC("郣@闣@"),CJJCJCCC("幯@仸@"),CJJCJCCC("吇@了@"),CJJCJCCC("缑@史@"),CJJCJCCC("呓@巠@"),CJJCJCCC("宱@屙@")):case 6 : CCCJJCC=Array(CJJCJCCC("卐@佈@"),CJJCJCCC("杠@论@耀@"),CJJCJCCC("线@刦@"),CJJCJCCC("幯@仸@"),CJJCJCCC("吇@了@"),CJJCJCCC("缑@史@"),CJJCJCCC("咣@话@布@"),CJJCJCCC("宱@屙@")):case 7 : CCCJJCC=Array(CJJCJCCC("卐@佈@"),CJJCJCCC("宓@兰@"),CJJCJCCC("郣@闣@"),CJJCJCCC("幯@仸@"),CJJCJCCC("戓@叆@"),CJJCJCCC("缑@史@"),CJJCJCCC("咣@话@布@"),CJJCJCCC("宱@屙@")):case 8 : CCCJJCC=Array(CJJCJCCC("卐@佈@"),CJJCJCCC("杠@论@耀@"),CJJCJCCC("卐@佈@"),CJJCJCCC("兠@聇@幯@仸@"),CJJCJCCC("吇@了@"),CJJCJCCC("缑@史@"),CJJCJCCC("咣@话@布@"),CJJCJCCC("酈@偱@")):case 9 : CCCJJCC=Array(CJJCJCCC("卐@佈@"),CJJCJCCC("敔@布@"),CJJCJCCC("卐@佈@"),CJJCJCCC("幯@仸@"),CJJCJCCC("吇@了@"),CJJCJCCC("缑@史@"),CJJCJCCC("咣@话@布@"),CJJCJCCC("酈@偱@")):case 10 : CCCJJCC=Array(CJJCJCCC("卐@佈@"),CJJCJCCC("氌@譡@"),CJJCJCCC("郣@闣@"),CJJCJCCC("兠@譡@幯@仸@"),CJJCJCCC("吇@了@"),CJJCJCCC("缑@史@"),CJJCJCCC("咣@话@布@"),CJJCJCCC("宱@屙@")):case 11 : CCCJJCC=Array(CJJCJCCC("卐@佈@"),CJJCJCCC("內@劜@呓@"),CJJCJCCC("郣@闣@"),CJJCJCCC("幯@仸@"),CJJCJCCC("吇@了@"),CJJCJCCC("缑@史@"),CJJCJCCC("咣@话@布@"),CJJCJCCC("宱@屙@")):case 12 : CCCJJCC=Array(CJJCJCCC("卐@佈@"),CJJCJCCC("幭@譡@"),CJJCJCCC("卐@佈@"),CJJCJCCC("兠@譡@幯@仸@"),CJJCJCCC("吇@了@"),CJJCJCCC("缑@史@"),CJJCJCCC("咣@话@布@"),CJJCJCCC("宱@屙@")):case 13 : CCCJJCC=Array(CJJCJCCC("卐@佈@"),CJJCJCCC("孡@呓@"),CJJCJCCC("卐@佈@"),CJJCJCCC("幯@仸@"),CJJCJCCC("戓@叆@"),CJJCJCCC("缑@史@"),CJJCJCCC("敔@呓@"),CJJCJCCC("宱@屙@")):case 14 : CCCJJCC=Array(CJJCJCCC("月@劜@炴@"),CJJCJCCC("局@氌@"),CJJCJCCC("线@刦@"),CJJCJCCC("幯@仸@"),CJJCJCCC("邶@采@"),CJJCJCCC("缑@史@"),CJJCJCCC("咣@话@布@"),CJJCJCCC("宱@屙@")):case 15 : CCCJJCC=Array(CJJCJCCC("卐@佈@"),CJJCJCCC("盌@独@氌@譡@"),CJJCJCCC("卐@佈@"),CJJCJCCC("兠@譡@幯@仸@"),CJJCJCCC("吇@了@"),CJJCJCCC("缑@史@"),CJJCJCCC("咣@话@布@"),CJJCJCCC("宱@屙@")):case else : CCCJJCC=CCCJJCJ end select:for CJCCCCJ=0 to Ubound(CJCCCCC):CJCCCCC(CJCCCCJ,0)=CCCJJCJ(CJCCCCJ):CJCCCCC(CJCCCCJ,1)=CCCJJCC(CJCCCCJ):next:for CJCCCCJ=0 to Ubound(CJCCCCC):if CJCCCCC(CJCCCCJ,0)=CJCJJJJC then CJJCJJJC=CJCCCCC(CJCCCCJ,1):exit for end if:next:End Function::Call CheckRight(18):dim CCCJCJJ,CCCJCJC,CCCJCCJ,CCCJCCC,CCCCJJJ,CJCCCCJ,CJCCCCC,CCCCJJC,CCCCJCJ,CCCCJCC:CCCCJJJ=Date:CCCCJCJ=false:CCCCJCC=false:CCCJCJJ=request.QueryString(CJJCJCCC("5`")):CCCJCJC=request.QueryString(CJJCJCCC("5a")):CCCJCCJ=request.QueryString(CJJCJCCC("8C256")):CCCJCCC=request.QueryString(CJJCJCCC("8C@FA")):if CCCJCJJ="" then CCCJCJJ=CJJCJJCC(year(CCCCJJJ) & CJJCJCCC("\") & month(CCCCJJJ) & "-1",0) if CCCJCJC="" then CCCJCJC=CJJCJJCC(CCCCJJJ,0) dim CCCCCJJ:CJCCCCC=CJJCJCJC(CJJCJCCC(">6>36C08C256")):for CJCCCCJ=1 to ubound(CJCCCCC):if CJCCCCC(CJCCCCJ,2)=CCJJJJJ then CCCCCJJ=CCCCCJJ & CJJCJCCC("M") & CJCCCCC(CJCCCCJ,0) & CJJCJCCC("M") & CJCCCCC(CJCCCCJ,1) next:if CCCCCJJ<>"" then CCCCCJJ=split(mid(CCCCCJJ,2),CJJCJCCC("M")) dim CCCCCJC:CJCCCCC=CJJCJCJC(CJJCJCCC(">6>36C04FDE@>8C@FA")):for CJCCCCJ=1 to ubound(CJCCCCC):if CJCCCCC(CJCCCCJ,2)=CCJJJJJ then CCCCCJC=CCCCCJC & CJJCJCCC("M") & CJCCCCC(CJCCCCJ,0) & CJJCJCCC("M") & CJCCCCC(CJCCCCJ,1) next:if CCCCCJC<>"" then CCCCCJC=split(mid(CCCCCJC,2),CJJCJCCC("M")) Response.Write(vbCrLf):Response.Write(CJJCJCCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCJCCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCJCCC("k9625m") & vbCrLf):Response.Write(CJJCJCCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCJCCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCJCCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCJCCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJCJCCC("kE:E=6m釈@炴@惀@冰@求@怶@k^E:E=6m") & vbCrLf):Response.Write(CJJCJCCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJCJCCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CJJCJCCC("kDEJ=6m") & vbCrLf):Response.Write(CJJCJCCC("2CE:4=6L>2C8:?\E@AidAIjN") & vbCrLf):Response.Write(CJJCJCCC("k^DEJ=6m") & vbCrLf):Response.Write(CJJCJCCC("k^9625m") & vbCrLf):Response.Write(CJJCJCCC("kE3@5Jm") & vbCrLf):Response.Write(CJJCJCCC("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CJJCJCCC(" ,k=:mk2 ,9C67lQ>@?E9=J0KI]2DAQm怶@低@惀@冰@绚@讜@k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCCC(" ,k=:mk2 ,9C67lQK:IF?0DF>>2CJ]2DAQm咣@话@惀@冰@求@怶@k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCCC(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQK:IF?0D6C:@FD]2DAQm釈@炴@惀@冰@求@怶@k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCCC("k^F=m") & vbCrLf):Response.Write(CJJCJCCC("k7@C> ,>6E9@5lQ86EQm") & vbCrLf):Response.Write(CJJCJCCC(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJCJCCC(" ,kECm") & vbCrLf):Response.Write(CJJCJCCC(" ,kE5 ,4=2DDlQ=236=Q ,?@HC2Am无@朚@赲@k^E5m") & vbCrLf):Response.Write(CJJCJCCC(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,?2>6lQ5`Q ,G2=F6lQ")):Response.Write CJJCJJCC(CCCJCJJ,0):Response.Write(CJJCJCCC("Q ,2FE@4@>A=6E6lQ@77Q ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CJJCJCCC(" ,")):if isarray(CCCCCJJ) then Response.Write(vbCrLf):Response.Write(CJJCJCCC(" ,kE5 ,4=2DDlQ=236=Q ,?@HC2Am昹@礵@")):Response.Write CJJCJJJC(CJJCJCCC("vC256")):Response.Write(CJJCJCCC("k^E5m") & vbCrLf):Response.Write(CJJCJCCC(" ,kE5m") & vbCrLf):Response.Write(CJJCJCCC(" ,k=236=mk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ43\4964<2==\8C256Qm兣@逄@k^=236=m") & vbCrLf):Response.Write(CJJCJCCC(" ,")):for CJCCCCJ=0 to ubound(CCCCCJJ)-1 step 2:CCCCJJC=CCCCCJJ(CJCCCCJ) & CJJCJCCC("M") & CCCCCJJ(CJCCCCJ+1):Response.Write CJJCJCCC(" ,k=236=mk:?AFE ,EJA6lV4964<3@IV ,?2>6lV8C256V ,G2=F6lV") & CCCCJJC & CJJCJCCC("V") if instr(CCCJCCJ,CCCCJJC)>0 then Response.Write CJJCJCCC(" ,4964<65") Response.Write CJJCJCCC("m") & CCCCCJJ(CJCCCCJ+1) & CJJCJCCC("k^=236=m"):next:Response.Write(vbCrLf):Response.Write(CJJCJCCC(" ,k^E5m") & vbCrLf):Response.Write(CJJCJCCC(" ,")) end if:Response.Write(vbCrLf):Response.Write(CJJCJCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCCC(" ,kECm") & vbCrLf):Response.Write(CJJCJCCC(" ,kE5 ,4=2DDlQ=236=Qm无@朚@歝@k^E5m") & vbCrLf):Response.Write(CJJCJCCC(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,?2>6lQ5aQ ,G2=F6lQ")):Response.Write CJJCJJCC(CCCJCJC,0):Response.Write(CJJCJCCC("Q ,2FE@4@>A=6E6lQ@77Q ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CJJCJCCC(" ,")):if isarray(CCCCCJC) then Response.Write(vbCrLf):Response.Write(CJJCJCCC(" ,kE5 ,4=2DDlQ=236=Qm昹@礵@")):Response.Write CCCJJJC(3):Response.Write(CJJCJCCC("k^E5m") & vbCrLf):Response.Write(CJJCJCCC(" ,kE5m") & vbCrLf):Response.Write(CJJCJCCC(" ,k=236=mk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ43\4964<2==\8C@FAQm兣@逄@k^=236=m") & vbCrLf):Response.Write(CJJCJCCC(" ,")):for CJCCCCJ=0 to ubound(CCCCCJC)-1 step 2:CCCCJJC=CCCCCJC(CJCCCCJ) & CJJCJCCC("M") & CCCCCJC(CJCCCCJ+1):Response.Write CJJCJCCC(" ,k=236=mk:?AFE ,EJA6lV4964<3@IV ,?2>6lV8C@FAV ,G2=F6lV") & CCCCJJC & CJJCJCCC("V") if instr(CCCJCCC,CCCCJJC)>0 then Response.Write CJJCJCCC(" ,4964<65") Response.Write CJJCJCCC("m") & CCCCCJC(CJCCCCJ+1) & CJJCJCCC("k^=236=m"):next:Response.Write(vbCrLf):Response.Write(CJJCJCCC(" ,k^E5m") & vbCrLf):Response.Write(CJJCJCCC(" ,")) end if:Response.Write(vbCrLf):Response.Write(CJJCJCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCCC(" ,k5:G ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CJJCJCCC(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ柠@ ,眆@Qm") & vbCrLf):Response.Write(CJJCJCCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\6I46=Q ,G2=F6lQ孓@丵@tI46=Qm") & vbCrLf):Response.Write(CJJCJCCC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJJCJCCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJCCC("k^7@C>m") & vbCrLf)::If request.QueryString(CJJCJCCC("A@DE"))=1 Then Call CheckQueryTime(CJJCJCCC("+:IF?$6C:@FD"),20):dim CCJJJCC,CCJJCJJ,CCCCCCJ,CCJJCCC,CCJCCCJ:CCCJCJC=cdate(CCCJCJC)+1:if CCCJCCJ<>"" then CCCCJCJ=true:CCCJCCJ=replace(CCCJCCJ,CJJCJCCC(" ,"),""):CCCJCCJ=replace(CCCJCCJ,CJJCJCCC("["),CJJCJCCC("M")):CCCJCCJ=split(CCCJCCJ,CJJCJCCC("M")) end if:if CCCJCCC<>"" then CCCCJCC=true:CCCJCCC=replace(CCCJCCC,CJJCJCCC(" ,"),""):CCCJCCC=replace(CCCJCCC,CJJCJCCC("["),CJJCJCCC("M")):CCCJCCC=split(CCCJCCC,CJJCJCCC("M")) end if:dim CCCCCCC(3):CCCCCCC(0)=Array(CJJCJCCC("丠@釈@稆@庡@"),0,CJJCJCCC("缎@考,"),CJJCJCCC("伌@孡@夈@孡@"),CJJCJCCC("宱@屙@陥@诶@"),CJJCJCCC("宱@屙@丈@矠@惀@"),CJJCJCCC("件@佐@共@仑@電@襼@矠@伕@陝@糶@兮@泣@癿@厚@四@"),CJJCJCCC("诐@诶@朚@")):CCCCCCC(1)=Array(CJJCJCCC("疌@伷@我@昉@硩@匶@疒@诅@斨@"),6,CJJCJCCC("月@荪@"),CJJCJCCC("粹@祙@刁@袽@"),CJJCJCCC("叇@同@惀@愚@隗@碈@"),CJJCJCCC("無@虌@痂@（,犱@忼@）,"),CJJCJCCC("抌@邼@痂@（,犱@忼@）,"),CJJCJCCC("張@迦@痂@"),CJJCJCCC("迖@飚@隗@碈@"),CJJCJCCC("夬@眛@"),CJJCJCCC("共@仑@粹@祙@痂@犱@"),CJJCJCCC("躪@低@疹@痀@"),CJJCJCCC("丈@遰@匶@嘬@")):CCCCCCC(2)=Array(CJJCJCCC("卬@怠@惀@冰@"),17,CJJCJCCC("夬@聏@、,凵@赫@"),CJJCJCCC("臥@伟@"),CJJCJCCC("伟@宮@仑@亵@"),CJJCJCCC("臥@朻@忰@夯@"),CJJCJCCC("臥@朻@朥@逽@")):CCCCCCC(3)=Array(CJJCJCCC("轧@仆@"),22,CJJCJCCC("躪@低@疹@痀@轧@仆@"),CJJCJCCC("丠@釈@徾@琁@闩@颓@^粹@祙@疹@痀@轧@仆@"),CJJCJCCC("轧@仆@臮@孡@乛@双@屐@丨@徾@"),CJJCJCCC("轧@仆@臮@尬@丕@挂@寷@丨@徾@")):dim CCJCJCC():CJJCJCJ=CJJCJCCC("D6=64E ,8C256[4FDE@>8C@FA[D6I[D6C:@FD02DD6DD[5:28?@D:D[D:EF2E:@?[C676CC2= ,7C@> ,G0KI ,H96C6 ,DE2EFDmlc ,2?5 ,D6C:@FDmlb ,2?5 ,>6>36C0EJA60E@Al") & CCJJJJJ & CJJCJCCC(" ,2?5 ,KIE:>6mlV") & CCCJCJJ & CJJCJCCC("V ,2?5 ,KIE:>6klV") & CCCJCJC & CJJCJCCC("V") Set CJJCJJJ = Server.CreateObject(CJJCJCCC("ps~sq]#64@C5D6E")):CJJCJJJ.open CJJCJCJ,CJJJCCJ,1:if CJJCJJJ.eof then Call RedirectMessage(CJJCJCCC("寴@丈@赲@，,彎@剈@苾@囯@沜@朄@咣@话@讫@彐@。,")) redim CCJCJCC(CJJCJJJ.RecordCount,6):Call ArrayInit(CCJCJCC):for CJCCCCJ=1 to CJJCJJJ.recordcount:for CCJJJCC=0 to 6:CCJCJCC(CJCCCCJ,CCJJJCC)=CJJCJJJ(CCJJJCC):next:CJJCJJJ.movenext:next:dim CJJJJJJJ,CJJJJJJC(25,17),CJJJJJCJ(25,5),CJJJJJCC(25,1),CJJJJCJJ(25),CJJJJCJC(3,5),CJJJJCCJ(3,1),CJJJJCCC(3):CJJJJJJJ=ubound(CCJCJCC):Call ArrayInit(CJJJJJJC):Call ArrayInit(CJJJJJCJ):Call ArrayInit(CJJJJJCC):Call ArrayInit(CJJJJCJJ):Call ArrayInit(CJJJJCJC):Call ArrayInit(CJJJJCCJ):Call ArrayInit(CJJJJCCC):for CJCCCCJ=1 to CJJJJJJJ:for CCJJJCC=0 to 3:CJCCCCC=CCCCCCC(CCJJJCC):for CCJJCJJ=2 to ubound(CJCCCCC):if Instr(CCJCJCC(CJCCCCJ,CCJJJCC+3),CJCCCCC(CCJJCJJ))>0 then CCJJCCC=CJCCCCC(1)+CCJJCJJ-2:if CCCCJCJ then for CCCCCCJ=0 to ubound(CCCJCCJ) step 2:if CCJCJCC(CJCCCCJ,0) & ""=CCCJCCJ(CCCCCCJ) then CCJCCCJ=CCCCCCJ/2:CJJJJJJC(CCJJCCC,CCJCCCJ)=CJJJJJJC(CCJJCCC,CCJCCCJ)+1:exit for end if:next end if:if CCCCJCC then for CCCCCCJ=0 to ubound(CCCJCCC) step 2:if CCJCJCC(CJCCCCJ,1) & ""=CCCJCCC(CCCCCCJ) then CCJCCCJ=CCCCCCJ/2:CJJJJJCJ(CCJJCCC,CCJCCCJ)=CJJJJJCJ(CCJJCCC,CCJCCCJ)+1:CJJJJCJC(CCJJJCC,CCJCCCJ)=CJJJJCJC(CCJJJCC,CCJCCCJ)+1:exit for end if:next end if:CCJCCCJ=IIf(CCJCJCC(CJCCCCJ,2),0,1):CJJJJJCC(CCJJCCC,CCJCCCJ)=CJJJJJCC(CCJJCCC,CCJCCCJ)+1:CJJJJCCJ(CCJJJCC,CCJCCCJ)=CJJJJCCJ(CCJJJCC,CCJCCCJ)+1:CJJJJCJJ(CCJJCCC)=CJJJJCJJ(CCJJCCC)+1 end if:next:if CCJCJCC(CJCCCCJ,CCJJJCC+3)<>"" then CJJJJCCC(CCJJJCC)=CJJJJCCC(CCJJJCC)+1 end if:next:next:dim CJJJCJJJ:CJJJCJJJ=CJJCJCCC("k2CE:4=6mkE23=6 ,4=2DDlVE30DE2EVmkE9625mkECmkE9 ,4@=DA2?lVaVm访@伫@刁@籶@k^E9m") if CCCCJCJ then CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kE9 ,4@=DA2?lV") & (ubound(CCCJCCJ)+1)/2 & CJJCJCCC("Vm") & CJJCJJJC(CJJCJCCC("vC256")) & CJJCJCCC("刁@顴@k^E9m") if CCCCJCC then CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kE9 ,4@=DA2?lV") & (ubound(CCCJCCC)+1)/2 & CJJCJCCC("Vm") & CCCJJJC(3) & CJJCJCCC("刁@顴@k^E9m") CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kE9 ,4@=DA2?lVaVm怢@刦@刁@顴@k^E9mkE9 ,4@=DA2?lVaVm刁@顴@吃@讜@k^E9m") if CCCCJCC then CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kE9 ,4@=DA2?lV") & (ubound(CCCJCCC)+1)/2 & CJJCJCCC("Vm夢@籶@") & CCCJJJC(3) & CJJCJCCC("刁@顴@k^E9m") CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kE9 ,4@=DA2?lVaVm夢@籶@怢@刦@刁@顴@k^E9mkE9 ,4@=DA2?lVaVm夢@籶@吃@讜@k^E9mk^ECmkECmkE9m夢@籶@k^E9mkE9m访@伫@k^E9m") if CCCCJCJ then for CJCCCCJ=0 to ubound(CCCJCCJ) step 2:CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kE9 ,E:E=6lV") & CCCJCCJ(CJCCCCJ) & CJJCJCCC("Vm") & CCCJCCJ(CJCCCCJ+1) & CJJCJCCC("k^E9m") next end if:if CCCCJCC then for CJCCCCJ=0 to ubound(CCCJCCC) step 2:CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kE9 ,E:E=6lV") & CCCJCCC(CJCCCCJ) & CJJCJCCC("Vm") & CCCJCCC(CJCCCCJ+1) & CJJCJCCC("k^E9m") next end if:CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kE9m甲@k^E9mkE9m奮@k^E9mkE9m吃@讜@k^E9mkE9m癹@刁@每@k^E9m"):if CCCCJCC then for CJCCCCJ=0 to ubound(CCCJCCC) step 2:CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kE9m") & CCCJCCC(CJCCCCJ+1) & CJJCJCCC("k^E9m"):next end if:CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kE9m甲@k^E9mkE9m奮@k^E9mkE9m吃@讜@k^E9mkE9m癹@刁@每@k^E9mk^ECmk^E9625mkE3@5Jm"):for CJCCCCJ=0 to 3:CJCCCCC=CCCCCCC(CJCCCCJ):CCJJCCC=CJCCCCC(1):CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kECmkE5 ,C@HDA2?lV") & ubound(CJCCCCC)-1 & CJJCJCCC("V ,4=2DDlVE6IE\=67EV ,E:E=6lV") & CJCCCCJ & CJJCJCCC("Vm") & CJCCCCC(0) & CJJCJCCC("k^E5mkE5 ,4=2DDlVE6IE\=67EV ,E:E=6lV") & CCJJCCC & CJJCJCCC("Vm") & CJCCCCC(2) & CJJCJCCC("k^E5m") if CCCCJCJ then for CCJJJCC=0 to ubound(CCCJCCJ)-1 step 2:CCJCCCJ=CCJJJCC/2:CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kE5m") & IIf(CJJJJJJC(CCJJCCC,CCJCCCJ)=0,"",CJJJJJJC(CCJJCCC,CCJCCCJ)) & CJJCJCCC("k^E5m"):next end if:if CCCCJCC then for CCJJJCC=0 to ubound(CCCJCCC) step 2:CCJCCCJ=CCJJJCC/2:CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kE5m") & IIf(CJJJJJCJ(CCJJCCC,CCJCCCJ)=0,"",CJJJJJCJ(CCJJCCC,CCJCCCJ)) & CJJCJCCC("k^E5m"):next end if:CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kE5m") & IIf(CJJJJJCC(CCJJCCC,0)=0,"",CJJJJJCC(CCJJCCC,0)) & CJJCJCCC("k^E5mkE5m") & IIf(CJJJJJCC(CCJJCCC,1)=0,"",CJJJJJCC(CCJJCCC,1)) & CJJCJCCC("k^E5mkE5m") & IIf(CJJJJCJJ(CCJJCCC)=0,"",CJJJJCJJ(CCJJCCC)) & CJJCJCCC("k^E5mkE5m") & IIf(CJJJJCJJ(CCJJCCC)=0,"",formatpercent(CJJJJCJJ(CCJJCCC)/CJJJJJJJ,1,-1)) & CJJCJCCC("k^E5m"):if CCCCJCC then for CCJJJCC=0 to ubound(CCCJCCC) step 2:CCJCCCJ=CCJJJCC/2:CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kE5 ,C@HDA2?lV") & ubound(CJCCCCC)-1 & CJJCJCCC("Vm") & IIf(CJJJJCJC(CJCCCCJ,CCJCCCJ)=0,"",CJJJJCJC(CJCCCCJ,CCJCCCJ)) & CJJCJCCC("k^E5m") next end if:CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kE5 ,C@HDA2?lV") & ubound(CJCCCCC)-1 & CJJCJCCC("Vm") & IIf(CJJJJCCJ(CJCCCCJ,0)=0,"",CJJJJCCJ(CJCCCCJ,0)) & CJJCJCCC("k^E5mkE5 ,C@HDA2?lV") & ubound(CJCCCCC)-1 & CJJCJCCC("Vm") & IIf(CJJJJCCJ(CJCCCCJ,1)=0,"",CJJJJCCJ(CJCCCCJ,1)) & CJJCJCCC("k^E5mkE5 ,C@HDA2?lV") & ubound(CJCCCCC)-1 & CJJCJCCC("Vm") & IIf(CJJJJCCC(CJCCCCJ)=0,"",CJJJJCCC(CJCCCCJ)) & CJJCJCCC("k^E5mkE5 ,C@HDA2?lV") & ubound(CJCCCCC)-1 & CJJCJCCC("Vm") & IIf(CJJJJCCC(CJCCCCJ)=0,"",formatpercent(CJJJJCCC(CJCCCCJ)/CJJJJJJJ,1,-1)) & CJJCJCCC("k^E5mk^ECm") for CCJJJCC=3 to ubound(CJCCCCC):CCJJCCC=CJCCCCC(1)+CCJJJCC-2:CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kECmkE5 ,4=2DDlVE6IE\=67EV ,E:E=6lV") & CCJJCCC & CJJCJCCC("Vm") & CJCCCCC(CCJJJCC) & CJJCJCCC("k^E5m") if CCCCJCJ then for CCJJCJJ=0 to ubound(CCCJCCJ) step 2:CCJCCCJ=CCJJCJJ/2:CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kE5m") & IIf(CJJJJJJC(CCJJCCC,CCJCCCJ)=0,"",CJJJJJJC(CCJJCCC,CCJCCCJ)) & CJJCJCCC("k^E5m"):next end if:if CCCCJCC then for CCJJCJJ=0 to ubound(CCCJCCC) step 2:CCJCCCJ=CCJJCJJ/2:CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kE5m") & IIf(CJJJJJCJ(CCJJCCC,CCJCCCJ)=0,"",CJJJJJCJ(CCJJCCC,CCJCCCJ)) & CJJCJCCC("k^E5m"):next end if:CJJJCJJJ=CJJJCJJJ & CJJCJCCC("kE5m") & IIf(CJJJJJCC(CCJJCCC,0)=0,"",CJJJJJCC(CCJJCCC,0)) & CJJCJCCC("k^E5mkE5m") & IIf(CJJJJJCC(CCJJCCC,1)=0,"",CJJJJJCC(CCJJCCC,1)) & CJJCJCCC("k^E5mkE5m") & IIf(CJJJJCJJ(CCJJCCC)=0,"",CJJJJCJJ(CCJJCCC)) & CJJCJCCC("k^E5mkE5m") & IIf(CJJJJCJJ(CCJJCCC)=0,"",formatpercent(CJJJJCJJ(CCJJCCC)/CJJJJJJJ,1,-1)) & CJJCJCCC("k^E5mk^ECm"):next:next:CJJJCJJJ=CJJJCJJJ & CJJCJCCC("k^E3@5Jmk^E23=6mkDA2? ,DEJ=6lV7@?E\D:K6i`aAIjVm泣@：,戻@朄@敫@捩@坂@挄@栂@讫@欜@敫@杠@讜@敫@k^DA2?mk^2CE:4=6m") Response.Write CJJJCJJJ Else Response.Write(vbCrLf):Response.Write(CJJCJCCC("k7:6=5D6Em") & vbCrLf):Response.Write(CJJCJCCC(" ,k=686?5m擈@佗@误@昉@：,k^=686?5m") & vbCrLf):Response.Write(CJJCJCCC(" ,k@=m") & vbCrLf):Response.Write(CJJCJCCC(" ,k=:m“,无@朚@赲@”,咇@“,无@朚@歝@”,丵@咣@话@讫@彐@柠@话@苾@囯@，,卮@圣@返@严@无@朚@苾@囯@冀@咣@话@犱@忼@丵@：,巭@壿@琁@朥@宇@戋@、,巭@宇@戋@咇@巭@又@馃@，,仠@叅@丠@釈@稆@庡@丵@b、,c咇@d红@癿@讫@彐@；,k^=:m") & vbCrLf):Response.Write(CJJCJCCC(" ,k=:m“,昹@礵@")):Response.Write CJJCJJJC(CJJCJCCC("vC256")):Response.Write(CJJCJCCC("”,咇@“,昹@礵@")):Response.Write CCCJJJC(3):Response.Write(CJJCJCCC("”,句@冮@宕@绚@讜@衣@丨@昪@吡@昹@礵@诠@划@，,丈@佗@丵@柠@话@苾@囯@；,k^=:m") & vbCrLf):Response.Write(CJJCJCCC(" ,k=:m柠@话@每@轾@耒@贴@怢@胸@，,戻@仠@晽@宕@柠@话@闯@随@陋@刱@丵@a_种@。,k^=:m") & vbCrLf):Response.Write(CJJCJCCC(" ,k^@=m") & vbCrLf):Response.Write(CJJCJCCC("k^7:6=5D6Em") & vbCrLf) End If:Response.Write(vbCrLf):Response.Write(CJJCJCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCCC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCCC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6a6I46=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCCC("kD4C:AEm") & vbCrLf):Response.Write(CJJCJCCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCJCCC(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CJJCJCCC(" ,SWVR3E?\6I46=VX]@?WV4=:46lQ8C256Q.VX]AC@AWV4964<65V[SWE9:DX]AC@AWV4964<65VXXNX") & vbCrLf):Response.Write(CJJCJCCC(" ,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(CJJCJCCC("NX") & vbCrLf):Response.Write(CJJCJCCC("k^D4C:AEm") & vbCrLf):Response.Write(CJJCJCCC("k^3@5Jm") & vbCrLf):Response.Write(CJJCJCCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJCCCJ=nothing:set CJJJCCCC=nothing:set CJJCJJJJ=nothing:set CJJCJJJC=nothing:CJJCJJC.Close:Set CJJCJJC=Nothing:CJJCJJJ.Close:Set CJJCJJJ=Nothing:CJJJCCJ.Close:Set CJJJCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJJCJCCC(ByVal CJJCJCCJ) Dim CJJJCJJC, CJCCCCJ, CCJCCCJ CJJCJCCJ = Replace(CJJCJCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCCCCJ = 1 To Len(CJJCJCCJ) If CJCCCCJ <> CCJCCCJ Then CJJJCJJC = AscW(Mid(CJJCJCCJ, CJCCCCJ, 1)) If CJJJCJJC >= 33 And CJJJCJJC <= 79 Then CJJCJCCC = CJJCJCCC & Chr(CJJJCJJC + 47) ElseIf CJJJCJJC >= 80 And CJJJCJJC <= 126 Then CJJCJCCC = CJJCJCCC & Chr(CJJJCJJC - 47) Else CCJCCCJ = CJCCCCJ + 1 If Mid(CJJCJCCJ, CCJCCCJ, 1) = Chr(64) Then CJJCJCCC = CJJCJCCC & ChrW(CJJJCJJC + 5) Else CJJCJCCC = CJJCJCCC & Mid(CJJCJCCJ, CJCCCCJ, 1) End If End If Next End Function %>