<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJ, CJJJJC,CJJJCJ, CJJJCC, CJJCJJ:Set CJJJJJ = server.CreateObject(CCJCJCC("ps~sq]r@??64E:@?")):CJJJJJ.open Application(CCJCJCC("r@??64E:@?$EC:?8")):Set CJJJJC=CJJJJJ::Dim CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC:Dim CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC:Dim CCJCJJ,CCJCJC,CCJCCJ:Dim CCJCCC:CCJCCC=Trim(Request.Cookies(CCJCJCC("!$*|t|qt#"))):if CCJCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJC>0 then
CJJCJJ=CCJCJCC("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") & CJJCCJ & CCJCJCC("V ,2?5 ,:5l") & CJJCJC
set CJJJCJ=CJJJJJ.execute(CJJCJJ):If CJJJCJ.EOF Then
Call ClearMemberCookie
Else
CJJCCC=CJJJCJ(2) & "":CJCJJJ=CJJJCJ(3):CJCJJC=CJJJCJ(5):CJCJCJ=CJJJCJ(6):CJCJCC=CJJJCJ(9):CJCCJJ=CJJJCJ(15):CJCCCJ=CJJJCJ(0):CCJCJC=CJJJCJ(1):CCJCJJ=CJJJCJ(11) & "":CJCCCC=CJJJCJ(10) & "":CJCCJC=CJJJCJ(12):CCJJJJ=CJJJCJ(14):CCJJJC=CJJJCJ(13):CCJJCJ=CJJJCJ(7) & "":CCJJCC=CJJJCJ(4):CCJCCJ=CJJJCJ(8):if isnull(CJCCJJ) then CJCCJJ=0
if isnull(CJCJCC) or CJCJCC=0 then CJCJCC=CJCJJJ
if isnull(CCJJCC) then CCJJCC=0
if isnull(CJCJJC) then CJCJJC=0
if instr(CCJCJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCCJ)>0 then Call RedirectMessage(CCJCJCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJCJC,CJJCCJ)
End IF
end if:Sub CheckRight(CCJCCJJ):dim CCCJJJ,CCCJJC:if CJJCJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJCJCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJCCCCJ(CCJCCJJ) then
Call RedirectMessage(CCJCJCC("朾@陋@W") & CCJCCJJ & CCJCJCC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJCCCCJ(CCJCCJJ):dim CCCJJJ,CCCJJC:CCCJJC=split(CCJCCJJ,CCJCJCC("[")):CJCCCCJ=False:for CCCJJJ=0 to ubound(CCCJJC):If Mid(CJJCCC,CCCJJC(CCCJJJ),1)="1" then
CJCCCCJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJCJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CCCJCJ:CCCJCJ=trim(request.QueryString(CCJCJCC("D49@@="))):if isnumeric(CCCJCJ) then
response.Redirect CCJCJCC("^>^G2?E^R^D49@@=^") & CCCJCJ & CCJCJCC("^DEF56?E^=@8:?nC65:C64El") & CJJJJCJ
else
Call RedirectMessage(CCJCJCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJCJCC("!$*|t|qt#"))="":CJJCJC=0:CJCJCJ=0:CJJCCJ=Empty:CJCJJC=0:CJCCJJ=0:CJCJCC=0:CJCJJJ=0:CJCCCJ=False:CCJCJC=False:CCJCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CCCJCC,CCCCJJ,CCCJJJ,CCCCJC,CCCCCJ:CCCJCC=split(CCJCCC,CCJCJCC("]")):if ubound(CCCJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCJCC(0)) or len(CCCJCC(1))<>32 or len(CCCJCC(2))<>32 then
Call ClearMemberCookie
else
CCCCJJ=CCCJCC(1):for CCCJJJ=1 to len(CCCCJJ):CCCCJC=mid(CCCCJJ,CCCJJJ,1):if isnumeric(CCCCJC) then CCCCCJ=CCCCCJ & CCCCJC
if len(CCCCCJ)=7 then exit for
next:CCCCJJ=CCCJCC(2):if CCCCCJ<>mid(CCCCJJ,6,7) then
Call ClearMemberCookie
else
CCCCJC=mid(CCCCJJ,18,10)/2:if CCCCJC<DateDiff(CCJCJCC("D"), CCJCJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJC=Clng(CCCJCC(0)):CJJCCJ=CCCJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJJCC,CCJCCJC):dim CCCJJJ,CCCCJC,CCCCCJ:for CCCJJJ=1 to len(CCJCCJC):CCCCJC=mid(CCJCCJC,CCCJJJ,1):if isnumeric(CCCCJC) then CCCCCJ=CCCCCJ & CCCCJC
if len(CCCCCJ)=7 then exit for
next:CCCCCJ=CJCJJCC & CCJCJCC("]") & CCJCCJC & CCJCJCC("]") & Fix(10000*(Rnd+1)) & CCCCCJ & Fix(10000*(Rnd+1)) & DateDiff(CCJCJCC("D"), CCJCJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCJCC("!$*|t|qt#"))=CCCCCJ:End Sub::Function CJCCCCC(CCJCCCJ):Dim str,CJJJJJJ:str = Trim(CCJCCCJ):If IsNull(str) Or str = "" Then
CJCCCCC = ""
else
str=Replace(str, CCJCJCC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCJCJCC("k:7C2>6"), CCJCJCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJCJCC("kD4C:AE"), CCJCJCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJJJJJ=new RegExp:CJJJJJJ.Pattern=CCJCJCC("@?W,2\K.ZXl"):CJJJJJJ.IgnoreCase = True:CJJJJJJ.Global=True:str=CJJJJJJ.Replace(str,CCJCJCC("@?S`U6BF2=Dj")):set CJJJJJJ=nothing:CJCCCCC=str
End If:End Function:Function IIf(CCJCCCC, CCCJJJJ, CCCJJJC):if isnull(CCJCCCC) or isempty(CCJCCCC) then
IIf = CCCJJJC
elseif CCJCCCC Then
IIf = CCCJJJJ
Else
IIf = CCCJJJC
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}$"::::Public Function CCJJJJC():Dim CJJJJJC, CJJJJCJ:CJJJJCJ = Request.ServerVariables(CCJCJCC("!p%w0x}u~")):CJJJJJC = Request.ServerVariables(CCJCJCC("""&t#*0$%#x}v")):If CJJJJJC <> Empty Then
if instr(lcase(CJJJJJC),CCJCJCC("Tb4:7C2>6"))>0 or instr(lcase(CJJJJJC),CCJCJCC("Tb4D4C:AE"))>0 then Call RedirectMessage(CCJCJCC("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,"))
CJJJJCJ = CJJJJCJ & CCJCJCC("n") & CJJJJJC
end if:CCJJJJC = CJJJJCJ:End Function:Sub SetHttpOnlyCookie(CCCJJCJ,CCCJJCC):dim CCCJCC:CCCJCC=CCCJJCJ & CCJCJCC("l") & CCCJJCC & CCJCJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCJCC("$6E\r@@<:6"),CCCJCC):End Sub:::::::Function CCJJJCJ(CJJCJJC):if isnull(CJJCJJC) or trim(CJJCJJC)="" or not isnumeric(CJJCJJC) then
CCJJJCJ=false
else
Dim CJJJJJJ:Set CJJJJJJ = New RegExp:CJJJJJJ.Pattern = CCJCJCC("/-5ZS"):CJJJJJJ.IgnoreCase = True:CCJJJCJ = CJJJJJJ.test(CJJCJJC):set CJJJJJJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJJJCC=nothing:set CCJJCJJ=nothing:set CCJJCJC=nothing:set CCJJCCJ=nothing:CJJCCJJ.close : set CJJCCJJ=nothing:CJJJCC.Close : Set CJJJCC=Nothing:CJJJCJ.Close : Set CJJJCJ=Nothing:CCJJCCC.Close : Set CCJJCCC = Nothing:CJJJJJ.Close : Set CJJJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCJCC("!$*0|6DD286"),server.URLEncode(CCCJCJJ)):Response.Redirect CCJCJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CCJCJJJ(ByVal CJCCJJC,style):if not isdate(CJCCJJC) then
CCJCJJJ=CJCCJJC:exit function
end if:dim CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:CJCCJJC=cdate(CJCCJJC):CJJJJCC=Year(CJCCJJC):CJJJCJJ=Month(CJCCJJC):CJJJCJC=Day(CJCCJJC):select case style:case 0:CCJCJJJ=CJJJJCC & CCJCJCC("\") & right(0 & CJJJCJJ,2) & CCJCJCC("\") & right(0 & CJJJCJC,2):case 1:CCJCJJJ=CJJJJCC & right(0 & CJJJCJJ,2) & right(0 & CJJJCJC,2):case 2:CCJCJJJ=right(CJJJJCC,2) & CCJCJCC("\") & right(0 & CJJJCJJ,2) & CCJCJCC("\") & right(0 & CJJJCJC,2):case 3:CCJCJJJ=CJJJJCC & CCJCJCC("\") & right(0 & CJJJCJJ,2):case 4:CCJCJJJ=right(0 & CJJJCJJ,2) & CCJCJCC("\") & right(0 & CJJJCJC,2):case 5:CCJCJJJ=right(0 & CJJJCJC,2):case 6:CCJCJJJ=CJJJJCC & CCJCJCC("幯@") & right(0 & CJJJCJJ,2) & CCJCJCC("會@") & right(0 & CJJJCJC,2) & CCJCJCC("无@"):case else
CCJCJJJ=CJCCJJC:end select:End Function::::::::::::::::::Function CCJCJJC(CCCJCJC,str):dim CCCJJJ,CJJJCCC,CJJCJJJ,CJJJCJJ,CJJCJJC,CJJCJCJ,CCCCCJ:CCCCCJ=ucase(CCCJCJC):CJJCJCJ=str:if CJJCJCJ="" then
CJJCJCJ=request.cookies(CCCCCJ):if CJJCJCJ="" then
CCJCJJC=""
else
CJJCJCJ=strreverse(CJJCJCJ):CJJJCCC=len(CJJCJCJ):for CCCJJJ=1 to CJJJCCC-1 step 2:CJJJCJJ=mid(CJJCJCJ,CCCJJJ,1):CJJCJJC=mid(CJJCJCJ,CCCJJJ+1,1):CJJCJJJ=CJJCJJJ & CJJCJJC & CJJJCJJ:next:CJJCJJJ=replace(CJJCJJJ,CCJCJCC("L0N"),CCJCJCC(" ,")):CJJCJJJ=replace(CJJCJJJ,CCJCJCC("LIN"),CCJCJCC("Y")):CJJCJJJ=replace(CJJCJJJ,CCJCJCC("L:N"),CCJCJCC("^")):CCJCJJC=trim(CJJCJJJ)
end if
else
if Len(CJJCJCJ) Mod 2=1 then CJJCJCJ=CJJCJCJ & CCJCJCC(" ,")
CJJCJCJ=replace(CJJCJCJ,CCJCJCC(" ,"),CCJCJCC("L0N")):CJJCJCJ=replace(CJJCJCJ,CCJCJCC("Y"),CCJCJCC("LIN")):CJJCJCJ=replace(CJJCJCJ,CCJCJCC("^"),CCJCJCC("L:N")):CJJJCCC=len(CJJCJCJ):for CCCJJJ=1 to CJJJCCC-1 step 2:CJJJCJJ=mid(CJJCJCJ,CCCJJJ,1):CJJCJJC=mid(CJJCJCJ,CCCJJJ+1,1):CJJCJJJ=CJJCJJJ & CJJCJJC & CJJJCJJ:next:CJJCJJJ=Trim(strreverse(CJJCJJJ)):CCJCJJC=CJJCJJJ:response.cookies(CCCCCJ)=CJJCJJJ
end if:End Function::::dim CCCJCJ:CJJCJJ=Request.ServerVariables("PATH_INFO"):if instr(CJJCJJ,CCJCJCC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCCCJ and not CCJCJC then Call RedirectMessage(CCJCJCC("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CCCJCJ=CJCJCC
elseif instr(CJJCJJ,CCJCJCC("^>^D49@@=^DEF56?E^"))>0 or instr(CJJCJJ,CCJCJCC("^DEF56?E^"))>0 then
Call CheckLogined:CCCJCJ=CJCJCC
elseif instr(CJJCJJ,CCJCJCC("^D49@@="))>0 then
CCCJCJ=Request.QueryString(CCJCJCC("D49@@=")):if not CCJJJCJ(CCCJCJ) then CCCJCJ=Request.QueryString(CCJCJCC("F"))
if not CCJJJCJ(CCCJCJ) then CCCJCJ=Request.QueryString(CCJCJCC("D4"))
if not CCJJJCJ(CCCJCJ) then Call RedirectMessage(CCJCJCC("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CCCJCJ=csng(CCCJCJ)
end if:if CCCJCJ=0 then Call RedirectMessage(CCJCJCC("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CJJCJCC:Call SetConfig:Sub SetConfig():dim CCCJJC,CJJCCJJ:CJJCJJ=CCJCJCC("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") & CCCJCJ:set CJJCCJJ=CJJJJJ.execute(CJJCJJ):if CJJCCJJ.eof then Call RedirectMessage(CCJCJCC("患@W") & CJJCJC & CCJCJCC("X戻@圣@癿@卐@佈@W") & CCCJCJ & CCJCJCC("X朥@批@别@。,"))
ReDim CCCJJC(61):CCCJJC(0)=CJJCCJJ(CCJCJCC(";:2@H6:")) & "":CCCJJC(1)=CJJCCJJ(CCJCJCC("EJA6")):CCCJJC(2)=CJJCCJJ(CCJCJCC("D>D")):CCCJJC(3)=CJJCCJJ(CCJCJCC("4FDE@>8C@FA")) & "":CCCJJC(4)=CJJCCJJ(CCJCJCC("D:5632C0@E96C")) & "":CCCJJC(5)=IIf(isnull(CJJCCJJ(CCJCJCC("E6DEC6DF=EG:6H"))),0,CJJCCJJ(CCJCJCC("E6DEC6DF=EG:6H"))):CCCJJC(6)=CJJCCJJ(CCJCJCC("K:IF?E:>6")):CCCJJC(7)=CJJCCJJ(CCJCJCC("766")):CCCJJC(8)=CJJCCJJ(CCJCJCC("C6E6DE52J")):CCCJJC(9)=CJJCCJJ(CCJCJCC("6IA:C652E6")):CCCJJC(10)=CJJCCJJ(CCJCJCC("E:E=6")):CCCJJC(11)=CJJCCJJ(CCJCJCC(":?EC@")) & "":CCCJJC(12)=CJJCCJJ(CCJCJCC("A:4EFC6")) & "":CCCJJC(13)=CJJCCJJ(CCJCJCC("72>:=J")):CCCJJC(14)=CJJCCJJ(CCJCJCC("4@AJC:89E")) & "":CCCJJC(15)=IIf(isnull(CJJCCJJ(CCJCJCC("D6>6DE6C0DE2CE052E6"))),CCJCJCC("`h__\`\`"),CJJCCJJ(CCJCJCC("D6>6DE6C0DE2CE052E6"))):CCCJJC(16)=IIf(isnull(CJJCCJJ(CCJCJCC("K:IF?0E:>6D09:89=:89E"))),0,CJJCCJJ(CCJCJCC("K:IF?0E:>6D09:89=:89E"))):CCCJJC(17)=CJJCCJJ(CCJCJCC("4@?E24E")) & "":CCCJJC(18)=CJJCCJJ(CCJCJCC("D2?5E23=6")):CCCJJC(19)=CJJCCJJ(CCJCJCC("4C:D:D")):CCCJJC(20)=CJJCCJJ(CCJCJCC("JJ52E6")):CCCJJC(21)=CJJCCJJ(CCJCJCC("BB")):CCCJJC(22)=CJJCCJJ(CCJCJCC("JFJF60D>D0EA=")) & "":CCCJJC(23)=CJJCCJJ(CCJCJCC("JFJF60E6DE0=3")) & "":CCCJJC(25)=CJJCCJJ(CCJCJCC("6IA6CE")):CCCJJC(26)=CJJCCJJ(CCJCJCC(">@5:?7@")):CCCJJC(27)=CJJCCJJ(CCJCJCC("9@>6A286E@AA:4EFC6")) & "":CCCJJC(28)=CJJCCJJ(CCJCJCC("4C:D:D=3")):CCCJJC(29)=IIf(CJJCCJJ(CCJCJCC("4C:D:D@=5")),False,True):CCCJJC(30)=CJJCCJJ(CCJCJCC("8C@FA8F:52?46")):CCCJJC(31)=CJJCCJJ(CCJCJCC("3:@7665324<")):CCCJJC(32)=CJJCCJJ(CCJCJCC("<6JDEC")):CCCJJC(33)=CJJCCJJ(CCJCJCC("=@8@")) & "":CCCJJC(34)=CJJCCJJ(CCJCJCC("K:46")):CCCJJC(35)=IIf(CJJCCJJ(CCJCJCC(":D?6H")),True,False):CCCJJC(36)=121:CCCJJC(37)=111:CCCJJC(38)=160:CCCJJC(39)=CJJCCJJ(CCJCJCC("8F6DE3@@<")):CCCJJC(40)=CJJCCJJ(CCJCJCC("75D")):CCCJJC(42)=CJJCCJJ(CCJCJCC("9@>6=@8:?")):CCCJJC(43)=CJJCCJJ(CCJCJCC("K:IF?0?6657665324<")):CCCJJC(44)=CJJCCJJ(CCJCJCC("K:IF?0E:>6D0=:>:E")):CCCJJC(45)=CJJCCJJ(CCJCJCC("4@>A=6E60:?7@")):CCCJJC(46)=CJJCCJJ(CCJCJCC("E6DE:?EC@")) & "":CCCJJC(47)=IIf(isnull(CJJCCJJ(CCJCJCC("JFJF60367@C60E:>6"))),0,CJJCCJJ(CCJCJCC("JFJF60367@C60E:>6"))):CCCJJC(49)=CJJCCJJ(CCJCJCC("D>D0C646:G6C")):CCCJJC(50)=CJJCCJJ(CCJCJCC("D>D0D:8?")) & "":CCCJJC(52)=CJJCCJJ(CCJCJCC("JFJF602CC2?86")):CCCJJC(53)=IIf(isnull(CJJCCJJ(CCJCJCC("DEF56?E0BF6DE:@?04@F?E"))),0,CJJCCJJ(CCJCJCC("DEF56?E0BF6DE:@?04@F?E"))):CCCJJC(54)=CJJCCJJ(CCJCJCC("9:560=30@FE@7286")):CCCJJC(55)=CJJCCJJ(CCJCJCC("JFJF60E6DE052JD")):CCCJJC(56)=CJJCCJJ(CCJCJCC("JFJF60H66<0=:>:E")):CCCJJC(57)=CJJCCJJ(CCJCJCC("JFJF604964<65")):CCCJJC(58)=CJJCCJJ(CCJCJCC("K:IF?0?6657665324<0?6IE")):CCCJJC(59)=CJJCCJJ(CCJCJCC("4964<?6HDEF56?E")):CCCJJC(60)=CJJCCJJ(CCJCJCC("K:IF?04=@D6052E6")):CJJCCJJ.close : set CJJCCJJ=nothing:if isNull(CCCJJC(8)) or CCCJJC(8)="" then CCCJJC(8)=0
if isdate(CCCJJC(9)) then
CCCJJC(9)=cdate(CCCJJC(9)):if CCCJJC(9)<Date then Call RedirectMessage(CCJCJCC("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CCCJJC(9) & CCJCJCC("X巭@迂@。,"))
end if:if not CCJJJCJ(CCCJJC(20)) then CCCJJC(20)=7
select case CCCJJC(1):case 1,2,16:CCCJJC(36)=159:case 4,5,6,10,11:CCCJJC(36)=190:CCCJJC(37)=178:CCCJJC(38)=191:case 7,13:CCCJJC(36)=164:CCCJJC(37)=178:CCCJJC(38)=179:end select:CJJCJCC=CCCJJC:End Sub:Function CCJJCCJ(CCCJCJC):dim CCCJJC(7,1),CCCJJJ,CJJCCJC,CJJCCCJ:CJJCCJC=Array(CCJCJCC("$49@@="),CCJCJCC("$EF56?E"),CCJCJCC("s6AE"),CCJCJCC("vC256"),CCJCJCC("r=2DD>2E6"),CCJCJCC("}F>36C"),CCJCJCC("%62496C"),CCJCJCC("!2C6?E")):select case CJJCJCC(1):case 1,2 : CJJCCCJ=Array(CCJCJCC("孡@栜@"),CCJCJCC("孡@甚@"),CCJCJCC("珨@红@"),CCJCJCC("幯@红@"),CCJCJCC("吇@孡@"),CCJCJCC("孡@史@"),CCJCJCC("敔@布@"),CCJCJCC("宱@镺@")):case 3,16 : CJJCCCJ=Array(CCJCJCC("孡@栜@"),CCJCJCC("孡@甚@"),CCJCJCC("陝@糶@"),CCJCJCC("幯@红@"),CCJCJCC("吇@孡@"),CCJCJCC("孡@史@"),CCJCJCC("敔@布@"),CCJCJCC("宱@镺@")):case 4 : CJJCCCJ=Array(CCJCJCC("匶@陝@"),CCJCJCC("杠@论@耀@"),CCJCJCC("卐@佈@"),CCJCJCC("幯@仸@"),CCJCJCC("吇@了@"),CCJCJCC("缑@史@"),CCJCJCC("匶@甚@"),CCJCJCC("宱@屙@")):case 5 : CJJCCCJ=Array(CCJCJCC("卐@佈@"),CCJCJCC("呓@巠@"),CCJCJCC("郣@闣@"),CCJCJCC("幯@仸@"),CCJCJCC("吇@了@"),CCJCJCC("缑@史@"),CCJCJCC("呓@巠@"),CCJCJCC("宱@屙@")):case 6 : CJJCCCJ=Array(CCJCJCC("卐@佈@"),CCJCJCC("杠@论@耀@"),CCJCJCC("线@刦@"),CCJCJCC("幯@仸@"),CCJCJCC("吇@了@"),CCJCJCC("缑@史@"),CCJCJCC("咣@话@布@"),CCJCJCC("宱@屙@")):case 7 : CJJCCCJ=Array(CCJCJCC("卐@佈@"),CCJCJCC("宓@兰@"),CCJCJCC("郣@闣@"),CCJCJCC("幯@仸@"),CCJCJCC("戓@叆@"),CCJCJCC("缑@史@"),CCJCJCC("咣@话@布@"),CCJCJCC("宱@屙@")):case 8 : CJJCCCJ=Array(CCJCJCC("卐@佈@"),CCJCJCC("杠@论@耀@"),CCJCJCC("卐@佈@"),CCJCJCC("兠@聇@幯@仸@"),CCJCJCC("吇@了@"),CCJCJCC("缑@史@"),CCJCJCC("咣@话@布@"),CCJCJCC("酈@偱@")):case 9 : CJJCCCJ=Array(CCJCJCC("卐@佈@"),CCJCJCC("敔@布@"),CCJCJCC("卐@佈@"),CCJCJCC("幯@仸@"),CCJCJCC("吇@了@"),CCJCJCC("缑@史@"),CCJCJCC("咣@话@布@"),CCJCJCC("酈@偱@")):case 10 : CJJCCCJ=Array(CCJCJCC("卐@佈@"),CCJCJCC("氌@譡@"),CCJCJCC("郣@闣@"),CCJCJCC("兠@譡@幯@仸@"),CCJCJCC("吇@了@"),CCJCJCC("缑@史@"),CCJCJCC("咣@话@布@"),CCJCJCC("宱@屙@")):case 11 : CJJCCCJ=Array(CCJCJCC("卐@佈@"),CCJCJCC("內@劜@呓@"),CCJCJCC("郣@闣@"),CCJCJCC("幯@仸@"),CCJCJCC("吇@了@"),CCJCJCC("缑@史@"),CCJCJCC("咣@话@布@"),CCJCJCC("宱@屙@")):case 12 : CJJCCCJ=Array(CCJCJCC("卐@佈@"),CCJCJCC("幭@譡@"),CCJCJCC("卐@佈@"),CCJCJCC("兠@譡@幯@仸@"),CCJCJCC("吇@了@"),CCJCJCC("缑@史@"),CCJCJCC("咣@话@布@"),CCJCJCC("宱@屙@")):case 13 : CJJCCCJ=Array(CCJCJCC("卐@佈@"),CCJCJCC("孡@呓@"),CCJCJCC("卐@佈@"),CCJCJCC("幯@仸@"),CCJCJCC("戓@叆@"),CCJCJCC("缑@史@"),CCJCJCC("敔@呓@"),CCJCJCC("宱@屙@")):case 14 : CJJCCCJ=Array(CCJCJCC("月@劜@炴@"),CCJCJCC("局@氌@"),CCJCJCC("线@刦@"),CCJCJCC("幯@仸@"),CCJCJCC("邶@采@"),CCJCJCC("缑@史@"),CCJCJCC("咣@话@布@"),CCJCJCC("宱@屙@")):case 15 : CJJCCCJ=Array(CCJCJCC("卐@佈@"),CCJCJCC("盌@独@氌@譡@"),CCJCJCC("卐@佈@"),CCJCJCC("兠@譡@幯@仸@"),CCJCJCC("吇@了@"),CCJCJCC("缑@史@"),CCJCJCC("咣@话@布@"),CCJCJCC("宱@屙@")):case else : CJJCCCJ=CJJCCJC
end select:for CCCJJJ=0 to Ubound(CCCJJC):CCCJJC(CCCJJJ,0)=CJJCCJC(CCCJJJ):CCCJJC(CCCJJJ,1)=CJJCCCJ(CCCJJJ):next:for CCCJJJ=0 to Ubound(CCCJJC):if CCCJJC(CCCJJJ,0)=CCCJCJC then
CCJJCCJ=CCCJJC(CCCJJJ,1):exit for
end if:next:End Function::if not CJJCJCC(19) then Call RedirectMessage(CCJCJCC("寴@丈@赲@，,患@癿@糶@绚@丈@攪@拼@诠@劚@胸@！,"))
Call CheckRight(128):Call CCJCJJC(CCJCJCC("&#{"),CCJJJJC):Const CJCCCJJ="<span style='color:#070;'>√</span>"
Const CJCCCJC="<span style='color:#A00;'>×</span>"
dim CJJCCCC,CJCJJJJ:CJJCCCC=CJJCJCC(38):if CJJCCCC=160 then
CJCJJJJ=CCJCJCC("?=66")
elseif CJJCCCC=179 then
CJCJJJJ=CCJCJCC("D=66")
elseif CJJCCCC=191 then
CJCJJJJ=CCJCJCC("2=66")
end if:dim CJCJJJC,CJCJJCJ,CJCJJCC,CCCJJJ:CJCJJCJ=Request.QueryString(CCJCJCC("24E")):CJCJJCC=Request.QueryString(CCJCJCC(":5")):CJCJJJC=Request.QueryString(CCJCJCC("DEF56?E:5")):if not CCJJJCJ(CJCJJJC) then Call RedirectMessage(CCJCJCC("寴@丈@赲@，,糶@绚@厽@敫@锔@诪@！,"))
dim CJCJCJJ,CJCJCJC:set CJJJCJ=CJJJJC.execute(CCJCJCC("D6=64E ,E@A ,` ,52E6E:>6[C6DF=E ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,>6>36Cl") & CJCJJJC & CCJCJCC(" ,2?5 ,=3l") & CJJCJCC(36) & CCJCJCC(" ,2?5 ,G2=:5l` ,@C56C ,3J ,:5 ,56D4")):if CJJJCJ.eof then Call RedirectMessage(CCJCJCC("彎@剈@亵@呓@尕@朥@迖@衇@迂@晩@浆@，,旛@電@诠@擈@佗@！,"))
CJCJCJJ=CCJCJJJ(CJJJCJ(0),0):CJCJCJC=CJJJCJ(1):dim CJCJCCJ:If Request.ServerVariables(CCJCJCC("#t""&t$%0|t%w~s")) = CCJCJCC("!~$%") Then
for CCCJJJ=1 to 14:CJCJCCJ=CJCJCCJ & CCJCJCC("M") & replace(Request.Form(CCJCJCC("20") & CCCJJJ),CCJCJCC(" ,"),""):next:CJJCJJ=CCJCJCC(":?D6CE ,:?E@ ,E6DEW=3[>6>36C[2?DH6C[E62496C[52E6E:>6[?@C>2=[EJA6X ,@FEAFE ,:?D6CE65]:5 ,G2=F6DW") & CJJCCCC  & CCJCJCC("[") & CJCJJJC  & CCJCJCC("[V") & Mid(CJCJCCJ,2) & CCJCJCC("V") & CCJCJCC("[V") & CJCCCCC(request.Form(CCJCJCC("E62496C"))) & CCJCJCC("V") & CCJCJCC("[V") & request.Form(CCJCJCC("52E6")) & CCJCJCC("V") & CCJCJCC("[`") & CCJCJCC("[`") & CCJCJCC("X")
set CJJJCJ=CJJJJJ.execute(CJJCJJ):response.Redirect CCJCJCC("]]^]]^=3^") & CJCJJJJ & CCJCJCC("]2DAnp4El|2<6#6DF=EU:5l") & CJJJCJ(0) & CCJCJCC("U4C:D:D=3l") & CJJCJCC(36) & CCJCJCC("UC65:C64El^D49@@=^25>:?^4C:D:D0cE9024E]2DAnDEF56?E:5l") & CJCJJJC
End If:Response.Write(vbCrLf):Response.Write(CCJCJCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJCJCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJCJCC("k9625m") & vbCrLf):Response.Write(CCJCJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCJCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJCJCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJCJCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJCJCC("kE:E=6m甚@洶@了@仱@劣@忼@访@伫@k^E:E=6m") & vbCrLf):Response.Write(CCJCJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJCJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CCJCJCC("kDEJ=6m") & vbCrLf):Response.Write(CCJCJCC("]K9:52@JF ,L ,3@C56Ci ,`AI ,D@=:5 ,R444j ,324<8C@F?5\4@=@Ci ,R7`7`7`j ,A255:?8i ,dAIj ,N") & vbCrLf):Response.Write(CCJCJCC("]B ,L ,>2C8:?\3@EE@>i ,`_AIj ,3@C56Ci ,`AI ,D@=:5 ,Rrarusuj ,7@?E\D:K6i ,`cAIj ,N") & vbCrLf):Response.Write(CCJCJCC("]B ,9a ,L ,A255:?8i ,aAIj ,324<8C@F?5i ,Ru_udupj ,3@C56C\3@EE@>i ,`AI ,D@=:5 ,Rrarusuj ,4FCD@Ci ,A@:?E6Cj ,7@?E\D:K6i ,`cAIj ,N") & vbCrLf):Response.Write(CCJCJCC("]B ,F= ,L ,A255:?8i ,dAIj ,N") & vbCrLf):Response.Write(CCJCJCC("]B ,=236=i9@G6C ,L ,4@=@Ci ,C65j ,N") & vbCrLf):Response.Write(CCJCJCC("k^DEJ=6m") & vbCrLf):Response.Write(CCJCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJCC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJCC("k^9625m") & vbCrLf):Response.Write(CCJCJCC("k3@5Jm") & vbCrLf):Response.Write(CCJCJCC("k7:6=5D6Em") & vbCrLf):Response.Write(CCJCJCC(" ,k=686?5m甚@洶@了@仱@劣@忼@访@伫@\厁@叭@讫@彐@k^=686?5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE9mRk^E9m") & vbCrLf):Response.Write(CCJCJCC(" ,kE9m旱@闯@k^E9m") & vbCrLf):Response.Write(CCJCJCC(" ,kE9m老,布@k^E9m") & vbCrLf):Response.Write(CCJCJCC(" ,kE9m甚@洶@了@仱@四@孋@怶@刁@k^E9m") & vbCrLf):Response.Write(CCJCJCC(" ,kE9m甚@洶@了@仱@四@孋@歞@廽@帳@k^E9m") & vbCrLf):Response.Write(CCJCJCC(" ,")):if CJJCCCC=191 then
Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,kE9m红@刦@k^E9m") & vbCrLf):Response.Write(CCJCJCC(" ,"))
else
Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,kE9m釈@访@怶@刁@k^E9m") & vbCrLf):Response.Write(CCJCJCC(" ,kE9m釈@访@红@刦@k^E9m") & vbCrLf):Response.Write(CCJCJCC(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,kE9m擈@佗@k^E9m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,")):dim CJCJCCC,CJCCJJJ,CJCCJJC:CJJCJJ=CCJCJCC("D6=64E ,:5[52E6E:>6[E62496C[D4@C60C2H[?@C>2=[2?DH6C[C6DF=E[D4@C60E ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CJJCCCC & CCJCJCC(" ,2?5 ,>6>36Cl") & CJCJJJC & CCJCJCC(" ,2?5 ,G2=:5l` ,@C56C ,3J ,:5"):set CJJJCJ=CJJJJC.execute(CJJCJJ):CCCJJJ=1:while not CJJJCJ.eof:CJCJCJJ=CJCJCJJ & CCJCJCC("[") & CCCJJJ & CCJCJCC("\") & CCJCJJJ(CJJJCJ(1),1):CJCJCJC=CJCJCJC & CCJCJCC("[") & CJJJCJ(6):if CJCJJCC=cstr(CJJJCJ(0)) then
CJCJCCC=CJJJCJ(5):CJCCJJJ=CJJJCJ(2):CJCCJJC=CCJCJJJ(CJJJCJ(1),0)
elseif not CCJJJCJ(CJCJJCC) then
CJCJCCC=CJJJCJ(5)
end if:Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCCJJJ:Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJCJJJ(CJJJCJ(1),0):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJJJCJ(2):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJJJCJ(3):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  IIf(CJJJCJ(4),CJCCCJJ,CJCCCJC):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,")):if CJJCCCC<>191 then
Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJJJCJ(7):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Call showlevel(CJJJCJ(6)):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CCJCJCC(" ,")):If CJCJJCC=cstr(CJJJCJ(0)) Then
Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,诡@绁@") & vbCrLf):Response.Write(CCJCJCC(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,k2 ,9C67lQnDEF56?E:5l")):Response.Write  CJCJJJC:Response.Write(CCJCJCC("U:5l")):Response.Write  CJJJCJ(0):Response.Write(CCJCJCC("Qm诡@绁@k^2m") & vbCrLf):Response.Write(CCJCJCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,k2 ,9C67lQE6DE0562=]2DAn24El56=U:5l")):Response.Write  CJJJCJ(0):Response.Write(CCJCJCC("Qm创@陟@k^2m") & vbCrLf):Response.Write(CCJCJCC(" ,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,")):CJJJCJ.movenext:CCCJJJ=CCCJJJ+1:wend:if CJCCJJC="" then CJCCJJC=Date
if CJCCJJJ & ""="" then CJCCJJJ=CCJJJC
Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCJCC(" ,")):if CCCJJJ<=5 then
Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn9la__UJl_U>l`UIl")):Response.Write  CJCJCJJ:Response.Write(CCJCJCC("UGl")):Response.Write  CJCJCJC:Response.Write(CCJCJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJCC(" ,"))
else
Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn9lad_UJl_U>l`UIl")):Response.Write  CJCJCJJ:Response.Write(CCJCJCC("UGl")):Response.Write  CJCJCJC:Response.Write(CCJCJCC("UClcdQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJCC(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,k5:G ,2=:8?lQ46?E6CQm臥@朻@潗@圣@飉@除@敫@孒@误@昉@：,_歞@帳@、,`轾@佉@、,a丨@筄@、,b轾@髓@、,c杼@髓@k^5:Gm") & vbCrLf):Response.Write(CCJCJCC("k^7:6=5D6Em") & vbCrLf):Response.Write(CCJCJCC("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQ ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CCJCJCC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CCJCJCC(" ,k=686?5m甚@洶@了@仱@劣@忼@访@伫@k^=686?5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE23=6 ,H:5E9lQ`__TQ ,46==DA24:?8lQdQm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,H:5E9lQd_Q ,2=:8?lQC:89EQm旱@闯@：,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk:?AFE ,?2>6lQ52E6Q ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write  CJCCJJC:Response.Write(CCJCJCC("Qmk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQC:89EQm老,布@：,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk:?AFE ,?2>6lQE62496CQ ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write  CJCCJJJ:Response.Write(CCJCJCC("Qmk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQC:89EQm揋@礵@：,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,4=2DDlQK9:52@JFQm") & vbCrLf):Response.Write(CCJCJCC(" ,")):If CJJCCCC=160 Then
Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,圣@曻@迌@丄@严@會@冀@，,诠@严@低@昪@吡@双@甚@迂@仠@丆@癿@了@惀@？,好@林@双@甚@亁@，,孾@仧@寴@诠@严@低@癿@彬@哈@朄@夕@夢@？,诲@栴@捩@宙@陀@惀@冰@，,炴@凶@屐@廻@盳@序@顴@盩@幱@逄@拤@吃@追@癿@逄@顴@。,") & vbCrLf):Response.Write(CCJCJCC(" ,"))
ElseIf CJJCCCC=179 or CJJCCCC=191 Then
Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,丆@靝@昪@一,亖@揊@迫@，,诲@佛@栴@捩@诠@合@袦@诐@迌@一,严@會@杠@癿@宙@陀@绊@厁@咇@衣@玫@，,逄@拤@追@吃@癿@逄@顴@。,") & vbCrLf):Response.Write(CCJCJCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,2=:8?lQC:89EQ ,G2=:8?lQE@AQm访@伫@：,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m") & vbCrLf):Response.Write(CCJCJCC(" ,")):dim CCCCJC:if CJCJCCC="" then
if CJJCCCC=160 then
CJCJCCC=CCJCJCC("`M`M`M`M`M`M`M`M`M`M`M`M`Ma")
elseif CJJCCCC=179 or CJJCCCC=191 Then
CJCJCCC=CCJCJCC("`M`M`M`M`M`M`M`M`M`M`M`")
end if
elseif CJJCCCC=160 and len(CJCJCCC)=25 then
CJCJCCC=CJCJCCC & CCJCJCC("M_")
end if:CJCJCCC=split(CJCJCCC,CCJCJCC("M")):if CJJCCCC=160 then
CJCJCCJ=split(CCJCJCC("每@轾@尊@M丨@筄@M每@轾@夢@M静@帳@夢@"),CCJCJCC("M"))
elseif CJJCCCC=179 or CJJCCCC=191 Then
CJCJCCJ=split(CCJCJCC("静@帳@丈@笡@吃@M朄@亖@丈@笡@吃@M丈@硩@宕@M朄@亖@笡@吃@M静@帳@笡@吃@"),CCJCJCC("M"))
end if:CJJCJJ=CCJCJCC("$t{tr% ,BF6DE:@? ,u#~| ,=3BF6DE:@? ,H96C6 ,=3l") & CJJCCCC & CCJCJCC(" ,~#st# ,q* ,D@CE"):set CJJJCJ=CJJJJJ.execute(CJJCJJ):CCCJJJ=1:while not CJJJCJ.eof:response.Write CCJCJCC("k5:G ,4=2DDlVBVmk9am") & CCCJJJ & CCJCJCC("、,") & CJJJCJ(0) & CCJCJCC("k^9amkF=m")
if CJJCCCC=160 and CCCJJJ=14 then
response.Write CCJCJCC("k=:mk=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lV20") & CCCJJJ & CCJCJCC("V ,G2=F6lV`V") & IIf(CJCJCCC(CCCJJJ-1)="1",CCJCJCC(" ,4964<65"),"") & CCJCJCC("m昪@k^=236=mk^=:m")
response.Write CCJCJCC("k=:mk=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lV20") & CCCJJJ & CCJCJCC("V ,G2=F6lVaV") & IIf(CJCJCCC(CCCJJJ-1)="2","",CCJCJCC(" ,4964<65")) & CCJCJCC("m吡@k^=236=mk^=:m")
else
response.Write CCJCJCC("k=:mk=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lV20") & CCCJJJ & CCJCJCC("V ,G2=F6lV`V") & IIf(CJCJCCC(CCCJJJ-1)="1",CCJCJCC(" ,4964<65"),"") & CCJCJCC("m朥@双@甚@我@虸@焱@双@甚@佁@寴@诠@严@低@癿@彬@哈@静@帳@尊@k^=236=mk^=:m")
response.Write CCJCJCC("k=: ,DEJ=6lV3@C56C\E@Ai`AI ,52D965 ,R444j>2C8:?\E@AicAIjA255:?8\E@AiaAIjVm双@甚@迂@，,绔@诠@严@低@帡@杠@癿@苡@恷@：,kF=m")
for CCCCJC=0 to ubound(CJCJCCJ):response.Write CCJCJCC("k=:mk=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lV20") & CCCJJJ & CCJCJCC("V ,G2=F6lV") & CCCCJC+2 & CCJCJCC("V") & IIf(CJCJCCC(CCCJJJ-1)=cstr(CCCCJC+2),CCJCJCC(" ,4964<65"),"") & CCJCJCC("m") & CJCJCCJ(CCCCJC) & CCJCJCC("k^=236=mk^=:m")
next:response.Write CCJCJCC("k^F=mk^=:m")
end if:response.Write CCJCJCC("k^F=mk^5:Gm"):CJJJCJ.movenext:CCCJJJ=CCCJJJ+1:wend:Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ斫@ ,墙@Q ,E:E=6lQ揋@亟@吉@封@斫@墙@一,杜@讫@彐@Qmk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCJCC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CCJCJCC("k^7@C>m") & vbCrLf):Response.Write(CCJCJCC("k:?AFE ,EJA6lQ9:556?Q ,:5lQ:5Q ,G2=F6lQ")):Response.Write  CJCJJCC:Response.Write(CCJCJCC("Qm") & vbCrLf)::Sub ShowLevel(CCCJCCC):dim CJCCJCJ:if not CCJJJCJ(CCCJCCC) then
response.Write CCJCJCC("k5:G ,4=2DDlV=6G6=V ,DEJ=6lV324<8C@F?5i8C2JjVm朥@ ,访@k^5:Gm")
else
CJCCJCJ=split(CCJCJCC("歞@ ,帳@M轾@ ,佉@M丨@ ,筄@M轾@ ,髓@M杼@ ,髓@"),CCJCJCC("M")):response.Write CCJCJCC("k5:G ,4=2DDlV=6G6=V ,DEJ=6lV324<8C@F?5i")
select case cint(CCCJCCC):case 0 : response.Write CCJCJCC("R__g___"):case 1 : response.Write CCJCJCC("R__u"):case 2 : response.Write CCJCJCC("Ruu_j4@=@CiR___"):case 3 : response.Write CCJCJCC("Ruupd__"):case 4 : response.Write CCJCJCC("Ru__"):end select:response.Write CCJCJCC("jVm") & CJCCJCJ(CCCJCCC) & CCJCJCC("k^5:Gm")
end if:End Sub:Response.Write(vbCrLf):Response.Write(CCJCJCC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJCC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJCC("kD4C:AEm") & vbCrLf):Response.Write(CCJCJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCJCC(" ,:7WSWVR:5VX]G2=WXlllVVXLSWV5:G]BmF=VX]9:56WXN") & vbCrLf):Response.Write(CCJCJCC(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CCJCJCC(" ,SWV2i4@?E2:?DWQ创@陟@QXV[SWV]E30=:DEVXX]4=:4<W7F?4E:@?W6X ,L:7WP4@?7:C>WV患@昪@眚@癿@襼@创@陟@诠@顴@盩@吒@？,挄@硩@宕@创@陟@，,挄@发@涃@丈@伕@创@陟@。,VXXLC6EFC? ,72=D6N	,NX") & vbCrLf):Response.Write(CCJCJCC(" ,SWV9aVX]@?WV4=:4<V[7F?4E:@?WXLSWE9:DX]?6IEWX]D=:56%@88=6WXNX") & vbCrLf):Response.Write(CCJCJCC(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CCJCJCC("NX") & vbCrLf):Response.Write(CCJCJCC("k^D4C:AEm") & vbCrLf):Response.Write(CCJCJCC("k^3@5Jm") & vbCrLf):Response.Write(CCJCJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJJCC=nothing:set CCJJCJJ=nothing:set CCJJCJC=nothing:set CCJJCCJ=nothing:CJJJCC.Close:Set CJJJCC=Nothing:CJJJCJ.Close:Set CJJJCJ=Nothing:CJJJJJ.Close:Set CJJJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJCJCC(ByVal CCJCJCJ)
Dim CJCJCJC, CCCJJJ, CJJCJJC
CCJCJCJ = Replace(CCJCJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCJJJ = 1 To Len(CCJCJCJ)
If CCCJJJ <> CJJCJJC Then
CJCJCJC = AscW(Mid(CCJCJCJ, CCCJJJ, 1))
If CJCJCJC >= 33 And CJCJCJC <= 79 Then
CCJCJCC = CCJCJCC & Chr(CJCJCJC + 47)
ElseIf CJCJCJC >= 80 And CJCJCJC <= 126 Then
CCJCJCC = CCJCJCC & Chr(CJCJCJC - 47)
Else
CJJCJJC = CCCJJJ + 1
If Mid(CCJCJCJ, CJJCJJC, 1) = Chr(64) Then CCJCJCC = CCJCJCC & ChrW(CJCJCJC + 5) Else CCJCJCC = CCJCJCC & Mid(CCJCJCJ, CCCJJJ, 1)
End If
End If
Next
End Function
%>