<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCJJ, CCJCJC,CCJCCJ, CCJCCC, CCCJJJ:Set CCJCJJ = server.CreateObject(CCJJCJJ("ps~sq]r@??64E:@?")):CCJCJJ.open Application(CCJJCJJ("r@??64E:@?$EC:?8")):Set CCJCJC=CCJCJJ::Dim CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC:Dim CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC:Dim CJJCJJJ,CJJCJJC,CJJCJCJ:Dim CJJCJCC:CJJCJCC=Trim(Request.Cookies(CCJJCJJ("!$*|t|qt#"))):if CJJCJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJJC>0 then
CCCJJJ=CCJJCJJ("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") & CCCJCJ & CCJJCJJ("V ,2?5 ,:5l") & CCCJJC
set CCJCCJ=CCJCJJ.execute(CCCJJJ):If CCJCCJ.EOF Then
Call ClearMemberCookie
Else
CCCJCC=CCJCCJ(2) & "":CCCCJJ=CCJCCJ(3):CCCCJC=CCJCCJ(5):CCCCCJ=CCJCCJ(6):CCCCCC=CCJCCJ(9):CJJJJJJ=CCJCCJ(15):CJJJJCJ=CCJCCJ(0):CJJCJJC=CCJCCJ(1):CJJCJJJ=CCJCCJ(11) & "":CJJJJCC=CCJCCJ(10) & "":CJJJJJC=CCJCCJ(12):CJJJCJJ=CCJCCJ(14):CJJJCJC=CCJCCJ(13):CJJJCCJ=CCJCCJ(7) & "":CJJJCCC=CCJCCJ(4):CJJCJCJ=CCJCCJ(8):if isnull(CJJJJJJ) then CJJJJJJ=0
if isnull(CCCCCC) or CCCCCC=0 then CCCCCC=CCCCJJ
if isnull(CJJJCCC) then CJJJCCC=0
if isnull(CCCCJC) then CCCCJC=0
if instr(CCJJCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJCJ)>0 then Call RedirectMessage(CCJJCJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCCJJC,CCCJCJ)
End IF
end if:::Sub CheckLogined():if CCCJJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCCJJ:CJJCCJJ=trim(request.QueryString(CCJJCJJ("D49@@="))):if isnumeric(CJJCCJJ) then
response.Redirect CCJJCJJ("^>^G2?E^R^D49@@=^") & CJJCCJJ & CCJJCJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCJJCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJJCJJ("!$*|t|qt#"))="":CCCJJC=0:CCCCCJ=0:CCCJCJ=Empty:CCCCJC=0:CJJJJJJ=0:CCCCCC=0:CCCCJJ=0:CJJJJCJ=False:CJJCJJC=False:CJJCJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC:CJJCCJC=split(CJJCJCC,CCJJCJJ("]")):if ubound(CJJCCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCCJC(0)) or len(CJJCCJC(1))<>32 or len(CJJCCJC(2))<>32 then
Call ClearMemberCookie
else
CJJCCCJ=CJJCCJC(1):for CJJCCCC=1 to len(CJJCCCJ):CJCJJJJ=mid(CJJCCCJ,CJJCCCC,1):if isnumeric(CJCJJJJ) then CJCJJJC=CJCJJJC & CJCJJJJ
if len(CJCJJJC)=7 then exit for
next:CJJCCCJ=CJJCCJC(2):if CJCJJJC<>mid(CJJCCCJ,6,7) then
Call ClearMemberCookie
else
CJCJJJJ=mid(CJJCCCJ,18,10)/2:if CJCJJJJ<DateDiff(CCJJCJJ("D"), CCJJCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJJC=Clng(CJJCCJC(0)):CCCJCJ=CJJCCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJCJC,CCJJCCJ):dim CJJCCCC,CJCJJJJ,CJCJJJC:for CJJCCCC=1 to len(CCJJCCJ):CJCJJJJ=mid(CCJJCCJ,CJJCCCC,1):if isnumeric(CJCJJJJ) then CJCJJJC=CJCJJJC & CJCJJJJ
if len(CJCJJJC)=7 then exit for
next:CJCJJJC=CCJJCJC & CCJJCJJ("]") & CCJJCCJ & CCJJCJJ("]") & Fix(10000*(Rnd+1)) & CJCJJJC & Fix(10000*(Rnd+1)) & DateDiff(CCJJCJJ("D"), CCJJCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJJCJJ("!$*|t|qt#"))=CJCJJJC:End Sub:::Function IIf(CCJJCCC, CCJCJJJ, CCJCJJC):if isnull(CCJJCCC) or isempty(CCJJCCC) then
IIf = CCJCJJC
elseif CCJJCCC Then
IIf = CCJCJJJ
Else
IIf = CCJCJJC
end if:End Function:Const CJCCJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCJCJCJ,CCJCJCC):dim CJJCCJC:CJJCCJC=CCJCJCJ & "=" & CCJCJCC & CCJJCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJCJJ("$6E\r@@<:6"),CJJCCJC):End Sub:::::::Function CJCCCJC(CJCCJCJ):if isnull(CJCCJCJ) or trim(CJCCJCJ)="" or not isnumeric(CJCCJCJ) then
CJCCCJC=false
else
Dim CJCJJCJ:Set CJCJJCJ = New RegExp:CJCJJCJ.Pattern = CCJJCJJ("/-5ZS"):CJCJJCJ.IgnoreCase = True:CJCCCJC = CJCJJCJ.test(CJCCJCJ):set CJCJJCJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJCCCCJ=nothing:set CJCCCCC=nothing:set CCJJJJJ=nothing:set CCJJJJC=nothing:CJCJCJC.close : set CJCJCJC=nothing:CCJCCC.Close : Set CCJCCC=Nothing:CCJCCJ.Close : Set CCJCCJ=Nothing:CCJJJCJ.Close : Set CCJJJCJ = Nothing:CCJCJJ.Close : Set CCJCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJCJJ("!$*0|6DD286"),server.URLEncode(CCJCCJJ)):Response.Redirect CCJJCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::dim CJJCCJJ:CCCJJJ=Request.ServerVariables(CCJJCJJ("!p%w0x}u~")):if instr(CCCJJJ,CCJJCJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJJJCJ and not CJJCJJC then Call RedirectMessage(CCJJCJJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJJCCJJ=CCCCCC
elseif instr(CCCJJJ,CCJJCJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCCJJJ,CCJJCJJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJCCJJ=CCCCCC
elseif instr(CCCJJJ,CCJJCJJ("^D49@@="))>0 then
CJJCCJJ=Request.QueryString(CCJJCJJ("D49@@=")):if not CJCCCJC(CJJCCJJ) then CJJCCJJ=Request.QueryString(CCJJCJJ("F"))
if not CJCCCJC(CJJCCJJ) then CJJCCJJ=Request.QueryString(CCJJCJJ("D4"))
if not CJCCCJC(CJJCCJJ) then Call RedirectMessage(CCJJCJJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJJCCJJ=csng(CJJCCJJ)
end if:if CJJCCJJ=0 then Call RedirectMessage(CCJJCJJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CJCJJCC:Call SetConfig:Sub SetConfig():dim CJCJCJJ,CJCJCJC:CCCJJJ=CCJJCJJ("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") & CJJCCJJ:set CJCJCJC=CCJCJJ.execute(CCCJJJ):if CJCJCJC.eof then Call RedirectMessage(CCJJCJJ("患@W") & CCCJJC & CCJJCJJ("X戻@圣@癿@卐@佈@W") & CJJCCJJ & CCJJCJJ("X朥@批@别@。,"))
ReDim CJCJCJJ(61):CJCJCJJ(0)=CJCJCJC(CCJJCJJ(";:2@H6:")) & "":CJCJCJJ(1)=CJCJCJC(CCJJCJJ("EJA6")):CJCJCJJ(2)=CJCJCJC(CCJJCJJ("D>D")):CJCJCJJ(3)=CJCJCJC(CCJJCJJ("4FDE@>8C@FA")) & "":CJCJCJJ(4)=CJCJCJC(CCJJCJJ("D:5632C0@E96C")) & "":CJCJCJJ(5)=IIf(isnull(CJCJCJC(CCJJCJJ("E6DEC6DF=EG:6H"))),0,CJCJCJC(CCJJCJJ("E6DEC6DF=EG:6H"))):CJCJCJJ(6)=CJCJCJC(CCJJCJJ("K:IF?E:>6")):CJCJCJJ(7)=CJCJCJC(CCJJCJJ("766")):CJCJCJJ(8)=CJCJCJC(CCJJCJJ("C6E6DE52J")):CJCJCJJ(9)=CJCJCJC(CCJJCJJ("6IA:C652E6")):CJCJCJJ(10)=CJCJCJC(CCJJCJJ("E:E=6")):CJCJCJJ(11)=CJCJCJC(CCJJCJJ(":?EC@")) & "":CJCJCJJ(12)=CJCJCJC(CCJJCJJ("A:4EFC6")) & "":CJCJCJJ(13)=CJCJCJC(CCJJCJJ("72>:=J")):CJCJCJJ(14)=CJCJCJC(CCJJCJJ("4@AJC:89E")) & "":CJCJCJJ(15)=IIf(isnull(CJCJCJC(CCJJCJJ("D6>6DE6C0DE2CE052E6"))),CCJJCJJ("`h__\`\`"),CJCJCJC(CCJJCJJ("D6>6DE6C0DE2CE052E6"))):CJCJCJJ(16)=IIf(isnull(CJCJCJC(CCJJCJJ("K:IF?0E:>6D09:89=:89E"))),0,CJCJCJC(CCJJCJJ("K:IF?0E:>6D09:89=:89E"))):CJCJCJJ(17)=CJCJCJC(CCJJCJJ("4@?E24E")) & "":CJCJCJJ(18)=CJCJCJC(CCJJCJJ("D2?5E23=6")):CJCJCJJ(19)=CJCJCJC(CCJJCJJ("4C:D:D")):CJCJCJJ(20)=CJCJCJC(CCJJCJJ("JJ52E6")):CJCJCJJ(21)=CJCJCJC(CCJJCJJ("BB")):CJCJCJJ(22)=CJCJCJC(CCJJCJJ("JFJF60D>D0EA=")) & "":CJCJCJJ(23)=CJCJCJC(CCJJCJJ("JFJF60E6DE0=3")) & "":CJCJCJJ(25)=CJCJCJC(CCJJCJJ("6IA6CE")):CJCJCJJ(26)=CJCJCJC(CCJJCJJ(">@5:?7@")):CJCJCJJ(27)=CJCJCJC(CCJJCJJ("9@>6A286E@AA:4EFC6")) & "":CJCJCJJ(28)=CJCJCJC(CCJJCJJ("4C:D:D=3")):CJCJCJJ(29)=IIf(CJCJCJC(CCJJCJJ("4C:D:D@=5")),False,True):CJCJCJJ(30)=CJCJCJC(CCJJCJJ("8C@FA8F:52?46")):CJCJCJJ(31)=CJCJCJC(CCJJCJJ("3:@7665324<")):CJCJCJJ(32)=CJCJCJC(CCJJCJJ("<6JDEC")):CJCJCJJ(33)=CJCJCJC(CCJJCJJ("=@8@")) & "":CJCJCJJ(34)=CJCJCJC(CCJJCJJ("K:46")):CJCJCJJ(35)=IIf(CJCJCJC(CCJJCJJ(":D?6H")),True,False):CJCJCJJ(36)=121:CJCJCJJ(37)=111:CJCJCJJ(38)=160:CJCJCJJ(39)=CJCJCJC(CCJJCJJ("8F6DE3@@<")):CJCJCJJ(40)=CJCJCJC(CCJJCJJ("75D")):CJCJCJJ(42)=CJCJCJC(CCJJCJJ("9@>6=@8:?")):CJCJCJJ(43)=CJCJCJC(CCJJCJJ("K:IF?0?6657665324<")):CJCJCJJ(44)=CJCJCJC(CCJJCJJ("K:IF?0E:>6D0=:>:E")):CJCJCJJ(45)=CJCJCJC(CCJJCJJ("4@>A=6E60:?7@")):CJCJCJJ(46)=CJCJCJC(CCJJCJJ("E6DE:?EC@")) & "":CJCJCJJ(47)=IIf(isnull(CJCJCJC(CCJJCJJ("JFJF60367@C60E:>6"))),0,CJCJCJC(CCJJCJJ("JFJF60367@C60E:>6"))):CJCJCJJ(49)=CJCJCJC(CCJJCJJ("D>D0C646:G6C")):CJCJCJJ(50)=CJCJCJC(CCJJCJJ("D>D0D:8?")) & "":CJCJCJJ(52)=CJCJCJC(CCJJCJJ("JFJF602CC2?86")):CJCJCJJ(53)=IIf(isnull(CJCJCJC(CCJJCJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJCJC(CCJJCJJ("DEF56?E0BF6DE:@?04@F?E"))):CJCJCJJ(54)=CJCJCJC(CCJJCJJ("9:560=30@FE@7286")):CJCJCJJ(55)=CJCJCJC(CCJJCJJ("JFJF60E6DE052JD")):CJCJCJJ(56)=CJCJCJC(CCJJCJJ("JFJF60H66<0=:>:E")):CJCJCJJ(57)=CJCJCJC(CCJJCJJ("JFJF604964<65")):CJCJCJJ(58)=CJCJCJC(CCJJCJJ("K:IF?0?6657665324<0?6IE")):CJCJCJJ(59)=CJCJCJC(CCJJCJJ("4964<?6HDEF56?E")):CJCJCJJ(60)=CJCJCJC(CCJJCJJ("K:IF?04=@D6052E6")):CJCJCJC.close : set CJCJCJC=nothing:if isNull(CJCJCJJ(8)) or CJCJCJJ(8)="" then CJCJCJJ(8)=0
if isdate(CJCJCJJ(9)) then
CJCJCJJ(9)=cdate(CJCJCJJ(9)):if CJCJCJJ(9)<Date then Call RedirectMessage(CCJJCJJ("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CJCJCJJ(9) & CCJJCJJ("X巭@迂@。,"))
end if:if not CJCCCJC(CJCJCJJ(20)) then CJCJCJJ(20)=7
select case CJCJCJJ(1):case 1,2,16:CJCJCJJ(36)=159:case 4,5,6,10,11:CJCJCJJ(36)=190:CJCJCJJ(37)=178:CJCJCJJ(38)=191:case 7,13:CJCJCJJ(36)=164:CJCJCJJ(37)=178:CJCJCJJ(38)=179:end select:CJCJJCC=CJCJCJJ:End Sub:Function CCJJJJC(CCJCCJC):dim CJCJCJJ(7,1),CJJCCCC,CJCJCCJ,CJCJCCC:CJCJCCJ=Array(CCJJCJJ("$49@@="),CCJJCJJ("$EF56?E"),CCJJCJJ("s6AE"),CCJJCJJ("vC256"),CCJJCJJ("r=2DD>2E6"),CCJJCJJ("}F>36C"),CCJJCJJ("%62496C"),CCJJCJJ("!2C6?E")):select case CJCJJCC(1):case 1,2 : CJCJCCC=Array(CCJJCJJ("孡@栜@"),CCJJCJJ("孡@甚@"),CCJJCJJ("珨@红@"),CCJJCJJ("幯@红@"),CCJJCJJ("吇@孡@"),CCJJCJJ("孡@史@"),CCJJCJJ("敔@布@"),CCJJCJJ("宱@镺@")):case 3,16 : CJCJCCC=Array(CCJJCJJ("孡@栜@"),CCJJCJJ("孡@甚@"),CCJJCJJ("陝@糶@"),CCJJCJJ("幯@红@"),CCJJCJJ("吇@孡@"),CCJJCJJ("孡@史@"),CCJJCJJ("敔@布@"),CCJJCJJ("宱@镺@")):case 4 : CJCJCCC=Array(CCJJCJJ("匶@陝@"),CCJJCJJ("杠@论@耀@"),CCJJCJJ("卐@佈@"),CCJJCJJ("幯@仸@"),CCJJCJJ("吇@了@"),CCJJCJJ("缑@史@"),CCJJCJJ("匶@甚@"),CCJJCJJ("宱@屙@")):case 5 : CJCJCCC=Array(CCJJCJJ("卐@佈@"),CCJJCJJ("呓@巠@"),CCJJCJJ("郣@闣@"),CCJJCJJ("幯@仸@"),CCJJCJJ("吇@了@"),CCJJCJJ("缑@史@"),CCJJCJJ("呓@巠@"),CCJJCJJ("宱@屙@")):case 6 : CJCJCCC=Array(CCJJCJJ("卐@佈@"),CCJJCJJ("杠@论@耀@"),CCJJCJJ("线@刦@"),CCJJCJJ("幯@仸@"),CCJJCJJ("吇@了@"),CCJJCJJ("缑@史@"),CCJJCJJ("咣@话@布@"),CCJJCJJ("宱@屙@")):case 7 : CJCJCCC=Array(CCJJCJJ("卐@佈@"),CCJJCJJ("宓@兰@"),CCJJCJJ("郣@闣@"),CCJJCJJ("幯@仸@"),CCJJCJJ("戓@叆@"),CCJJCJJ("缑@史@"),CCJJCJJ("咣@话@布@"),CCJJCJJ("宱@屙@")):case 8 : CJCJCCC=Array(CCJJCJJ("卐@佈@"),CCJJCJJ("杠@论@耀@"),CCJJCJJ("卐@佈@"),CCJJCJJ("兠@聇@幯@仸@"),CCJJCJJ("吇@了@"),CCJJCJJ("缑@史@"),CCJJCJJ("咣@话@布@"),CCJJCJJ("酈@偱@")):case 9 : CJCJCCC=Array(CCJJCJJ("卐@佈@"),CCJJCJJ("敔@布@"),CCJJCJJ("卐@佈@"),CCJJCJJ("幯@仸@"),CCJJCJJ("吇@了@"),CCJJCJJ("缑@史@"),CCJJCJJ("咣@话@布@"),CCJJCJJ("酈@偱@")):case 10 : CJCJCCC=Array(CCJJCJJ("卐@佈@"),CCJJCJJ("氌@譡@"),CCJJCJJ("郣@闣@"),CCJJCJJ("兠@譡@幯@仸@"),CCJJCJJ("吇@了@"),CCJJCJJ("缑@史@"),CCJJCJJ("咣@话@布@"),CCJJCJJ("宱@屙@")):case 11 : CJCJCCC=Array(CCJJCJJ("卐@佈@"),CCJJCJJ("內@劜@呓@"),CCJJCJJ("郣@闣@"),CCJJCJJ("幯@仸@"),CCJJCJJ("吇@了@"),CCJJCJJ("缑@史@"),CCJJCJJ("咣@话@布@"),CCJJCJJ("宱@屙@")):case 12 : CJCJCCC=Array(CCJJCJJ("卐@佈@"),CCJJCJJ("幭@譡@"),CCJJCJJ("卐@佈@"),CCJJCJJ("兠@譡@幯@仸@"),CCJJCJJ("吇@了@"),CCJJCJJ("缑@史@"),CCJJCJJ("咣@话@布@"),CCJJCJJ("宱@屙@")):case 13 : CJCJCCC=Array(CCJJCJJ("卐@佈@"),CCJJCJJ("孡@呓@"),CCJJCJJ("卐@佈@"),CCJJCJJ("幯@仸@"),CCJJCJJ("戓@叆@"),CCJJCJJ("缑@史@"),CCJJCJJ("敔@呓@"),CCJJCJJ("宱@屙@")):case 14 : CJCJCCC=Array(CCJJCJJ("月@劜@炴@"),CCJJCJJ("局@氌@"),CCJJCJJ("线@刦@"),CCJJCJJ("幯@仸@"),CCJJCJJ("邶@采@"),CCJJCJJ("缑@史@"),CCJJCJJ("咣@话@布@"),CCJJCJJ("宱@屙@")):case 15 : CJCJCCC=Array(CCJJCJJ("卐@佈@"),CCJJCJJ("盌@独@氌@譡@"),CCJJCJJ("卐@佈@"),CCJJCJJ("兠@譡@幯@仸@"),CCJJCJJ("吇@了@"),CCJJCJJ("缑@史@"),CCJJCJJ("咣@话@布@"),CCJJCJJ("宱@屙@")):case else : CJCJCCC=CJCJCCJ
end select:for CJJCCCC=0 to Ubound(CJCJCJJ):CJCJCJJ(CJJCCCC,0)=CJCJCCJ(CJJCCCC):CJCJCJJ(CJJCCCC,1)=CJCJCCC(CJJCCCC):next:for CJJCCCC=0 to Ubound(CJCJCJJ):if CJCJCJJ(CJJCCCC,0)=CCJCCJC then
CCJJJJC=CJCJCJJ(CJJCCCC,1):exit for
end if:next:End Function:Response.Write(vbCrLf):Response.Write(CCJJCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJJCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJJCJJ("k9625m") & vbCrLf):Response.Write(CCJJCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJJCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJJCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJJCJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJJCJJ("kE:E=6m""""圣@纺@咣@话@k^E:E=6m") & vbCrLf):Response.Write(CCJJCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CCJJCJJ("kDEJ=6m") & vbCrLf):Response.Write(CCJJCJJ("]2>\96256C\5672F=EL324<8C@F?5\4@=@CiR_`e265jN") & vbCrLf):Response.Write(CCJJCJJ("]=:DEL5:DA=2Ji7=6Ij;FDE:7J\4@?E6?EiDA246\36EH66?j2=:8?\:E6>Di46?E6CjN") & vbCrLf):Response.Write(CCJJCJJ("]BBL7@?E\D:K6i`cAIj4@=@CiRhhhjN") & vbCrLf):Response.Write(CCJJCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCJJCJJ("k^9625m") & vbCrLf):Response.Write(CCJJCJJ("k3@5Jm") & vbCrLf):Response.Write(CCJJCJJ("kP\\ ,顰@夯@ ,\\m") & vbCrLf):Response.Write(CCJJCJJ("k96256C ,52E2\2>\H:586ElQ96256CQ ,4=2DDlQ2>\96256C ,2>\96256C\5672F=EQm") & vbCrLf):Response.Write(CCJJCJJ(" ,k5:G ,4=2DDlQ2>\96256C\=67E ,2>\96256C\?2GQm") & vbCrLf):Response.Write(CCJJCJJ(" ,k2 ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXjQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\2?8=6\=67EQmk^:mk^2m") & vbCrLf):Response.Write(CCJJCJJ(" ,k2 ,9C67lQ^>^G2?E^R^D49@@=^DEF56?EQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\9@>6Qmk^:mk^2m") & vbCrLf):Response.Write(CCJJCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJJCJJ(" ,k9` ,4=2DDlQ2>\96256C\E:E=6 ,2>\E6IE\ECF?42E6Qm""""圣@纺@咣@话@k^9`m") & vbCrLf):Response.Write(CCJJCJJ(" ,k5:G ,4=2DDlQ2>\96256C\C:89E ,2>\96256C\?2GQmk2 ,9C67lQ>J]2DAQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\FD6CQmk^:mk^2mk^5:Gm") & vbCrLf):Response.Write(CCJJCJJ("k^96256Cm") & vbCrLf):Response.Write(CCJJCJJ("k5:G ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CCJJCJJ(" ,k3Cm") & vbCrLf):Response.Write(CCJJCJJ(" ,")):if CJCJJCC(21)="" then
Response.Write CCJJCJJ("k5:G ,4=2DDlV2>\2=6CE ,2>\2=6CE\H2C?:?8Vm寴@丈@赲@，,箜@琁@呓@朥@讹@罩@""""圣@纺@咣@话@劚@胸@k^5:Gm")
else
dim CJCCJJJ,CJJCCCC:CJCCJJJ=split(CJCJJCC(21),CCJJCJJ("[")):for CJJCCCC=0 to ubound(CJCCJJJ):if CJJCCCC>0 then Response.Write CCJJCJJ("k9C ,52E2\2>\H:586ElV5:G:56CV ,4=2DDlV2>\5:G:56C ,2>\5:G:56C\5672F=EV ,^m")
Response.Write CCJJCJJ("k5:G ,4=2DDlV=:DEVmk5:Gm咣@话@逕@過@ ,kDA2? ,4=2DDlV2>\32586 ,2>\C25:FD ,2>\32586\D64@?52CJVm") & (CJJCCCC+1) & CCJJCJJ("k^DA2?mk5:G ,4=2DDlVBBVm""""：,") & CJCCJJJ(CJJCCCC) & CCJJCJJ("k^5:Gmk^5:Gm")
Response.Write CCJJCJJ("k3FEE@? ,4=2DDlV2>\3E? ,2>\3E?\DF446DDV ,52E2\BBlV") & CJCCJJJ(CJJCCCC) & CCJJCJJ("Vm竆@卮@咣@话@k^3FEE@?m")
Response.Write CCJJCJJ("k^5:Gm"):next
end if:Response.Write(vbCrLf):Response.Write(CCJJCJJ("k^5:Gm") & vbCrLf):Response.Write(CCJJCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^2>2K6F:]5:2=@8]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJJ("kD4C:AEm") & vbCrLf):Response.Write(CCJJCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCJJ(" ,G2C ,FD6Cp86?El?2G:82E@C]FD6Cp86?E") & vbCrLf):Response.Write(CCJJCJJ(" ,^^ ,竆@卮@咣@话@挄@钩@唟@赲@""""") & vbCrLf):Response.Write(CCJJCJJ(" ,SWV3FEE@?VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCJJ(" ,G2C ,BBlSWE9:DX]52E2WVBBVX") & vbCrLf):Response.Write(CCJJCJJ(" ,G2C ,FC=") & vbCrLf):Response.Write(CCJJCJJ(" ,:7WFD6Cp86?E]:?4=F56DWV|:4C@|6DD6?86CVXXLFC=lV9EEADi^^HA2]BB]4@>^>D8C5nGlbUF:?lVZBBZVUD:E6lBBU>6?FlJ6DVN") & vbCrLf):Response.Write(CCJJCJJ(" ,6=D6 ,:7W^:!9@?6M:!@5Mp?5C@:5M:@DM(:?5@HD ,!9@?6Mq=24<q6CCJMH63~$^]E6DEWFD6Cp86?EXXLFC=lV>BBHA2i^^:>^492En492E0EJA6lHA2UF:?lVZBBZVUG6CD:@?l`UDC40EJA6lH63UH630DC4lHHH]ADJ]4@>]4?VN") & vbCrLf):Response.Write(CCJJCJJ(" ,6=D6LFC=lV9EEADi^^HA2]BB]4@>^>D8C5nGlbUF:?lVZBBZVUD:E6lBBU>6?FlJ6DVN") & vbCrLf):Response.Write(CCJJCJJ(" ,H:?5@H]@A6?WFC=X") & vbCrLf):Response.Write(CCJJCJJ(" ,NX") & vbCrLf):Response.Write(CCJJCJJ("NX") & vbCrLf):Response.Write(CCJJCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJJCJJ("k^3@5Jm") & vbCrLf):Response.Write(CCJJCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCCCJ=nothing:set CJCCCCC=nothing:set CCJJJJJ=nothing:set CCJJJJC=nothing:CCJCCC.Close:Set CCJCCC=Nothing:CCJCCJ.Close:Set CCJCCJ=Nothing:CCJCJJ.Close:Set CCJCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJJCJJ(ByVal CCJJJCC)
Dim CJCCJJC, CJJCCCC, CJCCJCJ
CCJJJCC = Replace(CCJJJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCCCC = 1 To Len(CCJJJCC)
If CJJCCCC <> CJCCJCJ Then
CJCCJJC = AscW(Mid(CCJJJCC, CJJCCCC, 1))
If CJCCJJC >= 33 And CJCCJJC <= 79 Then
CCJJCJJ = CCJJCJJ & Chr(CJCCJJC + 47)
ElseIf CJCCJJC >= 80 And CJCCJJC <= 126 Then
CCJJCJJ = CCJJCJJ & Chr(CJCCJJC - 47)
Else
CJCCJCJ = CJJCCCC + 1
If Mid(CCJJJCC, CJCCJCJ, 1) = Chr(64) Then CCJJCJJ = CCJJCJJ & ChrW(CJCCJJC + 5) Else CCJJCJJ = CCJJCJJ & Mid(CCJJJCC, CJJCCCC, 1)
End If
End If
Next
End Function
%>