<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJJ, CCCJC,CCCCJ, CCCCC, CJJJJJ:Set CCCJJ = server.CreateObject(CJCJJCC("ps~sq]r@??64E:@?")):CCCJJ.open Application(CJCJJCC("r@??64E:@?$EC:?8")):Set CCCJC=CCCJJ::Dim CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC:Dim CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC:Dim CCJJJJ,CCJJJC,CCJJCJ:Dim CCJJCC:CCJJCC=Trim(Request.Cookies(CJCJJCC("!$*|t|qt#"))):if CCJJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJC>0 then
CJJJJJ=CJCJJCC("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") & CJJJCJ & CJCJJCC("V ,2?5 ,:5l") & CJJJJC
set CCCCJ=CCCJJ.execute(CJJJJJ):If CCCCJ.EOF Then
Call ClearMemberCookie
Else
CJJJCC=CCCCJ(2) & "":CJJCJJ=CCCCJ(3):CJJCJC=CCCCJ(5):CJJCCJ=CCCCJ(6):CJJCCC=CCCCJ(9):CJCJJJ=CCCCJ(15):CJCJCJ=CCCCJ(0):CCJJJC=CCCCJ(1):CCJJJJ=CCCCJ(11) & "":CJCJCC=CCCCJ(10) & "":CJCJJC=CCCCJ(12):CJCCJJ=CCCCJ(14):CJCCJC=CCCCJ(13):CJCCCJ=CCCCJ(7) & "":CJCCCC=CCCCJ(4):CCJJCJ=CCCCJ(8):if isnull(CJCJJJ) then CJCJJJ=0
if isnull(CJJCCC) or CJJCCC=0 then CJJCCC=CJJCJJ
if isnull(CJCCCC) then CJCCCC=0
if isnull(CJJCJC) then CJJCJC=0
if instr(CJCJJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCJ)>0 then Call RedirectMessage(CJCJJCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJJC,CJJJCJ)
End IF
end if:Sub CheckRight(CJCJCJJ):dim CCJCJJ,CCJCJC:if CJJJJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJJCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJJCJJC(CJCJCJJ) then
Call RedirectMessage(CJCJJCC("朾@陋@W") & CJCJCJJ & CJCJJCC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJJCJJC(CJCJCJJ):dim CCJCJJ,CCJCJC:CCJCJC=split(CJCJCJJ,CJCJJCC("[")):CJJCJJC=False:for CCJCJJ=0 to ubound(CCJCJC):If Mid(CJJJCC,CCJCJC(CCJCJJ),1)="1" then
CJJCJJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJJJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CCJCCJ:CCJCCJ=trim(request.QueryString(CJCJJCC("D49@@="))):if isnumeric(CCJCCJ) then
response.Redirect CJCJJCC("^>^G2?E^R^D49@@=^") & CCJCCJ & CJCJJCC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJCJJCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCJJCC("!$*|t|qt#"))="":CJJJJC=0:CJJCCJ=0:CJJJCJ=Empty:CJJCJC=0:CJCJJJ=0:CJJCCC=0:CJJCJJ=0:CJCJCJ=False:CCJJJC=False:CCJJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CCJCCC,CCCJJJ,CCJCJJ,CCCJJC,CCCJCJ:CCJCCC=split(CCJJCC,CJCJJCC("]")):if ubound(CCJCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJCCC(0)) or len(CCJCCC(1))<>32 or len(CCJCCC(2))<>32 then
Call ClearMemberCookie
else
CCCJJJ=CCJCCC(1):for CCJCJJ=1 to len(CCCJJJ):CCCJJC=mid(CCCJJJ,CCJCJJ,1):if isnumeric(CCCJJC) then CCCJCJ=CCCJCJ & CCCJJC
if len(CCCJCJ)=7 then exit for
next:CCCJJJ=CCJCCC(2):if CCCJCJ<>mid(CCCJJJ,6,7) then
Call ClearMemberCookie
else
CCCJJC=mid(CCCJJJ,18,10)/2:if CCCJJC<DateDiff(CJCJJCC("D"), CJCJJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJC=Clng(CCJCCC(0)):CJJJCJ=CCJCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJCJC,CJCJCCJ):dim CCJCJJ,CCCJJC,CCCJCJ:for CCJCJJ=1 to len(CJCJCCJ):CCCJJC=mid(CJCJCCJ,CCJCJJ,1):if isnumeric(CCCJJC) then CCCJCJ=CCCJCJ & CCCJJC
if len(CCCJCJ)=7 then exit for
next:CCCJCJ=CJCJCJC & CJCJJCC("]") & CJCJCCJ & CJCJJCC("]") & Fix(10000*(Rnd+1)) & CCCJCJ & Fix(10000*(Rnd+1)) & DateDiff(CJCJJCC("D"), CJCJJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJJCC("!$*|t|qt#"))=CCCJCJ:End Sub:::Function IIf(CJCJCCC, CJCCJJJ, CJCCJJC):if isnull(CJCJCCC) or isempty(CJCJCCC) then
IIf = CJCCJJC
elseif CJCJCCC Then
IIf = CJCCJJJ
Else
IIf = CJCCJJC
end if:End Function:Const CJJJCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCCJCJ,CJCCJCC):dim CCJCCC:CCJCCC=CJCCJCJ & "=" & CJCCJCC & CJCJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJJCC("$6E\r@@<:6"),CCJCCC):End Sub:::::::Function CJJCJCC(CCCCCC):if isnull(CCCCCC) or trim(CCCCCC)="" or not isnumeric(CCCCCC) then
CJJCJCC=false
else
Dim CCCJCC:Set CCCJCC = New RegExp:CCCJCC.Pattern = CJCJJCC("/-5ZS"):CCCJCC.IgnoreCase = True:CJJCJCC = CCCJCC.test(CCCCCC):set CCCJCC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJJCCJJ=nothing:set CJJCCJC=nothing:set CJJCCCJ=nothing:set CJJCCCC=nothing:CJJJJCJ.close : set CJJJJCJ=nothing:CCCCC.Close : Set CCCCC=Nothing:CCCCJ.Close : Set CCCCJ=Nothing:CJCJJJJ.Close : Set CJCJJJJ = Nothing:CCCJJ.Close : Set CCCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJJCC("!$*0|6DD286"),server.URLEncode(CJCCCJJ)):Response.Redirect CJCJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::Function CJCJJJC(CJCCCJC,str):dim CCJCJJ,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CCCJCJ:CCCJCJ=ucase(CJCCCJC):CJJJJJJ=str:if CJJJJJJ="" then
CJJJJJJ=request.cookies(CCCJCJ):if CJJJJJJ="" then
CJCJJJC=""
else
CJJJJJJ=strreverse(CJJJJJJ):CCCCJJ=len(CJJJJJJ):for CCJCJJ=1 to CCCCJJ-1 step 2:CCCCCJ=mid(CJJJJJJ,CCJCJJ,1):CCCCCC=mid(CJJJJJJ,CCJCJJ+1,1):CCCCJC=CCCCJC & CCCCCC & CCCCCJ:next:CCCCJC=replace(CCCCJC,CJCJJCC("L0N"),CJCJJCC(" ,")):CCCCJC=replace(CCCCJC,CJCJJCC("LIN"),CJCJJCC("Y")):CCCCJC=replace(CCCCJC,CJCJJCC("L:N"),CJCJJCC("^")):CJCJJJC=trim(CCCCJC)
end if
else
if Len(CJJJJJJ) Mod 2=1 then CJJJJJJ=CJJJJJJ & CJCJJCC(" ,")
CJJJJJJ=replace(CJJJJJJ,CJCJJCC(" ,"),CJCJJCC("L0N")):CJJJJJJ=replace(CJJJJJJ,CJCJJCC("Y"),CJCJJCC("LIN")):CJJJJJJ=replace(CJJJJJJ,CJCJJCC("^"),CJCJJCC("L:N")):CCCCJJ=len(CJJJJJJ):for CCJCJJ=1 to CCCCJJ-1 step 2:CCCCCJ=mid(CJJJJJJ,CCJCJJ,1):CCCCCC=mid(CJJJJJJ,CCJCJJ+1,1):CCCCJC=CCCCJC & CCCCCC & CCCCCJ:next:CCCCJC=Trim(strreverse(CCCCJC)):CJCJJJC=CCCCJC:response.cookies(CCCJCJ)=CCCCJC
end if:End Function::::dim CCJCCJ:CJJJJJ=Request.ServerVariables(CJCJJCC("!p%w0x}u~")):if instr(CJJJJJ,CJCJJCC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCJCJ and not CCJJJC then Call RedirectMessage(CJCJJCC("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CCJCCJ=CJJCCC
elseif instr(CJJJJJ,CJCJJCC("^>^D49@@=^DEF56?E^"))>0 or instr(CJJJJJ,CJCJJCC("^DEF56?E^"))>0 then
Call CheckLogined:CCJCCJ=CJJCCC
elseif instr(CJJJJJ,CJCJJCC("^D49@@="))>0 then
CCJCCJ=Request.QueryString(CJCJJCC("D49@@=")):if not CJJCJCC(CCJCCJ) then CCJCCJ=Request.QueryString(CJCJJCC("F"))
if not CJJCJCC(CCJCCJ) then CCJCCJ=Request.QueryString(CJCJJCC("D4"))
if not CJJCJCC(CCJCCJ) then Call RedirectMessage(CJCJJCC("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CCJCCJ=csng(CCJCCJ)
end if:if CCJCCJ=0 then Call RedirectMessage(CJCJJCC("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CJJJJJC:Call SetConfig:Sub SetConfig():dim CCJCJC,CJJJJCJ:CJJJJJ=CJCJJCC("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") & CCJCCJ:set CJJJJCJ=CCCJJ.execute(CJJJJJ):if CJJJJCJ.eof then Call RedirectMessage(CJCJJCC("患@W") & CJJJJC & CJCJJCC("X戻@圣@癿@卐@佈@W") & CCJCCJ & CJCJJCC("X朥@批@别@。,"))
ReDim CCJCJC(61):CCJCJC(0)=CJJJJCJ(CJCJJCC(";:2@H6:")) & "":CCJCJC(1)=CJJJJCJ(CJCJJCC("EJA6")):CCJCJC(2)=CJJJJCJ(CJCJJCC("D>D")):CCJCJC(3)=CJJJJCJ(CJCJJCC("4FDE@>8C@FA")) & "":CCJCJC(4)=CJJJJCJ(CJCJJCC("D:5632C0@E96C")) & "":CCJCJC(5)=IIf(isnull(CJJJJCJ(CJCJJCC("E6DEC6DF=EG:6H"))),0,CJJJJCJ(CJCJJCC("E6DEC6DF=EG:6H"))):CCJCJC(6)=CJJJJCJ(CJCJJCC("K:IF?E:>6")):CCJCJC(7)=CJJJJCJ(CJCJJCC("766")):CCJCJC(8)=CJJJJCJ(CJCJJCC("C6E6DE52J")):CCJCJC(9)=CJJJJCJ(CJCJJCC("6IA:C652E6")):CCJCJC(10)=CJJJJCJ(CJCJJCC("E:E=6")):CCJCJC(11)=CJJJJCJ(CJCJJCC(":?EC@")) & "":CCJCJC(12)=CJJJJCJ(CJCJJCC("A:4EFC6")) & "":CCJCJC(13)=CJJJJCJ(CJCJJCC("72>:=J")):CCJCJC(14)=CJJJJCJ(CJCJJCC("4@AJC:89E")) & "":CCJCJC(15)=IIf(isnull(CJJJJCJ(CJCJJCC("D6>6DE6C0DE2CE052E6"))),CJCJJCC("`h__\`\`"),CJJJJCJ(CJCJJCC("D6>6DE6C0DE2CE052E6"))):CCJCJC(16)=IIf(isnull(CJJJJCJ(CJCJJCC("K:IF?0E:>6D09:89=:89E"))),0,CJJJJCJ(CJCJJCC("K:IF?0E:>6D09:89=:89E"))):CCJCJC(17)=CJJJJCJ(CJCJJCC("4@?E24E")) & "":CCJCJC(18)=CJJJJCJ(CJCJJCC("D2?5E23=6")):CCJCJC(19)=CJJJJCJ(CJCJJCC("4C:D:D")):CCJCJC(20)=CJJJJCJ(CJCJJCC("JJ52E6")):CCJCJC(21)=CJJJJCJ(CJCJJCC("BB")):CCJCJC(22)=CJJJJCJ(CJCJJCC("JFJF60D>D0EA=")) & "":CCJCJC(23)=CJJJJCJ(CJCJJCC("JFJF60E6DE0=3")) & "":CCJCJC(25)=CJJJJCJ(CJCJJCC("6IA6CE")):CCJCJC(26)=CJJJJCJ(CJCJJCC(">@5:?7@")):CCJCJC(27)=CJJJJCJ(CJCJJCC("9@>6A286E@AA:4EFC6")) & "":CCJCJC(28)=CJJJJCJ(CJCJJCC("4C:D:D=3")):CCJCJC(29)=IIf(CJJJJCJ(CJCJJCC("4C:D:D@=5")),False,True):CCJCJC(30)=CJJJJCJ(CJCJJCC("8C@FA8F:52?46")):CCJCJC(31)=CJJJJCJ(CJCJJCC("3:@7665324<")):CCJCJC(32)=CJJJJCJ(CJCJJCC("<6JDEC")):CCJCJC(33)=CJJJJCJ(CJCJJCC("=@8@")) & "":CCJCJC(34)=CJJJJCJ(CJCJJCC("K:46")):CCJCJC(35)=IIf(CJJJJCJ(CJCJJCC(":D?6H")),True,False):CCJCJC(36)=121:CCJCJC(37)=111:CCJCJC(38)=160:CCJCJC(39)=CJJJJCJ(CJCJJCC("8F6DE3@@<")):CCJCJC(40)=CJJJJCJ(CJCJJCC("75D")):CCJCJC(42)=CJJJJCJ(CJCJJCC("9@>6=@8:?")):CCJCJC(43)=CJJJJCJ(CJCJJCC("K:IF?0?6657665324<")):CCJCJC(44)=CJJJJCJ(CJCJJCC("K:IF?0E:>6D0=:>:E")):CCJCJC(45)=CJJJJCJ(CJCJJCC("4@>A=6E60:?7@")):CCJCJC(46)=CJJJJCJ(CJCJJCC("E6DE:?EC@")) & "":CCJCJC(47)=IIf(isnull(CJJJJCJ(CJCJJCC("JFJF60367@C60E:>6"))),0,CJJJJCJ(CJCJJCC("JFJF60367@C60E:>6"))):CCJCJC(49)=CJJJJCJ(CJCJJCC("D>D0C646:G6C")):CCJCJC(50)=CJJJJCJ(CJCJJCC("D>D0D:8?")) & "":CCJCJC(52)=CJJJJCJ(CJCJJCC("JFJF602CC2?86")):CCJCJC(53)=IIf(isnull(CJJJJCJ(CJCJJCC("DEF56?E0BF6DE:@?04@F?E"))),0,CJJJJCJ(CJCJJCC("DEF56?E0BF6DE:@?04@F?E"))):CCJCJC(54)=CJJJJCJ(CJCJJCC("9:560=30@FE@7286")):CCJCJC(55)=CJJJJCJ(CJCJJCC("JFJF60E6DE052JD")):CCJCJC(56)=CJJJJCJ(CJCJJCC("JFJF60H66<0=:>:E")):CCJCJC(57)=CJJJJCJ(CJCJJCC("JFJF604964<65")):CCJCJC(58)=CJJJJCJ(CJCJJCC("K:IF?0?6657665324<0?6IE")):CCJCJC(59)=CJJJJCJ(CJCJJCC("4964<?6HDEF56?E")):CCJCJC(60)=CJJJJCJ(CJCJJCC("K:IF?04=@D6052E6")):CJJJJCJ.close : set CJJJJCJ=nothing:if isNull(CCJCJC(8)) or CCJCJC(8)="" then CCJCJC(8)=0
if isdate(CCJCJC(9)) then
CCJCJC(9)=cdate(CCJCJC(9)):if CCJCJC(9)<Date then Call RedirectMessage(CJCJJCC("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CCJCJC(9) & CJCJJCC("X巭@迂@。,"))
end if:if not CJJCJCC(CCJCJC(20)) then CCJCJC(20)=7
select case CCJCJC(1):case 1,2,16:CCJCJC(36)=159:case 4,5,6,10,11:CCJCJC(36)=190:CCJCJC(37)=178:CCJCJC(38)=191:case 7,13:CCJCJC(36)=164:CCJCJC(37)=178:CCJCJC(38)=179:end select:CJJJJJC=CCJCJC:End Sub:Function CJJCCCC(CJCCCJC):dim CCJCJC(7,1),CCJCJJ,CJJJJCC,CJJJCJJ:CJJJJCC=Array(CJCJJCC("$49@@="),CJCJJCC("$EF56?E"),CJCJJCC("s6AE"),CJCJJCC("vC256"),CJCJJCC("r=2DD>2E6"),CJCJJCC("}F>36C"),CJCJJCC("%62496C"),CJCJJCC("!2C6?E")):select case CJJJJJC(1):case 1,2 : CJJJCJJ=Array(CJCJJCC("孡@栜@"),CJCJJCC("孡@甚@"),CJCJJCC("珨@红@"),CJCJJCC("幯@红@"),CJCJJCC("吇@孡@"),CJCJJCC("孡@史@"),CJCJJCC("敔@布@"),CJCJJCC("宱@镺@")):case 3,16 : CJJJCJJ=Array(CJCJJCC("孡@栜@"),CJCJJCC("孡@甚@"),CJCJJCC("陝@糶@"),CJCJJCC("幯@红@"),CJCJJCC("吇@孡@"),CJCJJCC("孡@史@"),CJCJJCC("敔@布@"),CJCJJCC("宱@镺@")):case 4 : CJJJCJJ=Array(CJCJJCC("匶@陝@"),CJCJJCC("杠@论@耀@"),CJCJJCC("卐@佈@"),CJCJJCC("幯@仸@"),CJCJJCC("吇@了@"),CJCJJCC("缑@史@"),CJCJJCC("匶@甚@"),CJCJJCC("宱@屙@")):case 5 : CJJJCJJ=Array(CJCJJCC("卐@佈@"),CJCJJCC("呓@巠@"),CJCJJCC("郣@闣@"),CJCJJCC("幯@仸@"),CJCJJCC("吇@了@"),CJCJJCC("缑@史@"),CJCJJCC("呓@巠@"),CJCJJCC("宱@屙@")):case 6 : CJJJCJJ=Array(CJCJJCC("卐@佈@"),CJCJJCC("杠@论@耀@"),CJCJJCC("线@刦@"),CJCJJCC("幯@仸@"),CJCJJCC("吇@了@"),CJCJJCC("缑@史@"),CJCJJCC("咣@话@布@"),CJCJJCC("宱@屙@")):case 7 : CJJJCJJ=Array(CJCJJCC("卐@佈@"),CJCJJCC("宓@兰@"),CJCJJCC("郣@闣@"),CJCJJCC("幯@仸@"),CJCJJCC("戓@叆@"),CJCJJCC("缑@史@"),CJCJJCC("咣@话@布@"),CJCJJCC("宱@屙@")):case 8 : CJJJCJJ=Array(CJCJJCC("卐@佈@"),CJCJJCC("杠@论@耀@"),CJCJJCC("卐@佈@"),CJCJJCC("兠@聇@幯@仸@"),CJCJJCC("吇@了@"),CJCJJCC("缑@史@"),CJCJJCC("咣@话@布@"),CJCJJCC("酈@偱@")):case 9 : CJJJCJJ=Array(CJCJJCC("卐@佈@"),CJCJJCC("敔@布@"),CJCJJCC("卐@佈@"),CJCJJCC("幯@仸@"),CJCJJCC("吇@了@"),CJCJJCC("缑@史@"),CJCJJCC("咣@话@布@"),CJCJJCC("酈@偱@")):case 10 : CJJJCJJ=Array(CJCJJCC("卐@佈@"),CJCJJCC("氌@譡@"),CJCJJCC("郣@闣@"),CJCJJCC("兠@譡@幯@仸@"),CJCJJCC("吇@了@"),CJCJJCC("缑@史@"),CJCJJCC("咣@话@布@"),CJCJJCC("宱@屙@")):case 11 : CJJJCJJ=Array(CJCJJCC("卐@佈@"),CJCJJCC("內@劜@呓@"),CJCJJCC("郣@闣@"),CJCJJCC("幯@仸@"),CJCJJCC("吇@了@"),CJCJJCC("缑@史@"),CJCJJCC("咣@话@布@"),CJCJJCC("宱@屙@")):case 12 : CJJJCJJ=Array(CJCJJCC("卐@佈@"),CJCJJCC("幭@譡@"),CJCJJCC("卐@佈@"),CJCJJCC("兠@譡@幯@仸@"),CJCJJCC("吇@了@"),CJCJJCC("缑@史@"),CJCJJCC("咣@话@布@"),CJCJJCC("宱@屙@")):case 13 : CJJJCJJ=Array(CJCJJCC("卐@佈@"),CJCJJCC("孡@呓@"),CJCJJCC("卐@佈@"),CJCJJCC("幯@仸@"),CJCJJCC("戓@叆@"),CJCJJCC("缑@史@"),CJCJJCC("敔@呓@"),CJCJJCC("宱@屙@")):case 14 : CJJJCJJ=Array(CJCJJCC("月@劜@炴@"),CJCJJCC("局@氌@"),CJCJJCC("线@刦@"),CJCJJCC("幯@仸@"),CJCJJCC("邶@采@"),CJCJJCC("缑@史@"),CJCJJCC("咣@话@布@"),CJCJJCC("宱@屙@")):case 15 : CJJJCJJ=Array(CJCJJCC("卐@佈@"),CJCJJCC("盌@独@氌@譡@"),CJCJJCC("卐@佈@"),CJCJJCC("兠@譡@幯@仸@"),CJCJJCC("吇@了@"),CJCJJCC("缑@史@"),CJCJJCC("咣@话@布@"),CJCJJCC("宱@屙@")):case else : CJJJCJJ=CJJJJCC
end select:for CCJCJJ=0 to Ubound(CCJCJC):CCJCJC(CCJCJJ,0)=CJJJJCC(CCJCJJ):CCJCJC(CCJCJJ,1)=CJJJCJJ(CCJCJJ):next:for CCJCJJ=0 to Ubound(CCJCJC):if CCJCJC(CCJCJJ,0)=CJCCCJC then
CJJCCCC=CCJCJC(CCJCJJ,1):exit for
end if:next:End Function::Call CheckRight(79):Const CJJJCCC="√":Const CJJCJJJ="×":Response.Write(vbCrLf):Response.Write("<!DOCTYPE html>" & vbCrLf):Response.Write(CJCJJCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCJJCC("k9625m") & vbCrLf):Response.Write(CJCJJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJJCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCJJCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCJJCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCJJCC("kE:E=6m浆@访@绎@林@扎@卫@k^E:E=6m") & vbCrLf):Response.Write(CJCJJCC("kDEJ=6m") & vbCrLf):Response.Write(CJCJJCC("3@5JL>2C8:?i_jN") & vbCrLf):Response.Write(CJCJJCC("]3E?DL324<8C@F?5\4@=@CiR7`7`7`j ,3@C56C\3@EE@>i`AI ,D@=:5 ,R444j ,A255:?8idAI ,`_AIj@G6C7=@Hi9:556?jN") & vbCrLf):Response.Write(CJCJJCC("R3E?\AC:?EL7=@2Ei=67EjN") & vbCrLf):Response.Write(CJCJJCC("R3E?\H@C5[R3E?\6I46=L7=@2EiC:89Ej>2C8:?\=67EidAIjN") & vbCrLf):Response.Write(CJCJJCC(">2:?L>2C8:?ia_AIjN") & vbCrLf):Response.Write(CJCJJCC("9`L7@?E\D:K6i`gAIjE6IE\2=:8?i46?E6CjN") & vbCrLf):Response.Write(CJCJJCC(",4@?E6?E65:E23=6. ,L4@=@CiRa3gd6cjN") & vbCrLf):Response.Write(CJCJJCC("^Y ,绚@讜@衣@样@ ,Y^") & vbCrLf):Response.Write(CJCJJCC("]E30DE2E ,L ,3@C56C\E@Ai ,aAI ,D@=:5 ,Reeej ,3@C56C\3@EE@>i ,aAI ,D@=:5 ,Reeej ,3@C56C\4@==2AD6i ,4@==2AD6j ,H:5E9i ,`__Tj ,N") & vbCrLf):Response.Write(CJCJJCC("]E30DE2E ,E9[ ,]E30DE2E ,E5 ,L ,3@C56Ci ,`AI ,D@=:5 ,Reeej ,A255:?8i ,bAIj ,E6IE\2=:8?i ,46?E6Cj ,N") & vbCrLf):Response.Write(CJCJJCC("]E30DE2E ,E9 ,L ,3@C56C\3@EE@>i ,aAI ,D@=:5 ,Reeej ,N") & vbCrLf):Response.Write(CJCJJCC("]E30DE2E ,E9i7:CDE\49:=5[ ,]E30DE2E ,E5i7:CDE\49:=5 ,L ,3@C56C\=67Ei ,?@?6j ,N") & vbCrLf):Response.Write(CJCJJCC("]E30DE2E ,E9i=2DE\49:=5[ ,]E30DE2E ,E5i=2DE\49:=5 ,L ,3@C56C\C:89Ei ,?@?6j ,N") & vbCrLf):Response.Write(CJCJJCC("]E30DE2E ,E5]E6IE\=67E ,L ,E6IE\2=:8?i ,=67Ej ,N") & vbCrLf):Response.Write(CJCJJCC("]E30DE2E ,E5]E6IE\C:89E ,L ,E6IE\2=:8?i ,C:89Ej ,N") & vbCrLf):Response.Write(CJCJJCC("k^DEJ=6m") & vbCrLf):Response.Write(CJCJJCC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJCJJCC("]3E?DL5:DA=2Ji?@?6jN") & vbCrLf):Response.Write(CJCJJCC(">2:?iL>2C8:?i_jN") & vbCrLf):Response.Write(CJCJJCC("k^DEJ=6m") & vbCrLf):Response.Write(CJCJJCC("k^9625m") & vbCrLf):Response.Write(CJCJJCC("k3@5Jm") & vbCrLf):Response.Write(CJCJJCC("k5:G ,4=2DDlQ3E?DQm") & vbCrLf):Response.Write(CJCJJCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\AC:?EQ ,G2=F6lQ扎@ ,卫@Qm") & vbCrLf):Response.Write(CJCJJCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\6I46=Q ,G2=F6lQ寷@凵@别@tI46=Qm") & vbCrLf):Response.Write(CJCJJCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\H@C5Q ,G2=F6lQ孓@丵@(@C5Qm") & vbCrLf):Response.Write(CJCJJCC("k^5:Gm") & vbCrLf):Response.Write(CJCJJCC("k>2:?m") & vbCrLf):Response.Write(CJCJJCC(" ,k9` ,4@?E6?E65:E23=6m浆@访@绎@林@划@衣@k^9`m") & vbCrLf):Response.Write(CJCJJCC(" ,kE23=6 ,H:5E9lQ`__TQ ,DEJ=6lQ3@C56Ci?@?6Qm") & vbCrLf):Response.Write(CJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJCJJCC(" ,kE5 ,DEJ=6lQ3@C56Ci?@?6jE6IE\2=:8?i=67EjQmkDEC@?8m刱@衣@卐@佈@：,k^DEC@?8mkDA2? ,4@?E6?E65:E23=6m")):Response.Write  CJJJJJC(10):Response.Write(CJCJJCC("k^DA2?mk^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5 ,DEJ=6lQ3@C56Ci?@?6jE6IE\2=:8?iC:89EjQmkDEC@?8m扎@卫@旱@闯@：,k^DEC@?8m")):Response.Write  formatdatetime(Date,1):Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJCJJCC(" ,kE9mRk^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9m")):Response.Write  CJJCCCC(CJCJJCC("}F>36C")):Response.Write(CJCJJCC("k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9m怢@刦@k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9m幯@齿@k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9m扆@朵@k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9m释@衣@k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9m浆@访@旱@闯@k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9 ,E:E=6lQ卐@佈@：,种@Qm耒@旱@k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9m籶@垆@k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,")):if CJJJJJC(1)=6 then
Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,kE9m攪@仓@k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,kE9m犱@忼@k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9 ,E:E=6lQ昪@吡@朄@敃@浆@诐@讫@彐@Qm朄@敃@k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9 ,E:E=6lQ箜@琁@呓@昪@吡@巭@绊@壿@琁@迂@浆@访@绎@林@Qm壿@琁@k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCJJCC(" ,")):dim CCJCJJ:CCJCJJ=1:CJJJJJ=CJCJJJC(CJCJJCC("$""{"),""):if CJJJJJ="" then Call RedirectMessage(CJCJJCC("寴@丈@赲@，,糶@绚@厽@敫@锔@诪@！,"))
CJJJJJ=CJCJJCC("D6=64E ,?F>36C[C62=?2>6[D6I?2>6[E6DE286[=3?2>649[52E6E:>6[9@H=@?8[EJA6[?@C>2=[5@?6[G2=:5[>@3:=6[A2J>6?E[>@?6J ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,") & CJJJJJ:set CCCCJ=CCCJC.execute(CJJJJJ):while not CCCCJ.eof:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJCJJCC(" ,kE5m")):Response.Write  CCJCJJ:Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5 ,4=2DDlQE6IE\=67EQ ,DEJ=6lQ>D@\?F>36C\7@C>2EiV-oVjQm")):Response.Write  CCCCJ(0):Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CCCCJ(1):Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5m")):Response.Write  CCCCJ(2):Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5m")):Response.Write  CCCCJ(3):Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5m")):Response.Write  CCCCJ(11):Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CCCCJ(4):Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CCCCJ(5):Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5 ,4=2DDlQE6IE\C:89EQm")):Response.Write  IIf(CCCCJ(6)>=0,CCCCJ(6),0):Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5m")):Response.Write  IIf(CCCCJ(7)=0,CJCJJCC("晩@柠@"),CJCJJCC("臥@浆@")):Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,")):if CJJJJJC(1)=6 then
Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,kE5 ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CJCJJCC(" ,")):if CCCCJ(12) and not isnull(CCCCJ(13)) then
Response.Write formatnumber(CCCCJ(13),2,-1)
end if:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,kE5m")):if CCCCJ(10) then Response.Write IIf(CCCCJ(8),CJCJJCC("歞@帳@"),CJCJJCC("廽@帳@"))
Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5m")):Response.Write  IIf(CCCCJ(10),CJJJCCC,CJJCJJJ):Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5m")):Response.Write  IIf(CCCCJ(9),CJJJCCC,""):Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCC(" ,")):CCCCJ.movenext:CCJCJJ=CCJCJJ+1:wend:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJCC("k^>2:?m") & vbCrLf):Response.Write(CJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6a6I46=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCC("kD4C:AEm") & vbCrLf):Response.Write(CJCJJCC("SW7F?4E:@? ,WX ,L") & vbCrLf):Response.Write(CJCJJCC(" ,SWV,4@?E6?E65:E23=6.VX]2EECWVE:E=6V[V顰@靝@丨@蓘@艭@斂@孒@只@仠@炴@凶@俩@攴@VX") & vbCrLf):Response.Write(CJCJJCC(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLD6=7]AC:?EWXNX") & vbCrLf):Response.Write(CJCJJCC(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV>2:?VX]9E>=a5@4IWSWV9`VX]E6IEWXXNX") & vbCrLf):Response.Write(CJCJJCC(" ,SWVR3E?\6I46=VX]@?WV4=:4<V[7F?4E:@?WXLSWVE23=6]E30DE2EVX]E23=6a6I46=WSWV9`VX]E6IEWXXNX") & vbCrLf):Response.Write(CJCJJCC("NX") & vbCrLf):Response.Write(CJCJJCC("k^D4C:AEm") & vbCrLf):Response.Write(CJCJJCC("k^3@5Jm") & vbCrLf):Response.Write(CJCJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCJJ=nothing:set CJJCCJC=nothing:set CJJCCCJ=nothing:set CJJCCCC=nothing:CCCCC.Close:Set CCCCC=Nothing:CCCCJ.Close:Set CCCCJ=Nothing:CCCJJ.Close:Set CCCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJJCC(ByVal CJCJJCJ)
Dim CJJJCJC, CCJCJJ, CCCCCC
CJCJJCJ = Replace(CJCJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCJJ = 1 To Len(CJCJJCJ)
If CCJCJJ <> CCCCCC Then
CJJJCJC = AscW(Mid(CJCJJCJ, CCJCJJ, 1))
If CJJJCJC >= 33 And CJJJCJC <= 79 Then
CJCJJCC = CJCJJCC & Chr(CJJJCJC + 47)
ElseIf CJJJCJC >= 80 And CJJJCJC <= 126 Then
CJCJJCC = CJCJJCC & Chr(CJJJCJC - 47)
Else
CCCCCC = CCJCJJ + 1
If Mid(CJCJJCJ, CCCCCC, 1) = Chr(64) Then CJCJJCC = CJCJJCC & ChrW(CJJJCJC + 5) Else CJCJJCC = CJCJJCC & Mid(CJCJJCJ, CCJCJJ, 1)
End If
End If
Next
End Function
%>